;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:30 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/dvc-ui.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-ui.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302!\210\301\303!\210\301\304!\210\301\303!\210\305B\306\305!\204\307\305\310\"\210\311B\306\311!\204.\307\311\312\"\210\313B\306\313!\204=\307\313\314\"\210\315B\306\315!\204L\307\315\316\"\210\317B\306\317!\204[\307\317\320\"\210\321B\306\321!\204j\307\321\322\"\210\323B\306\323!\204y\307\323\324\"\210\325B\306\325!\204\210\307\325\326\"\210\327B\306\327!\204\227\307\327\330\"\210\331B\306\331!\204\246\307\331\314\"\210\332B\306\332!\204\265\307\332\333\"\210\334B\306\334!\204\304\307\334\333\"\210\335B\306\335!\204\323\307\335\336\"\210\337B\306\337!\204\342\307\337\340\"\210\341B\306\341!\204\361\307\341\342\"\210\343B\306\343!\204\307\343\330\"\210\344B\306\344!\204\307\344\345\"\210\346B\306\346!\204\307\346\347\"\210\350B\306\350!\204-\307\350\351\"\210\352B\306\352!\204<\307\352\353\"\210\354B\306\354!\204K\307\354\355\"\210\356B\306\356!\204Z\307\356\357\"\210\360B\306\360!\204i\307\360\361\"\210\362B\306\362!\204x\307\362\363\"\210\364B\306\364!\204\207\307\364\365\"\210\366B\306\366!\204\226\307\366\367\"\210\370B\306\370!\204\245\307\370\371\"\210\372B\306\372!\204\264\307\372\373\"\210\374B\306\374!\204\303\307\374\375\"\210\376B\306\376!\204\322\307\376\367\"\210\377B\306\377!\204\341\307\377\361\"\210\201@B\306\201@!\204\366\307\201@\326\"\210\201AB\306\201A!\204 \307\201A\351\"\210\201BB\306\201B!\204\"\307\201B\201C\"\210\201DB\306\201D!\2049\307\201D\201E\"\210\201FB\306\201F!\204P\307\201F\201G\"\210\201HB\306\201H!\204g\307\201H\201I\"\210\201JB\306\201J!\204~\307\201J\201K\"\210\201LB\306\201L!\204\225\307\201L\201M\"\210\201NB\306\201N!\204\254\307\201N\201O\"\210\201PB\306\201P!\204\303\307\201P\201G\"\210\201QB\306\201Q!\204\332\307\201Q\201R\"\210\201SB\306\201S!\204\357\307\201S\365\"\210\301\207" [current-load-list require dvc-utils dvc-register easymenu dvc-key-help default-boundp set-default 63 dvc-key-mark-prefix 42 dvc-key-add-bookmark 98 dvc-key-get 62 dvc-key-reflect 60 dvc-key-parent 94 dvc-key-diff 61 dvc-key-status 115 dvc-key-add 97 dvc-key-show-bookmark dvc-key-diff-prefix 100 dvc-key-file-diff dvc-key-tree-lint 108 dvc-key-logs 76 dvc-key-ediff 101 dvc-key-log-entry dvc-key-refresh 103 dvc-key-inventory 105 dvc-key-mark 109 dvc-key-next 110 dvc-key-previous 112 dvc-key-quit 113 dvc-key-remove 114 dvc-key-move 82 dvc-key-toggle 116 dvc-key-unmark 117 dvc-key-popup-menu 10 dvc-key-kill-ring-prefix 119 dvc-key-commit 99 dvc-key-update dvc-key-replay dvc-key-star-merge dvc-key-missing dvc-key-buffer-prefix 66 dvc-key-directory-prefix 68 dvc-key-file-prefix 102 dvc-key-merge-prefix 77 dvc-key-tag 84 dvc-key-revert 85 dvc-key-working-copy 87 dvc-key-partner-file-prefix dvc-key-tagging-method-prefix 35 dvc-key-id] 3) (defalias 'dvc-key-group #[(prefix &rest keys) "\302\303 #\207" [prefix keys apply vector] 4]) (defalias 'dvc-prefix-toggle #[(&rest keys) "\302 \"\207" [dvc-key-toggle keys dvc-key-group] 3]) (defalias 'dvc-prefix-add #[(&rest keys) "\302 \"\207" [dvc-key-add keys dvc-key-group] 3]) (defalias 'dvc-prefix-remove #[(&rest keys) "\302 \"\207" [dvc-key-remove keys dvc-key-group] 3]) (defalias 'dvc-prefix-move #[(&rest keys) "\302 \"\207" [dvc-key-move keys dvc-key-group] 3]) (defalias 'dvc-prefix-mark #[(&rest keys) "\302 \"\207" [dvc-key-mark-prefix keys dvc-key-group] 3]) (defalias 'dvc-prefix-diff #[(&rest keys) "\302 \"\207" [dvc-key-diff-prefix keys dvc-key-group] 3]) (defalias 'dvc-prefix-merge #[(&rest keys) "\302 \"\207" [dvc-key-merge-prefix keys dvc-key-group] 3]) (defalias 'dvc-prefix-directory #[(&rest keys) "\302 \"\207" [dvc-key-directory-prefix keys dvc-key-group] 3]) (defalias 'dvc-prefix-file #[(&rest keys) "\302 \"\207" [dvc-key-file-prefix keys dvc-key-group] 3]) (defalias 'dvc-prefix-kill-ring #[(&rest keys) "\302 \"\207" [dvc-key-kill-ring-prefix keys dvc-key-group] 3]) (defalias 'dvc-prefix-buffer #[(&rest keys) "\302 \"\207" [dvc-key-buffer-prefix keys dvc-key-group] 3]) (defalias 'dvc-prefix-working-copy #[(&rest keys) "\302 \"\207" [dvc-key-working-copy keys dvc-key-group] 3]) (defalias 'dvc-prefix-partner-file #[(&rest keys) "\302 \"\207" [dvc-key-partner-file-prefix keys dvc-key-group] 3]) (defalias 'dvc-prefix-tag #[(&rest keys) "\302 \"\207" [dvc-key-tag keys dvc-key-group] 3]) (defalias 'dvc-prefix-tagging-method #[(&rest keys) "\302 \"\207" [dvc-key-tagging-method-prefix keys dvc-key-group] 3]) (byte-code "\306B\307\306!\204\310\306\311\312!\"\210\313B\307\313!\204\"\310\313\311\314!\"\210\315B\307\315!\2043\310\315\311\316!\"\210\317B\307\317!\204D\310\317\320 !\"\210\321B\307\321!\204U\310\321\320\n!\"\210\322B\307\322!\204f\310\322\320 !\"\210\323B\307\323!\204w\310\323\320\f!\"\210\324B\307\324!\204\210\310\324\320 !\"\210\325B\307\325!\204\232\310\325\3206!\"\210\326B\307\326!\204\254\310\326\3207!\"\210\327B\307\327!\204\276\310\327\3208!\"\210\330B\307\330!\204\320\310\330\3209!\"\210\331B\307\331!\204\342\310\331\320:!\"\210\332B\307\332!\204\363\310\332\333\334!\"\210\335B\307\335!\204\310\335\333\336!\"\210\337B\307\337!\204\310\337\320;!\"\210\340B\307\340!\204(\310\340\320!\"\210\343B\307\343!\204^\310\343\320?!\"\210\344B\307\344!\204p\310\344\320@!\"\210\345B\307\345!\204\202\310\345\320A!\"\210\346B\307\346!\204\224\310\346\320B!\"\210\347B\307\347!\204\246\310\347\320C!\"\210\347B\307\347!\204\270\310\347\320C!\"\210\350B\307\350!\204\312\310\350\320D!\"\210\351B\307\351!\204\334\310\351\320E!\"\210\352B\307\352!\204\356\310\352\320F!\"\210\353B\307\353!\204\310\353\320G!\"\210\354B\307\354!\204\310\354\320H!\"\210\355B\307\355!\204$\310\355\320I!\"\210\356B\307\356!\2046\310\356\320J!\"\210\357B\307\357!\204H\310\357\320K!\"\210\360B\307\360!\204Z\310\360\320L!\"\210\361B\307\361!\204l\310\361\320M!\"\210\362B\307\362!\204~\310\362\320N!\"\210\363B\307\363!\204\220\310\363\320O!\"\210\364B\307\364!\204\242\310\364\320P!\"\210\365B\307\365!\204\264\310\365\320Q!\"\210\306\207" [current-load-list dvc-key-help dvc-key-parent dvc-key-add dvc-key-remove dvc-key-get dvc-keyvec-toggle-set default-boundp set-default dvc-prefix-toggle 43 dvc-keyvec-toggle-reset 45 dvc-keyvec-toggle-invert 126 dvc-keyvec-help vector dvc-keyvec-parent dvc-keyvec-add dvc-keyvec-remove dvc-keyvec-get dvc-keyvec-refresh dvc-keyvec-next dvc-keyvec-previous dvc-keyvec-mark dvc-keyvec-unmark dvc-keyvec-mark-all dvc-prefix-mark 42 dvc-keyvec-unmark-all 33 dvc-keyvec-quit dvc-keyvec-popup-menu dvc-keyvec-ediff dvc-keyvec-tree-lint dvc-keyvec-logs dvc-keyvec-log-entry dvc-keyvec-diff dvc-keyvec-status dvc-keyvec-file-diff dvc-keyvec-commit dvc-keyvec-update dvc-keyvec-missing dvc-keyvec-replay dvc-keyvec-star-merge dvc-keyvec-reflect dvc-keyvec-revert dvc-keyvec-inventory dvc-keyvec-show-bookmark dvc-keyvec-add-bookmark dvc-keyvec-tag dvc-keyvec-kill-ring dvc-keyvec-id dvc-keyvec-toggle dvc-key-refresh dvc-key-next dvc-key-previous dvc-key-mark dvc-key-unmark dvc-key-quit dvc-key-popup-menu dvc-key-ediff dvc-key-tree-lint dvc-key-logs dvc-key-log-entry dvc-key-diff dvc-key-status dvc-key-file-diff dvc-key-commit dvc-key-update dvc-key-missing dvc-key-replay dvc-key-star-merge dvc-key-reflect dvc-key-revert dvc-key-inventory dvc-key-show-bookmark dvc-key-add-bookmark dvc-key-tag dvc-key-kill-ring-prefix dvc-key-id dvc-key-toggle] 4) #@28 Global keymap used by DVC. (defvar dvc-global-keymap (byte-code "\306 \307\310\311#\210\307\312\313#\210\307\314\315#\210\307 \316#\210\307\317\320#\210\307\n\321#\210\307 \322#\210\307\323\324#\210\307\f\325#\210\307 \326#\210\307@\327#\210\307\330\331#\210\307A\332#\210\307\333\334#\210\307B\335#\210\307\336\337#\210\307\340\341#\210\307C\342#\210\307\343\344#\210\307\345\346#\210\307D\347#\210\307E\350#\210\307\351\352!\353#\210\307\351\354!\355#\210\307\351\356!\357#\210\307\351\360!\361#\210\307\351\362!\363#\210\307\364F!\365#\210\307\364G!\366#\210\307\364H!\367#\210\307\364I!\370#\210\307\364\371!\372#\210\307\373\352!\374#\210\307\373\375!\376#\210\307\373\371!\377#\210)\207" [map dvc-keyvec-log-entry dvc-keyvec-file-diff dvc-keyvec-ediff dvc-keyvec-diff dvc-keyvec-status make-sparse-keymap define-key [85] tla-undo [82] tla-redo [112] dvc-submit-patch dvc-add-log-entry [65] tla-archives dvc-file-diff dvc-file-ediff [111] tla-file-view-original dvc-diff dvc-status dvc-log-edit [116] tla-tag-insert dvc-inventory [114] tla-tree-revisions dvc-log [108] dvc-changelog [(meta 108)] tla-tree-lint dvc-update [109] dvc-missing [77] dvc-merge dvc-bookmarks tla-help dvc-prefix-file 97 dvc-add-files 68 dvc-remove-files 82 dvc-revert-files 77 dvc-rename 88 dvc-purge-files dvc-prefix-buffer tla-changes-goto baz-status-goto tla-inventory-goto tla-tree-lint-goto 114 tla-tree-revisions-goto dvc-prefix-kill-ring tla-save-archive-to-kill-ring 118 tla-save-version-to-kill-ring tla-save-revision-to-kill-ring dvc-keyvec-commit dvc-keyvec-inventory dvc-keyvec-logs dvc-keyvec-update dvc-keyvec-show-bookmark dvc-keyvec-help dvc-key-diff dvc-key-status dvc-key-inventory dvc-key-tree-lint] 4) (#$ . 8252)) #@121 Prefix key for the DVC commands in the global keymap. If you wish to disable the prefix key, set this variable to nil. (custom-declare-variable 'dvc-prefix-key '[(control x) 86] '(#$ . 10022) :type '(choice (const [(control x) 86]) (const [(control x) 84]) (const [(control x) 116]) (const [(control x) 118 116]) (const [(super v)]) (const [(hyper v)]) (const [(super t)]) (const [(hyper t)]) (const :tag "None" nil) (sexp)) :group 'tla-bindings :set #[(var value) "\303!\203 \304J!\210 L\210\305J\n\"\207" [var value dvc-global-keymap boundp global-unset-key global-set-key] 3]) #@38 Install the DVC prefix key globally. (defalias 'dvc-enable-prefix-key #[nil "\205\302 \"\207" [dvc-prefix-key dvc-global-keymap global-set-key] 3 (#$ . 10614) nil]) (byte-code "\301 \210\302\303\301\304#\210\305\306\307#\207" [ctl-x-4-map dvc-enable-prefix-key add-hook after-init-hook t define-key [84] dvc-add-log-entry] 4) #@58 Template for keymaps used in items, files, changes, etc. (defvar dvc-cmenu-map-template (byte-code "\303 \304 \305#\210\304\306\307#\210\304\n\310#\210)\207" [map dvc-keyvec-help dvc-keyvec-popup-menu make-sparse-keymap define-key describe-mode [down-mouse-3] dvc-cmenu-popup-by-mouse dvc-cmenu-popup] 4) (#$ . 10951)) (byte-code "\302\303\300!\205\304\305\306$\210\307 B\310\307!\204\311\307\304\"\210\312 B\310\312!\204+\311\312\313\"\210\314\312!\210\315\316\317\"\210\320\321\322\"\210\320\323\324\"\207" [menu-bar-tools-menu current-load-list easy-menu-add-item boundp nil ("DVC" ["Browse Archives" tla-archives t] ["Show Bookmarks" tla-bookmarks t] ["Start New Project" tla-start-project t] "---" "Tree Commands:" ["View Diff" dvc-diff t] ["View Status" dvc-status t] ["View Inventory" tla-inventory t] ["View Tree Lint" tla-tree-lint t] ["Show Tree Revisions" tla-tree-revisions t] ["Edit Commit Log" dvc-log-edit t] "---" "File Commands:" ["Insert Arch Tag" tla-tag-insert t] ["Add Log Entry" dvc-add-log-entry t] ["View File Diff" tla-file-diff t] ["View File Ediff" tla-file-ediff t] ["View Original" tla-file-view-original t] ["View Conflicts" tla-view-conflicts t] "---" ("Goto Buffer" ["View Changes" tla-changes-goto t] ["View Status" baz-status-goto t] ["View Inventory" tla-inventory-goto t] ["View Tree Lint" tla-tree-lint-goto t] ["Show Tree Revisions" tla-tree-revisions-goto t]) ("Quick Configuration" ["Three Way Merge" tla-toggle-three-way-merge :style toggle :selected tla-three-way-merge] ["Show Ancestor in Conflicts" tla-toggle-show-ancestor :style toggle :selected tla-show-ancestor] ["Non Recursive Inventory" tla-toggle-non-recursive-inventory :style toggle :selected tla-non-recursive-inventory] ["Use --skip-present" tla-toggle-use-skip-present-option :style toggle :selected tla-use-skip-present-option])) "PCL-CVS" dvc-show-active-dvc default-boundp set-default dvc-show-active-dvc-string "" make-variable-buffer-local add-to-list minor-mode-alist (dvc-show-active-dvc dvc-show-active-dvc-string) add-hook find-file-hooks dvc-find-file-hook dired-mode-hook dvc-dired-hook] 5) #@187 Toggle displaying a DVC string in the modeline. If ARG is null, toggle displaying If ARG is a number and is greater than zero, turn on visualization; otherwise, turn off visualization. (defalias 'dvc-show-active-dvc #[(arg) "\203\f\302!\303V\202 ?\211\205\304 \207" [arg dvc-show-active-dvc prefix-numeric-value 0 dvc-actualize-modeline] 3 (#$ . 13080) "P"]) (defalias 'dvc-dvc-file-has-conflict-p #[(filename) "\300\207" [nil] 1]) #@145 Set dvc-show-active-dvc-string, after loading a file. Enter smerge mode if the file has conflicts (detected by -dvc-file-has-conflict-p). (defalias 'dvc-find-file-hook #[nil "\300 \205\"\301 \210\302\303\304 \"\205\"\305\306!\210\307\310\311\305!\203 \312\202!\313\"\207" [dvc-current-active-dvc dvc-actualize-modeline dvc-call "dvc-file-has-conflict-p" buffer-file-name smerge-mode 1 message "Conflicts in file%s. Use M-x dvc-resolved RET when done." boundp ", entering SMerge mode" ""] 4 (#$ . 13528)]) #@51 Set dvc-show-active-dvc-string for dired buffers. (defalias 'dvc-dired-hook #[nil "\300 \207" [dvc-actualize-modeline] 1 (#$ . 14049)]) (defalias 'dvc-actualize-modeline #[nil "\302 \211\203\303\304!P\202\305\211)\207" [dvc dvc-show-active-dvc-string dvc-current-active-dvc " DVC:" symbol-name ""] 4]) (provide 'dvc-ui)