;ELC ;;; Compiled by mwolson@grepfind.mwolson.org on Thu Jan 24 00:15:29 2008 ;;; from file /stuff/proj/emacs/dvc/mwolson/lisp/bzr-revision.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 "`bzr-revision.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305#\210\303\306N\204\302\303\306\307#\210\300\207" [require dvc-revlist put bzr-revision-st-revno cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block bzr-revision-st-revno (or (and (memq (aref cl-x 0) cl-struct-bzr-revision-st-tags)) (error "bzr-revision-st-revno accessing a non-bzr-revision-st")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'bzr-revision-st-revno #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-bzr-revision-st-tags 0 error "bzr-revision-st-revno accessing a non-bzr-revision-st" 1] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put bzr-revision-st-revno setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander bzr-revision-st bzr-revision-st-revno #1=(and (memq (aref cl-x 0) cl-struct-bzr-revision-st-tags)) 1] 6] bzr-revision-st-message cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block bzr-revision-st-message (or #1# (error "bzr-revision-st-message accessing a non-bzr-revision-st")) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'bzr-revision-st-message #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-bzr-revision-st-tags 0 error "bzr-revision-st-message accessing a non-bzr-revision-st" 2] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put bzr-revision-st-message setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander bzr-revision-st bzr-revision-st-message #1=(and (memq (aref cl-x 0) cl-struct-bzr-revision-st-tags)) 2] 6] bzr-revision-st-creator cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block bzr-revision-st-creator (or #1# (error "bzr-revision-st-creator accessing a non-bzr-revision-st")) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'bzr-revision-st-creator #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-bzr-revision-st-tags 0 error "bzr-revision-st-creator accessing a non-bzr-revision-st" 3] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put bzr-revision-st-creator setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander bzr-revision-st bzr-revision-st-creator #1=(and (memq (aref cl-x 0) cl-struct-bzr-revision-st-tags)) 3] 6] bzr-revision-st-branch-nick cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block bzr-revision-st-branch-nick (or #1# (error "bzr-revision-st-branch-nick accessing a non-bzr-revision-st")) (aref cl-x 4)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'bzr-revision-st-branch-nick #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-bzr-revision-st-tags 0 error "bzr-revision-st-branch-nick accessing a non-bzr-revision-st" 4] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put bzr-revision-st-branch-nick setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander bzr-revision-st bzr-revision-st-branch-nick #1=(and (memq (aref cl-x 0) cl-struct-bzr-revision-st-tags)) 4] 6] bzr-revision-st-date cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block bzr-revision-st-date (or #1# (error "bzr-revision-st-date accessing a non-bzr-revision-st")) (aref cl-x 5)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'bzr-revision-st-date #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-bzr-revision-st-tags 0 error "bzr-revision-st-date accessing a non-bzr-revision-st" 5] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put bzr-revision-st-date setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander bzr-revision-st bzr-revision-st-date #1=(and (memq (aref cl-x 0) cl-struct-bzr-revision-st-tags)) 5] 6] bzr-revision-st-merges cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block bzr-revision-st-merges (or #1# (error "bzr-revision-st-merges accessing a non-bzr-revision-st")) (aref cl-x 6)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'bzr-revision-st-merges #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-bzr-revision-st-tags 0 error "bzr-revision-st-merges accessing a non-bzr-revision-st" 6] 2]) (byte-code "\300\301\302\303#\210\300\304\305\306#\210\304\307N\204\300\304\307\310#\210\300\207" [put bzr-revision-st-merges setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander bzr-revision-st bzr-revision-st-merges (and #1=(memq (aref cl-x 0) cl-struct-bzr-revision-st-tags)) 6] 6] bzr-revision-st-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block bzr-revision-st-p (and (vectorp cl-x) (>= (length cl-x) 7) #1# t)) nil] 7] byte-compile cl-byte-compile-compiler-macro] 4) (defalias 'bzr-revision-st-p #[(cl-x) "\302!\205G\303Y\205\304H >\205\305\207" [cl-x cl-struct-bzr-revision-st-tags vectorp 7 0 t] 2]) (defalias 'copy-bzr-revision-st #[(x) "\301!\207" [x copy-sequence] 2]) (byte-code "\300\301\302\303#\210\301\304N\204\300\301\304\305#\210\300\207" [put make-bzr-revision-st cl-compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>A@\203X@\314>\203?AA\211\202*\315>A@\203N\316\211\202*\317\320@\"\210\202()\321\322\323\324\316 \n \f & .\207" [#1# revno message creator branch-nick date :revno :message :creator :branch-nick :date :merges (:revno :message :creator :branch-nick :date :merges :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:revno :message :creator :branch-nick :date :merges)" cl-defsubst-expand (revno message creator branch-nick date merges) (block make-bzr-revision-st (vector 'cl-struct-bzr-revision-st revno message creator branch-nick date merges)) t merges #:--cl-keys-- cl-whole] 13 "Not documented\n\n(fn CL-WHOLE &cl-quote &key REVNO MESSAGE CREATOR BRANCH-NICK DATE MERGES)"] byte-compile cl-byte-compile-compiler-macro] 4) #@73 Not documented (fn &key REVNO MESSAGE CREATOR BRANCH-NICK DATE MERGES) (defalias 'make-bzr-revision-st #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@\312>A@\313>A@\203X@\314>\203?AA\211\202*\315>A@\203N\316\211\202*\317\320@\"\210\202()\321\322 \n \f &.\207" [#1# revno message creator branch-nick date :revno :message :creator :branch-nick :date :merges (:revno :message :creator :branch-nick :date :merges :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:revno :message :creator :branch-nick :date :merges)" vector cl-struct-bzr-revision-st merges #2=#:--cl-keys--] 9 (#$ . 7158)]) (byte-code "\302B\303C\304\305\306\307#\210\304\305\310\311#\210\304\305\312\313#\210\304\305\314\315#\210\304\316\317\315#\210\304\320\317\315#\210\304\321\317\322#\210\304\323\317\315#\210\304\324\317\315#\210\304\325\317\315#\210\304\326\317\315#\210\304\327\317\315#\210\304\330\317\315#\207" [custom-print-functions cl-struct-bzr-revision-st-tags #[(cl-x cl-s cl-n) "\303!\205\260G\304Y\205\260\305H >\205\260\306\307\n\"\210\306\310\n\"\210\311\305H >\204,\312\313!\210\314H\n\"\210\306\315\n\"\210\311\305H >\204D\312\316!\210\317H\n\"\210\306\320\n\"\210\311\305H >\204\\\312\321!\210\322H\n\"\210\306\323\n\"\210\311\305H >\204t\312\324!\210\325H\n\"\210\306\326\n\"\210\311\305H >\204\214\312\327!\210\330H\n\"\210\306\331\n\"\210\311\305H >\204\244\312\332!\210\333H\n\"\210\306\334\n\"\210\335\207" [cl-x cl-struct-bzr-revision-st-tags cl-s vectorp 7 0 princ "#S(bzr-revision-st" " revno" prin1 error "bzr-revision-st-revno accessing a non-bzr-revision-st" 1 " message" "bzr-revision-st-message accessing a non-bzr-revision-st" 2 " creator" "bzr-revision-st-creator accessing a non-bzr-revision-st" 3 " branch-nick" "bzr-revision-st-branch-nick accessing a non-bzr-revision-st" 4 " date" "bzr-revision-st-date accessing a non-bzr-revision-st" 5 " merges" "bzr-revision-st-merges accessing a non-bzr-revision-st" 6 ")" t] 3] cl-struct-bzr-revision-st put bzr-revision-st cl-struct-slots ((cl-tag-slot) (revno) (message) (creator) (branch-nick) (date) (merges)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t make-bzr-revision-st side-effect-free copy-bzr-revision-st bzr-revision-st-p error-free bzr-revision-st-merges bzr-revision-st-date bzr-revision-st-branch-nick bzr-revision-st-creator bzr-revision-st-message bzr-revision-st-revno] 4) #@6 TODO (defalias 'bzr-revision-list-entry-patch-printer #[(elem) "\306!\203G\307Y\203\310H >\204\311\312!\210\313H\203&\314\n\314Q\202'\315c\210\306!\203>G\307Y\203>\310H >\204B\311\316!\210\317H\320\321\322\211\211!45\203\346\3234!6!9\205m\324\325\326\327!!\"!7\f\203w\f\202\205 \205\205\330 !;\205\205\330 !87\203\2428\203\2358\331\332\3317\260\202\2437\202\243\f9!9\203\261!J\202\263!!\333\3106G\334\335\336!\205\320\337\340\341!\3429\257 \205\327\343 D\"BBBB6$\2106-\202\3504-\344 \310H:>\204\367\311\345!\210 \346H\206\376\347!\350\322\211\211!45\203\236\3234!6!9\205%\324\325\326\327!!\"!7\f\203/\f\202= \205=\330 !;\205=\330 !87\203Z8\203U8\331\332\3317\260\202[7\202[\f9!9\203i!J\202k!!\333\3106G\334\335\336!\205\210\337\340\341!\3429\257 \205\217\343 D\"BBBB6$\2106-\202\2404-\331\261\210;\203f\315\351\321\322\211\211!45\203K\3234!6!9\205\322\324\325\326\327!!\"!7\f\203\334\f\202\352 \205\352\330 !;\205\352\330 !87\2038\2038\331\332\3317\260\2027\202\f9!9\203!J\202!!\333\3106G\334\335\336!\2055\337\340\341!\3429\257 \205<\343 D\"BBBB6$\2106-\202M4- \310H:>\204[\311\352!\210 \317H\206b\353\331\261\210<\203'\315\354\321\322\211\211!45\203\f\3234!6!9\205\223\324\325\326\327!!\"!7\f\203\235\f\202\253 \205\253\330 !;\205\253\330 !87\203\3108\203\3038\331\332\3317\260\202\3117\202\311\f9!9\203\327!J\202\331!!\333\3106G\334\335\336!\205\366\337\340\341!\3429\257 \205\375\343 D\"BBBB6$\2106-\2024- \310H:>\204\311\355!\210 \356H\206#\353\331\261\210\315\357\321\322\211\211!45\203\310\3234!6!9\205O\324\325\326\327!!\"!7\f\203Y\f\202g \205g\330 !;\205g\330 !87\203\2048\2038\331\332\3317\260\202\2057\202\205\f9!9\203\223!J\202\225!!\333\3106G\334\335\336!\205\262\337\340\341!\3429\257 \205\271\343 D\"BBBB6$\2106-\202\3124- \310H:>\204\330\311\360!\210 \361H\206\337\353\331\261\210=\205\243\315\362\321\322\211\211!45\203\211\3234!6!9\205\324\325\326\327!!\"!7\f\203\f\202( \205(\330 !;\205(\330 !87\203E8\203@8\331\332\3317\260\202F7\202F\f9!9\203T!J\202V!!\333\3106G\334\335\336!\205s\337\340\341!\3429\257 \205z\343 D\"BBBB6$\2106-\202\2134- \310H:>\204\231\311\363!\210 \313H\206\240\353\331\261)\207" [elem cl-struct-dvc-revlist-entry-patch-tags dvc-mark struct help menu vectorp 8 0 error "dvc-revlist-entry-patch-marked accessing a non-dvc-revlist-entry-patch" 2 " " " " "dvc-revlist-entry-patch-struct accessing a non-dvc-revlist-entry-patch" 3 "revno: " dvc-header nil copy-sequence substitute-command-keys format "\\{%s}" symbol-name cadr "\n" "================" add-text-properties face font-lock-face append mouse-face highlight keymap help-echo dvc-cmenu int-to-string "bzr-revision-st-revno accessing a non-bzr-revision-st" 1 -99 dvc-revision-name "committer: " "bzr-revision-st-creator accessing a non-bzr-revision-st" "?" "timestamp: " "bzr-revision-st-date accessing a non-bzr-revision-st" 5 "branch nick: " "bzr-revision-st-branch-nick accessing a non-bzr-revision-st" 4 "message: " "bzr-revision-st-message accessing a non-bzr-revision-st" str dvc-highlight strcpy key-help prefix-help long-help cl-struct-bzr-revision-st-tags dvc-revisions-shows-creator dvc-revisions-shows-date dvc-revisions-shows-summary] 15 (#$ . 9630)]) (defalias 'bzr-log-parse-remote #[(log-buffer location) "\302 \303#\207" [log-buffer location bzr-log-parse t] 4]) #@34 Parse the output of bzr missing. (defalias 'bzr-missing-parse #[(log-buffer location) "\302 \303\304$\207" [log-buffer location bzr-log-parse nil t] 5 (#$ . 13277)]) #@30 Parse the output of bzr log. (defalias 'bzr-log-parse #[(log-buffer location &optional remote missing) "eb\210\306r q\210\n)0\203'\307\310!\210\311e`\"r q\210\3061\fc\210*d`V\205\300\312y\210`\306\211\313\314\306\211\211\211\211\211&2345\307\310\306\315#\203S\316 \210\202Vdb\210\214\2125`S}\210eb\210\307\317\306\315#\203z\320\312!\321\230\203\22726\322\311`\323 \"!76\324H8>\204\214\325\326!\2106\3127I\210*\202q\320\312!\327\230\203\30329\311`\323 \":9\324H8>\204\270\325\330!\2109\331:I\210*\202q\320\312!\332\230\203\3572;\311`\323 \"<;\324H8>\204\344\325\333!\210;\334=\324H8>\204\325\336!\210=\337>I\210*\202q\320\312!\340\230\203j\307\341!\210`4 \2033\323 \202@\307\342\306\315#\203?`\202@d32?\31143\"@?\324H8>\204\\\325\343!\210?\344@I\210*db\210\202q\345\346\320\312!\"\210\312y\210\316 \210\202a*\312y\210r q\210\347A\350\313\351\352\3062\352\353,\203\227\354\202\230\355 2\324H8>\204\247\325\356!\2102\312HEDD\306\211\211&D\"\210eb\210\357 \210-\202'+\207" [location log-buffer dvc-revlist-brief brief intro-string root nil re-search-forward "^------------------------------------------------------------$" buffer-substring-no-properties 1 vector cl-struct-bzr-revision-st t beginning-of-line "^\\([a-z][a-z ]*[a-z]\\):\\( \\|\n\\)" match-string "revno" string-to-number line-end-position 0 error "bzr-revision-st-revno storing a non-bzr-revision-st" "committer" "bzr-revision-st-creator storing a non-bzr-revision-st" 3 "branch nick" "bzr-revision-st-branch-nick storing a non-bzr-revision-st" 4 "timestamp" "bzr-revision-st-date storing a non-bzr-revision-st" 5 "message" "^[ ]*" "^--------" "bzr-revision-st-message storing a non-bzr-revision-st" 2 dvc-trace "unmanaged field %S" ewoc-enter-last entry-patch cl-struct-dvc-revlist-entry-patch bzr revision remote local "bzr-revision-st-revno accessing a non-bzr-revision-st" dvc-revision-prev missing buffer-read-only elem message-end-pos message-start-pos start #1=#:--cl-x-- #2=#:--cl-store-- cl-struct-bzr-revision-st-tags #3=#:--cl-x-- #4=#:--cl-store-- #5=#:--cl-x-- #6=#:--cl-store-- #7=#:--cl-x-- #8=#:--cl-store-- #9=#:--cl-x-- #10=#:--cl-store-- dvc-revlist-cookie] 14 (#$ . 13450)]) #@23 Refresh a log buffer. (defalias 'bzr-log-refresh #[nil "\305\306\307\310C\205\311\312\313\"D C#\"\314\315\316 \n\317\f \320& \210)eb\207" [dvc-revlist-last-n dvc-revlist-path cmd default-directory dvc-revlist-brief remove nil append "log" "-r" format "last:%d.." dvc-build-revision-list bzr log bzr-log-parse bzr-log-refresh] 10 (#$ . 15752)]) #@259 Run bzr log for PATH and show only the first line of the log message. LAST-N revisions are shown (default dvc-log-last-n). Note that the LAST-N restriction is applied first, so if both PATH and LAST-N are specified, fewer than LAST-N revisions may be shown. (defalias 'bzr-log #[(path last-n) "\306\206 !\307\n\310 ,\207" [path default-directory last-n dvc-revlist-last-n dvc-revlist-brief dvc-revlist-path bzr-tree-root t bzr-log-refresh] 4 (#$ . 16109) (list default-directory (if current-prefix-arg (prefix-numeric-value current-prefix-arg) dvc-log-last-n))]) #@40 Run bzr log against a remote location. (defalias 'bzr-log-remote #[(location) "\301\302\303\304D\305\306\307\211\310\307\311\312\313CDEE& \210eb\207" [location dvc-build-revision-list bzr remote-log "log" bzr-log-parse-remote t nil lambda apply #[(#1=#:dvc-gensym-uniq-0) "\301!\207" [#1# bzr-log-remote] 2] quote] 15 (#$ . 16686) (list (read-string "Location of the branch: "))]) #@44 Run bzr log and show the full log message. (defalias 'bzr-changelog #[(&optional path) "\302\206 !\303\304\305 \306\307\310\211\311\310\312\313\314CDEE& \210eb)\207" [path default-directory bzr-tree-root dvc-build-revision-list bzr log ("log") bzr-log-parse nil lambda apply #[(#1=#:dvc-gensym-uniq-1) "\301!\207" [#1# bzr-changelog] 2] quote] 15 (#$ . 17077) (list default-directory)]) #@18 Run bzr missing. (defalias 'bzr-missing #[(&optional other) "\301\230\203\302\303\304\305\306 \307D\310\302\211\211\311\302\312\313\314CDEE& \210eb\207" [other "" nil dvc-build-revision-list bzr missing bzr-tree-root "missing" bzr-missing-parse lambda apply #[(#1=#:dvc-gensym-uniq-2) "\301!\207" [#1# bzr-missing] 2] quote] 15 (#$ . 17477) "sBzr missing against other: "]) (provide 'bzr-revision)