;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:30 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/dvc-defs.el ;;; in Emacs version 23.0.50.2 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`dvc-defs.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require font-lock dvc-site] 2) #@106 Returns ARG1 if set, non-nil, and not the empty string. Otherwise, return ARG2. ARG1 must be a variable. (defalias 'dvc-first-set '(macro . #[(arg1 arg2) "\302\303\304!\305\306\307\310BBDEE E\207" [arg1 arg2 or and boundp when not string= ("")] 8 (#$ . 667)])) (byte-code "\300\301!\204 \302\301\303\"\210\300\207" [fboundp executable-find autoload "executable"] 3) #@38 The list of registered dvc backends. (defvar dvc-registered-backends nil (#$ . 1043)) (custom-declare-group 'dvc nil "Decentralized Version Control interface for Emacs." :group 'tools :prefix "dvc-") #@199 A list that defines the priority of the available dvc's. If a project uses more than one dvc, use this list to select the primary dvc. Possible values include: 'tla, 'baz, 'xhg, 'xgit, 'bzr, 'xmtn (custom-declare-variable 'dvc-select-priority ''nil '(#$ . 1250) :type '(repeat (choice (const :tag "tla" tla) (const :tag "baz" baz) (const :tag "xhg" xhg) (const :tag "xgit" xgit) (const :tag "bzr" bzr) (const :tag "xmtn" xmtn) (symbol :tag "Other"))) :group 'dvc) #@320 If non-nil, prompt for the active dvc when more than one is found for the current directory. The back-ends considered are given in dvc-select-priority (it must be non-nil - it should be restricted it to only those back-ends actually used). Otherwise, use the first one found; dvc-select-priority sets the search order. (custom-declare-variable 'dvc-prompt-active-dvc 'nil '(#$ . 1722) :type 'boolean :group 'dvc) #@36 *Use highlighting for DVC buffers. (custom-declare-variable 'dvc-highlight 't '(#$ . -2141) :type 'boolean :group 'dvc) #@56 *If non-nil, prompt for confirmation in dvc-add-files. (custom-declare-variable 'dvc-confirm-add 't '(#$ . -2267) :type 'boolean :group 'dvc) #@59 *If non-nil, prompt for confirmation in dvc-ignore-files. (custom-declare-variable 'dvc-confirm-ignore 't '(#$ . -2415) :type 'boolean :group 'dvc) #@53 *If non-nil, prompt for confirmation in dvc-update. (custom-declare-variable 'dvc-confirm-update 't '(#$ . -2569) :type 'boolean :group 'dvc) #@52 *If non-nil, limit log listings to last n entries. (custom-declare-variable 'dvc-log-last-n 'nil '(#$ . -2717) :type '(choice boolean integer) :group 'dvc) #@69 If non-nil, display files with 'known' status in dvc-status buffer. (custom-declare-variable 'dvc-status-display-known 'nil '(#$ . 2879) :type 'boolean :group 'dvc) #@71 If non-nil, display files with 'ignored' status in dvc-status buffer. (custom-declare-variable 'dvc-status-display-ignored 'nil '(#$ . 3050) :type 'boolean :group 'dvc) #@394 How to display info about the working tree in DVC status buffers. The default is 'text, which uses explanatory text when listing the status of the tree. Another option is 'terse, which uses a single letter to indicate the status of each file. Alternatively, you may set this to the name of a custom function which, given a fileinfo argument, produces the status list in the current buffer. (custom-declare-variable 'dvc-fileinfo-printer-interface ''full '(#$ . 3226) :group 'dvc :type '(choice (const :tag "Full" full) (const :tag "Terse" terse) (symbol :tag "Other"))) #@263 Function to call when prompting user to choose between a list of options. This should take the same arguments as `completing-read'. Possible values are `completing-read' and `ido-completing-read'. Note that you must set `ido-mode' if using`ido-completing-read'. (custom-declare-variable 'dvc-completing-read-function '(if (and (boundp 'ido-mode) ido-mode) 'ido-completing-read 'completing-read) '(#$ . 3806) :type 'function :group 'dvc) (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\304\301%\210\306\312\313\314\304\301%\210\306\315\316\317\304\301%\210\306\320\321\322\304\301%\210\306\323\324\325\304\301%\210\306\326\327\330\304\301%\210\306\331\332\311\304\301%\210\306\333\334\335\304\301%\210\306\336\337\340\304\301%\210\306\341\342\343\304\301%\210\306\344\345\346\304\301%\210\306\347\350\351\304\301%\210\306\352\353\354\304\301%\210\306\355\356\357\304\301%\210\306\360\361\362\304\301%\210\306\363\364\365\304\301%\210\306\366\367\370\304\301%\210\306\371\372\373\304\301%\210\306\374\375\376\304\301%\210\306\377\201@\201A\304\301%\210\306\201B\201C\201D\304\301%\210\306\201E\201F\201G\304\301%\210\306\201H\201I\201J\304\301%\210\306\201K\201L\201M\304\301%\210\306\201N\201O\201P\304\301%\210\306\201Q\201R\201S\304\301%\210\306\201T\201U\201V\304\301%\210\306\201W\201X\201Y\304\301%\210\306\201Z\201[\201\\\304\301%\210\306\201]\201^\201_\304\301%\210\306\201`\201a\201b\304\301%\207" [custom-declare-group dvc-faces nil "This group contains faces defined for DVC." :group dvc custom-declare-face dvc-revision-name ((((type tty) (class color)) (:foreground "lightblue" :weight light)) (((class color) (background light)) (:foreground "blue4")) (((class color) (background dark)) (:foreground "lightskyblue1")) (t (:weight bold))) "Face to highlight DVC revision names." dvc-repository-name ((t (:inherit dvc-revision-name))) "Face to highlight DVC repository name." dvc-local-directory ((t (:inherit dvc-repository-name))) "Face to highlight DVC local directory." dvc-buffer ((t (:inherit dvc-repository-name))) "Face to highlight buffer names printed in DVC's buffer." dvc-marked ((((type tty) (class color)) (:foreground "magenta" :weight light)) (((class color) (background light)) (:foreground "magenta")) (((class color) (background dark)) (:foreground "yellow")) (t (:weight bold))) "Face to highlight a marked entry in DVC buffers" dvc-excluded ((((type tty) (class color)) (:foreground "orchid" :weight light)) (((class color) (background light)) (:foreground "orchid")) (((class color) (background dark)) (:foreground "gold"))) "Face to highlight an excluded entry in DVC buffers" dvc-bookmark-name ((t (:inherit dvc-repository-name))) dvc-id ((t (:inherit dvc-keyword))) "Face to highlight an arch id." dvc-separator ((((type tty)) (:underline t :weight bold)) (((background light)) (:underline t :weight bold)) (((background dark)) (:underline t :weight bold))) "Face to highlight separators." dvc-keyword ((t (:inherit font-lock-keyword-face))) "Face to highlight keywords." dvc-comment ((t (:inherit font-lock-comment-face))) "Face to highlight comments." dvc-ignored ((t (:inherit font-lock-comment-face))) "Face to highlight precious entries." dvc-unrecognized ((t (:inherit font-lock-warning-face))) "Face to highlight unrecognized entries." dvc-duplicate ((t (:inherit font-lock-warning-face))) "Face to highlight files with duplicate IDs." dvc-source ((t (:inherit font-lock-string-face))) "Face to highlight source code entries." dvc-nested-tree ((t (:inherit font-lock-type-face))) "Face to highlight nested trees." dvc-to-add ((t (:inherit font-lock-comment-face))) "Face to highlight a file that should probably be added to the archive." dvc-broken-link ((t (:inherit font-lock-warning-face))) "Face to highlight a broken link." dvc-unmerged ((t (:inherit font-lock-keyword-face))) "Face to highlight unmerged patches." dvc-header ((t (:inherit font-lock-function-name-face))) "Face to highlight header in log mode for example." dvc-conflict ((t (:inherit font-lock-warning-face))) "Face to highlight conflicts." dvc-unknown ((t (:inherit font-lock-variable-name-face))) "Face to highlight unknown status modification." dvc-modified ((t (:inherit font-lock-function-name-face))) "Face to highlight modified files." dvc-copy ((t (:inherit font-lock-function-name-face))) "Face to highlight copied files/directories." dvc-move ((t (:inherit font-lock-constant-face))) "Face to highlight moved files/directory." dvc-deleted ((t (:inherit font-lock-warning-face))) "Face to highlight deleted files." dvc-added ((t (:inherit font-lock-constant-face))) "Face to highlight added files." dvc-meta-info ((t (:inherit font-lock-comment-face))) "Face to highlight files with meta-info changes." dvc-messages ((t (:inherit font-lock-function-name-face))) "Face to highlight messages in DVC buffers." dvc-highlight ((((class color) (background dark)) (:background "darkblue")) (((class color) (background light)) (:background "gold"))) "Face to use as an alternative to `highlight' face.\nIf there could be more than two highlighted things, the user will confuse.\nIn such case use this face." dvc-mark ((((class color) (background dark)) (:foreground "green" :bold t)) (((class color) (background light)) (:foreground "green3" :bold t)) (t (:bold t))) "DVC face used to highlight marked file indicator."] 6) #@130 DVC face used to highlight buttons. An button is a piece of text that you can activate by pressing `RET' or `mouse-2' above it. (custom-declare-variable 'dvc-button-face ''bold '(#$ . 9196) :type 'face :group 'dvc-faces) #@108 DVC face used to highlight buttons. Buttons will be displayed in this face when the cursor is above them. (custom-declare-variable 'dvc-mouse-face ''highlight '(#$ . 9425) :type 'face :group 'dvc-faces) #@124 *Mode for switching to DVC buffers. Recommended settings are: 'pop-to-buffer, and 'show-in-other-window and 'single-window (custom-declare-variable 'dvc-switch-to-buffer-mode ''pop-to-buffer '(#$ . -9636) :type '(choice (const pop-to-buffer) (const single-window) (const dedicated-frame) (const show-in-other-window)) :group 'dvc) (custom-declare-group 'dvc-file-actions nil "This group contains items manipulating finding, saving and\nreverting files." :group 'dvc) #@134 *Whether or not DVC will prompt before saving. If non nil, DVC will not prompt you before saving buffers of the working local tree. (custom-declare-variable 'dvc-do-not-prompt-for-save 'nil '(#$ . -10110) :type 'boolean :group 'dvc-file-actions) #@162 *Whether or not DVC will automatically revert buffers. If non nil, DVC will automatically revert unmodified buffers after an arch operation modifying the file. (custom-declare-variable 'dvc-automatically-revert-buffers 't '(#$ . -10364) :type 'boolean :group 'dvc-file-actions) (custom-declare-group 'dvc-internal nil "This group contains items used mainly for debugging." :group 'dvc) #@62 *Non nil means log all DVC commands in the buffer *dvc-log*. (custom-declare-variable 'dvc-log-commands 't '(#$ . -10757) :type 'boolean :group 'dvc-internal) #@52 *Name of the buffer in which DVC logs main events. (custom-declare-variable 'dvc-log-buffer '" *dvc-log*" '(#$ . -10922) :type 'string :group 'dvc-internal) #@439 *Mode for prompting project tree directories. Possible values are: - always: When running a dvc command requiring a tree, always prompt for it. - unless-specified: If a directory is given as an argument, use it; otherwise prompt. - sometimes: If a command is run inside a project tree, the tree root is used. Otherwise, prompt. - never: If a command is run inside a project tree, use the tree root. Otherwise, raise an error. (custom-declare-variable 'dvc-read-project-tree-mode ''sometimes '(#$ . -11086) :type '(choice (const always) (const unless-specified) (const sometimes) (const never)) :group 'dvc) #@213 *How prompting project directories should be done. Works similarly to `dvc-read-project-tree-mode', but this one is used for commands like `tla-inventory' for which a subdirectory of a project tree is accepted. (custom-declare-variable 'dvc-read-directory-mode ''sometimes '(#$ . -11712) :type '(choice (const always) (const sometimes) (const never)) :group 'dvc) #@343 *Switch to newly created buffer on creation of buffers? If non-nil, DVC commands implementing this feature will switch to the newly created buffer when the command is called. Further (potentially asynchronous) processes are run without modifying your window-configuration. Otherwise, DVC will switch to the new buffer on command completion. (custom-declare-variable 'dvc-switch-to-buffer-first 't '(#$ . -12084) :type 'boolean :group 'dvc) #@120 *How *dvc-...* buffer should be killed. If the value is 'kill, buffers are actually killed. Otherwise, just bury them. (custom-declare-variable 'dvc-buffer-quit-mode ''kill '(#$ . -12532) :type '(choice (const kill) (const bury)) :group 'dvc) #@67 *If non-nil, insert changelog entries at the end of the log file. (custom-declare-variable 'dvc-log-insert-last 't '(#$ . -12781) :type 'boolean :group 'dvc) #@59 Set non-nil in unit tests; bypasses confirmation prompts. (defvar dvc-test-mode nil (#$ . 12945)) #@92 List of marked and not hidden files in the current buffer. This variable is buffer-local. (defvar dvc-buffer-marked-file-list nil (#$ . 13049)) (make-variable-buffer-local 'dvc-buffer-marked-file-list) #@157 List of marked files, including hidden ones, in the current buffer. `dvc-buffer-marked-file-list' is a subset of this one. This variable is buffer-local. (defvar dvc-buffer-all-marked-file-list nil (#$ . 13259)) (make-variable-buffer-local 'dvc-buffer-all-marked-file-list) #@168 A template that is used for functions to send patches via email. It should contain a <> and a <> marker to allow automatic log message extraction. (defvar dvc-patch-email-message-body-template "Please change the Subject header to a concise description of your patch.\nPlease describe your patch between the LOG-START and LOG-END markers:\n<>\n\n<>\n\n" (#$ . 13542)) #@35 *The name of the diff executable. (custom-declare-variable 'dvc-diff-executable '(dvc-first-set dvc-site-diff-executable "diff") '(#$ . -13955) :type 'string :group 'dvc) #@36 *The name of the patch executable. (custom-declare-variable 'dvc-patch-executable '(dvc-first-set dvc-site-patch-executable "patch") '(#$ . -14132) :type 'string :group 'dvc) (custom-declare-group 'dvc-tips nil "\"Tip of the day\" feature for DVC" :group 'dvc) #@35 *Set this to nil to disable tips. (custom-declare-variable 'dvc-tips-enabled 't '(#$ . -14399) :type 'boolean :group 'dvc-tips) (provide 'dvc-defs)