;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:30 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/dvc-log.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-log.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require dvc-unified ediff] 2) #@51 If non-nil, dvc-log-edit defaults to other-frame. (custom-declare-variable 'dvc-log-edit-other-frame 'nil '(#$ . 663) :type 'boolean :group 'dvc) #@32 Keywords in dvc-log-edit mode. (defvar dvc-log-edit-font-lock-keywords '(("^ ?\\* \\([^ ,:([\n]+\\)" (1 'change-log-file-face) ("\\=, \\([^ ,:([\n]+\\)" nil nil (1 'change-log-file-face)) ("\\= (\\([^) ,:\n]+\\)" nil nil (1 'change-log-list-face)) ("\\=, *\\([^) ,:\n]+\\)" nil nil (1 'change-log-list-face)))) (#$ . 815)) (byte-code "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list dvc-log-edit-flush-prefix default-boundp set-default "## "] 3) #@78 A marker separating the actual log message from the list of files to commit. (defvar dvc-log-edit-file-list-marker "--This line, and those below, will be ignored--" (#$ . 1288)) #@123 A hash table that holds the mapping from work directory roots to functions that provide the initial content for a commit. (defvar dvc-log-edit-init-functions (make-hash-table :test 'equal) (#$ . 1473)) (byte-code "\302\303N\204\f\304\302\303\305#\210\306\307!\204\304\307\310\311#\210\307B\312\307!\204(\313\307\314 \"\210\306\315!\2044\304\315\310\311#\210\315B\312\315!\204D\313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^\313\301\317\301\320\"\210 \"\210\304\311\321\322#\207" [current-load-list dvc-log-edit-mode-abbrev-table dvc-log-edit-mode-hook variable-documentation put "Hook run when entering dvc-log-edit mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp dvc-log-edit-mode-map definition-name dvc-log-edit-mode default-boundp set-default make-sparse-keymap dvc-log-edit-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent text-mode] 5) #@235 Major Mode to edit DVC log messages. Commands: \{dvc-log-edit-mode-map} In addition to any hooks its parent mode `text-mode' might have run, this mode runs the hook `dvc-log-edit-mode-hook', as the final step during initialization. (defalias 'dvc-log-edit-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2036 \321 =\203<\322\f\323 \"\210)\324 !\210\325\f!\210\"#\326 $\324 !\210\327%!\210\330 \210\306\331!\210\332\306\333!\210\334\335&ed=\203s\336 \210\337\340!\210)\341\340!\207" [delay-mode-hooks major-mode mode-name dvc-log-edit-mode-map dvc-log-edit-mode-syntax-table parent make-local-variable t text-mode dvc-log-edit-mode "dvc-log-edit" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table dvc-current-active-dvc easy-menu-add dvc-install-buffer-menu font-lock-defaults (dvc-log-edit-font-lock-keywords t) fill-paragraph-function dvc-log-fill-paragraph 73 dvc-log-edit-insert-initial-commit-message run-hooks dvc-log-edit-mode-hook run-mode-hooks dvc-log-edit-mode-abbrev-table local-abbrev-table dvc-buffer-current-active-dvc dvc-log-edit-mode-menu fill-column] 6 (#$ . 2471) nil]) (byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\207" [dvc-log-edit-mode-map define-key [(control 99) (control 99)] dvc-log-edit-done [(control 99) (control 100)] dvc-diff [(control 99) (control 108)] dvc-log [(control 99) (control 102)] dvc-log-insert-commit-file-list [(control 99) (control 112)] dvc-buffer-pop-to-partner-buffer [(control 99) (control 109)] dvc-log-edit-insert-memorized-log [(control 99) (control 105)] dvc-log-edit-insert-initial-commit-message] 4) #@26 `dvc-log-edit-mode' menu (defvar dvc-log-edit-mode-menu nil (#$ . 4341)) (byte-code "\302\303\304\305$\210\306 B\307\306!\204\310\306\311\"\210\311\207" [dvc-log-edit-mode-map current-load-list easy-menu-do-define dvc-log-edit-mode-menu "`dvc-log-edit-mode' menu" ("Log Edit" ["Show changes" dvc-diff t] ["Commit" dvc-log-edit-done t] ["Show Changelog" dvc-log t] ["Pop to partner buffer" dvc-buffer-pop-to-partner-buffer t] ["Insert/Flush commit file list" dvc-log-insert-commit-file-list t] ["Insert memorized log" dvc-log-edit-insert-memorized-log t] "--" ["Abort" dvc-log-edit-abort t]) dvc-pre-commit-window-configuration default-boundp set-default nil] 5) #@193 Edit the log file for tree ROOT before a commit. OTHER_FRAME if non-nil puts log edit buffer in a separate frame. NO-INIT if non-nil suppresses initialization of the buffer if one is reused. (defalias 'dvc-dvc-log-edit #[(root other-frame no-init) "\306 p\307\310\311 \312\"\n\"\210 ?\205A\305 \313 \314\f\315\211#\210edU\2037\316\f!\2037\317\f!\210\320\321!\210\322 !\210 \323 *)\207" [dvc-pre-commit-window-configuration start-buffer other-frame no-init file-name buffer-name current-window-configuration dvc-switch-to-buffer dvc-get-buffer-create dvc-current-active-dvc log-edit dvc-log-edit-file-name set-visited-file-name t file-readable-p insert-file-contents set-buffer-modified-p nil rename-buffer dvc-log-edit-mode root default-directory dvc-partner-buffer] 4 (#$ . 5014)]) #@29 Abort the current log edit. (defalias 'dvc-log-edit-abort #[nil "\301 \210\302!\207" [dvc-pre-commit-window-configuration bury-buffer set-window-configuration] 2 (#$ . 5817) nil]) #@44 Close the log buffer, and delete the file. (defalias 'dvc-log-close #[(buffer) "\301!\210\302\303 !\207" [buffer kill-buffer delete-file dvc-log-edit-file-name] 2 (#$ . 6004)]) #@106 Remove the list of the files to commit. All lines starting with `dvc-log-edit-flush-prefix' are deleted. (defalias 'dvc-log-flush-commit-file-list #[nil "\212eb\210\301\302P!)\207" [dvc-log-edit-flush-prefix flush-lines "^"] 3 (#$ . 6189) nil]) #@108 Fill the paragraph, but preserve open parentheses at beginning of lines. Prefix arg means justify as well. (defalias 'dvc-log-fill-paragraph #[(&optional justify) "\304 \210`\305 \210`\306P\307 \n #\210+\310\207" [paragraph-start beg end justify forward-paragraph backward-paragraph "\\|\\s *\\s(" fill-region t] 4 (#$ . 6442) "P"]) #@149 Insert the file list that will be committed. With a negative prefix argument just remove the file list by calling `dvc-log-flush-commit-file-list'. (defalias 'dvc-log-insert-commit-file-list #[(arg) "\306W\203 \307 \207\310\311 \312\" \313\314\315\n\"\210\212eb\210\307 \210 c\210\316\317 \"c\210 c\210\320c\210\n\313\211\203\377 @\321\f@\322\"A c\210 \fAP\f@\313\211\211$% &'\203\360\323&!( 9\205o\324\316\325\326 !\"!)$\203{$\202\214%\205\214\327%!;\205\214\327%!*)\203\251*\203\244*\330\331\330)\260\202\253)\202\253$+ 9\203\271 J\202\273  \332\306(G\333\334\335 \205\330\336\337\340 \341+\257%\205\341\342%D\"BBBB($\210(-\202\362&-c\210\343 \210 A\211\2045-\313\207" [arg mark file-list dvc-log-edit-flush-prefix f #1=#:--cl-dolist-temp-- 0 dvc-log-flush-commit-file-list dvc-function dvc-current-active-dvc "dvc-files-to-commit" nil dvc-trace "Files to commit: %S" format "Lines beginning with '%s' will be deleted from this buffer before committing\n" "Files to commit:\n" assoc ((dvc-modified . "M ") (dvc-added . "A ") (dvc-deleted . "R ")) copy-sequence substitute-command-keys "\\{%s}" symbol-name cadr "\n" "================" add-text-properties face font-lock-face append mouse-face highlight keymap help-echo dvc-cmenu newline help menu str dvc-highlight strcpy key-help prefix-help long-help] 15 (#$ . 6786) "p"]) #@33 Insert a memorized log message. (defalias 'dvc-log-edit-insert-memorized-log #[nil "\203eb\210`\303 |\210c\210 \205Feb\210\304\210\305 \210\305 \210\n\2038\306\307!\203/\310y\210\2028\311 \210\312\313\n\"c\210\306\314!\203D\304\210\305 \210 c\207" [dvc-memorized-log-header dvc-memorized-log-message dvc-memorized-patch-sender line-end-position nil newline looking-at "Patch from " 1 undo-boundary format "Patch from %s\n" "* .+: "] 3 (#$ . 8190) nil]) #@162 Add new ChangeLog style entry to the current DVC log-edit buffer. If OTHER-FRAME xor `dvc-log-edit-other-frame' is non-nil, show log-edit buffer in other frame. (defalias 'dvc-add-log-entry #[(&optional other-frame) "\214\301!)\207" [other-frame dvc-add-log-entry-internal] 2 (#$ . 8661) "P"]) #@123 Return a file name for a log entry for BUFFER-FILE; including path from tree root. For use as add-log-file-name-function. (defalias 'dvc-add-log-file-name #[(buffer-file) "\301\302\303\304 !P\"\203\305\225\306O\207\307!\207" [buffer-file string-match "^" regexp-quote dvc-tree-root 0 nil file-name-nondirectory] 4 (#$ . 8963)]) #@94 Add new DVC log ChangeLog style entry; intended to be invoked from the ediff control buffer. (defalias 'dvc-ediff-add-log-entry #[(&optional other-frame) "\nq\210\305\306\f!*\207" [dvc-buffer-current-active-dvc dvc-temp-current-active-dvc ediff-buffer-B add-log-file-name-function other-frame dvc-add-log-file-name dvc-add-log-entry-internal] 2 (#$ . 9302) "P"]) #@108 Similar to `add-change-log-entry'. Inserts the entry in the dvc log-edit buffer instead of the ChangeLog. (defalias 'dvc-add-log-entry-internal #[(other-frame) "\306\307!\204\n\310\307!\210\311 \312 \313\302!\203\n\203\n \202 \211\205(\314\f!\315 ?\316 ?\"@\317\211AB\317C\320D\321\"\210\322 \210eb\210\323\324\325\326E!D!\317\321#\203ce\327\224}\210\321Ceb\210\323\330!\210`A\331\332!\203z\333\317w\210`B\202\224db\210`B\313\334!\203\213\204\224\335 \210\336y\210`AAb\210\337y\210\323\340B\321#\203\260@\203M@c\210\202M\317F\323\326\341@P!\342PB\321#)\203\374\323\343\317\321#\203\323\327\224b\210\202\333db\210\344\345\336\"\210m\204\356\331\346!\203\356`\347\350!|\210\202\333\344\345\350\"\210\351y\210\352 \210\202MG\203db\210\353\354\317\321#\210\317\210\355c\210\202D\336y\210\331\356!\203\"\336y\210\202m\2045\331\346!\2035`\347\350!|\210\202\"\344\345\357\"\210\351y\210Hj\210\341c\210@\203M@c\210C\203T~\210 \203\303\322 \210\212\360\336!\210\331\361!)\204j\362c\210\363 I\364\365!\203\236\366\317x\203\236\331\366!\203\236`T`\350\\|\210Ji G\\\357\\V\203\236`I|\210\367c\210\202\245Ib\210\370c\210I\317\211\223\210)\353\326 !\371P\317\321#\203\274\372\373!\210 \374\261\202\322\212\360\336!\210\331\375!)?\205\322\376c. \207" [dvc-temp-current-active-dvc defun add-log-buffer-file-name-function buffer-file-name buf-file-name buffer-file featurep add-log require dvc-current-active-dvc add-log-current-defun boundp expand-file-name dvc-log-edit-file-name add-log-file-name nil dvc-log-edit t undo-boundary re-search-forward regexp-opt "^Patches applied:" regexp-quote 0 "\n\n\\|\\'" looking-at "\n*[^\n* ]" "\n" add-log-keep-changes-together backward-paragraph 1 -1 "^\\s *\\*\\s *$" "* " "\\(\\s \\|[(),:]\\)" "^\\s *$\\|^\\s \\*" insert-char 10 "^\\s *$" line-beginning-position 2 -2 indent-relative re-search-backward "^." "\n\n* " "\\sW" 3 beginning-of-line "\\s *$" 32 point-marker skip-syntax-backward " " "):" ", " "(" ",\\s *\\=" replace-match "" "): " "\\s *\\(\\*\\s *\\)?$" ": " file-name entry beg bound narrowing other-frame dvc-log-edit-file-list-marker case-fold-search dvc-log-insert-last left-margin pos fill-column] 6 (#$ . 9675)]) #@108 Register a mapping from a work directory root to a function that provide the initial content for a commit. (defalias 'dvc-log-edit-register-initial-content-function #[(working-copy-root the-function) "\303\304! \n#\207" [working-copy-root the-function dvc-log-edit-init-functions puthash dvc-uniquify-file-name] 4 (#$ . 11926)]) #@151 Insert the initial commit message at point. See `dvc-log-edit-register-initial-content-function' to register functions that provide the message text. (defalias 'dvc-log-edit-insert-initial-commit-message #[nil "\302\303\304 !\"\211\205 c)\207" [dvc-log-edit-init-functions initial-content-function gethash dvc-uniquify-file-name dvc-tree-root] 4 (#$ . 12263) nil]) (provide 'dvc-log)