Current File : //usr/local/share/emacs/27.2/lisp/vc/log-view.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\"\210\302\305\304\"\210\306\307\310\311\312\313\314\315&\207" [require pcvs-util autoload vc-find-revision "vc" vc-diff-internal custom-declare-group log-view nil "Major mode for browsing log output of revision log histories." :group pcl-cvs :prefix "log-view-"] 8)
#@20 Log-View's keymap.
(defconst log-view-mode-map (byte-code "\302\303\304\305\300!\205\n \306 \307\310F$\207" [log-view-mode-map special-mode-map easy-mmode-define-keymap (("-" . negative-argument) ("0" . digit-argument) ("1" . digit-argument) ("2" . digit-argument) ("3" . digit-argument) ("4" . digit-argument) ("5" . digit-argument) ("6" . digit-argument) ("7" . digit-argument) ("8" . digit-argument) ("9" . digit-argument) ("
" . log-view-toggle-entry-display) ("m" . log-view-toggle-mark-entry) ("e" . log-view-modify-change-comment) ("d" . log-view-diff) ("=" . log-view-diff) ("D" . log-view-diff-changeset) ("a" . log-view-annotate-version) ("f" . log-view-find-revision) ("n" . log-view-msg-next) ("p" . log-view-msg-prev) (" " . log-view-msg-next) ([backtab] . log-view-msg-prev) ("N" . log-view-file-next) ("P" . log-view-file-prev) ("\356" . log-view-file-next) ("\360" . log-view-file-prev)) nil boundp :inherit :group log-view] 8) (#$ . 713))
#@23 Log-View Display Menu
(defvar log-view-mode-menu nil (#$ . 1676))
(easy-menu-do-define 'log-view-mode-menu log-view-mode-map "Log-View Display Menu" '("Log-View" ["Mark Log Entry for Diff" set-mark-command :help ""] ["Diff Revisions" log-view-diff :help "Get the diff between two revisions"] ["Changeset Diff" log-view-diff-changeset :help "Get the changeset diff between two revisions"] ["Visit Version" log-view-find-revision :help "Visit the version at point"] ["Annotate Version" log-view-annotate-version :help "Annotate the version at point"] ["Modify Log Comment" log-view-modify-change-comment :help "Edit the change comment displayed at point"] ["Toggle Details at Point" log-view-toggle-entry-display :active log-view-expanded-log-entry-function] "-----" ["Next Log Entry" log-view-msg-next :help "Go to the next count'th log message"] ["Previous Log Entry" log-view-msg-prev :help "Go to the previous count'th log message"] ["Next File" log-view-file-next :help "Go to the next count'th file"] ["Previous File" log-view-file-prev :help "Go to the previous count'th file"]))
#@41 Hook run at the end of `log-view-mode'.
(defvar log-view-mode-hook nil (#$ . 2767))
#@257 Function returning the detailed description of a Log View entry.
It is called by the command `log-view-toggle-entry-display' with
one arg, the revision tag (a string), and should return a string.
If it is nil, `log-view-toggle-entry-display' does nothing.
(defvar log-view-expanded-log-entry-function nil (#$ . 2858))
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\207" [custom-declare-face log-view-file ((((class color) (background light)) (:background "grey70" :weight bold :extend t)) (t (:weight bold :extend t))) "Face for the file header line in `log-view-mode'." :group log-view log-view-message ((((class color) (background light)) (:background "grey85" :extend t)) (t (:weight bold :extend t))) "Face for the message header line in `log-view-mode'."] 6)
#@108 Regexp matching the text identifying the file.
The match group number 1 should match the file name itself.
(defvar log-view-file-re "^\\(?:Working file: \\(?1:.+\\)\\|\\(?:SCCS/s\\.\\|Changes to \\)\\(?1:.+\\):\\)\n" (#$ . 3649))
#@52 Set to t if the logs are shown one file at a time.
(defvar log-view-per-file-logs t (#$ . 3885))
#@116 Regexp matching the text identifying a revision.
The match group number 1 should match the revision number itself.
(defvar log-view-message-re "^\\(?:revision \\(?1:[.0-9]+\\)\\(?: .*\\)?\\|r\\(?1:[0-9]+\\) | .* | .*\\|D \\(?1:[.0-9]+\\) .*\\|[^ \n].*[^0-9\n][0-9][0-9]:[0-9][0-9][^0-9\n].*[^ \n] .*@.*\n\\(?: \\* \\(?1:.*\\)\\)?\\)$" (#$ . 3989))
(defvar log-view-font-lock-keywords '((eval \` ((\, log-view-file-re) (1 (if (boundp 'cvs-filename-face) cvs-filename-face)) (0 'log-view-file append))) (eval \` ((\, log-view-message-re) quote log-view-message))))
(defconst log-view-font-lock-defaults '(log-view-font-lock-keywords t nil nil nil))
#@50 The VC fileset corresponding to the current log.
(defvar log-view-vc-fileset nil (#$ . 4644))
#@46 The VC backend that created the current log.
(defvar log-view-vc-backend nil (#$ . 4744))
(defvar log-view-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [log-view-mode-hook variable-documentation put "Hook run after entering Log-View mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp log-view-mode-map definition-name log-view-mode] 4)
(defvar log-view-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [log-view-mode-abbrev-table log-view-mode-map variable-documentation put purecopy "Keymap for `log-view-mode'." boundp log-view-mode-syntax-table definition-name log-view-mode (lambda (#1=#:def-tmp-var) (defvar log-view-mode-syntax-table #1#)) make-syntax-table "Syntax table for `log-view-mode'." (lambda (#1#) (defvar log-view-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `log-view-mode'." derived-mode-parent special-mode] 5)
#@238 Major mode for browsing CVS log output.
In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `log-view-mode-hook', as the final or penultimate step
during initialization.
\{log-view-mode-map}
(defalias 'log-view-mode #[0 "\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\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
#=\204R \326
\325#C#\210\327 !\210\330\f!\210
#\307$\306\331!\210%\306\332!\210\333\306\334!\210\335 \306\336!\210\337 \340 \210)\341\342!\207" [delay-mode-hooks major-mode mode-name log-view-mode-map log-view-mode-syntax-table log-view-mode-abbrev-table make-local-variable t special-mode log-view-mode "Log-View" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table font-lock-defaults beginning-of-defun-function log-view-beginning-of-defun end-of-defun-function log-view-end-of-defun cvs-minor-wrap-function log-view-minor-wrap hack-dir-local-variables-non-file-buffer run-mode-hooks log-view-mode-hook local-abbrev-table buffer-read-only log-view-font-lock-defaults] 5 (#$ . 6012) nil])
#@132 Go to the next COUNT'th log message.
Interactively, COUNT is the prefix numeric argument, and defaults to 1.
(fn &optional COUNT)
(defalias 'log-view-msg-next #[256 "\211\204 \301\262\211\302W\203 \303[!\207\304!\203 \211T\262\305\306\307$\2043 \304!\203. db\207\310\311\312\"\207\302\224b\210p\313 =\205n \314\315!\205n \212\305\306\307\316$)\206P d\317\306\307#?\205l \320 \321\322!\210\320 W\205j \323\306\"\262\262\207" [log-view-message-re 1 0 log-view-msg-prev looking-at re-search-forward nil t user-error "No next %s" "log message" window-buffer called-interactively-p interactive 2 pos-visible-in-window-p window-start recenter (0) set-window-start] 6 (#$ . 7327) "p"])
(put 'log-view-msg-next 'definition-name 'log-view-msg)
#@136 Go to the previous COUNT'th log message.
Interactively, COUNT is the prefix numeric argument, and defaults to 1.
(fn &optional COUNT)
(defalias 'log-view-msg-prev #[256 "\211\204 \301\262\211\302W\203 \303[!\207\304\305\306$?\205 \307\310\311\"\207" [log-view-message-re 1 0 log-view-msg-next re-search-backward nil t user-error "No previous %s" "log message"] 6 (#$ . 8086) "p"])
(put 'log-view-msg-prev 'definition-name 'log-view-msg)
#@125 Go to the next COUNT'th file.
Interactively, COUNT is the prefix numeric argument, and defaults to 1.
(fn &optional COUNT)
(defalias 'log-view-file-next #[256 "\211\204 \301\262\211\302W\203 \303[!\207\304!\203 \211T\262\305\306\307$\2043 \304!\203. db\207\310\311\312\"\207\302\224b\210p\313 =\205n \314\315!\205n \212\305\306\307\316$)\206P d\317\306\307#?\205l \320 \321\322!\210\320 W\205j \323\306\"\262\262\207" [log-view-file-re 1 0 log-view-file-prev looking-at re-search-forward nil t user-error "No next %s" "file" window-buffer called-interactively-p interactive 2 pos-visible-in-window-p window-start recenter (0) set-window-start] 6 (#$ . 8538) "p"])
(put 'log-view-file-next 'definition-name 'log-view-file)
#@129 Go to the previous COUNT'th file.
Interactively, COUNT is the prefix numeric argument, and defaults to 1.
(fn &optional COUNT)
(defalias 'log-view-file-prev #[256 "\211\204 \301\262\211\302W\203 \303[!\207\304\305\306$?\205 \307\310\311\"\207" [log-view-file-re 1 0 log-view-file-next re-search-backward nil t user-error "No previous %s" "file"] 6 (#$ . 9284) "p"])
(put 'log-view-file-prev 'definition-name 'log-view-file)
#@31 Go to revision REV.
(fn REV)
(defalias 'log-view-goto-rev #[257 "eb\210\3001 \211\301 \232\204 \302 \210\202 \3030\207\210\304\207" [(error) log-view-current-tag log-view-msg-next t nil] 3 (#$ . 9722)])
(defconst log-view-dir-re "^cvs[.ex]* [a-z]+: Logging \\(.+\\)$")
#@26 Return the current file.
(defalias 'log-view-current-file #[0 "\212\304y\210\305\306\307#\204 \310\306\307#\204 \311\312!\210\313\304!\305 \306\307#\205& \313\304!\314\302!\2057 \305\n\306\307#\2057 \313\304!\315\211\203D \316\"\262\203N \316\"\262)\316\"\266\204)\207" [log-view-file-re log-view-dir-re cvs-pcl-cvs-dirchange-re default-directory 1 re-search-backward nil t re-search-forward error "Unable to determine the current file" match-string boundp "" expand-file-name] 7 (#$ . 10001)])
#@352 Return the position and revision tag of the Log View entry at POS.
This is a list (BEG TAG), where BEG is a buffer position and TAG
is a string. If POS is nil or omitted, it defaults to point.
If there is no entry at POS, return nil.
If optional arg MOVE is non-nil, move point to BEG if found.
Otherwise, don't move point.
(fn &optional POS MOVE)
(defalias 'log-view-current-entry #[512 "\301\302\212\203\n b\210\303y\210\304\305!\203 \306\202 \307y\210\2031 \310\302\311#\262\205, \312`!\262\202 \203< \313\307!D\262)\203H \211\203H b\210\207" [log-view-message-re t nil 0 looking-at "-\\{20,\\}$" 2 1 re-search-backward move log-view-inside-comment-p match-string-no-properties] 8 (#$ . 10518)])
#@68 Return non-nil if POS lies inside an expanded log entry.
(fn POS)
(defalias 'log-view-inside-comment-p #[257 "\300\301\"\302=\207" [get-text-property log-view-comment t] 4 (#$ . 11241)])
#@134 Return the revision tag (a string) of the Log View entry at POS.
if POS is omitted or nil, it defaults to point.
(fn &optional POS)
(defalias 'log-view-current-tag #[256 "\300!A@\207" [log-view-current-entry] 3 (#$ . 11437)])
#@247 Toggle the marked state for the log entry at point.
Individual log entries can be marked and unmarked. The marked
entries are denoted by changing their background color.
`log-view-get-marked' returns the list of tags for the marked
log entries.
(defalias 'log-view-toggle-mark-entry #[0 "\212\300\301\302\"\211@\301\205H \303\304\"\262\211\203 \305!\202H \306\307\"\203* \310\311\"\202. \312 \210`\313\"\314\315\316#\210\314\304#\210\314\317A@#\266\202\266\203)\207" [log-view-current-entry nil t get-char-property log-view-self delete-overlay get-text-property log-view-entry-expanded next-single-property-change log-view-comment log-view-end-of-defun make-overlay overlay-put face log-view-file log-view-marked] 9 (#$ . 11672) nil])
#@53 Return the list of tags for the marked log entries.
(defalias 'log-view-get-marked #[0 "\212e\300\211\301\302\"\211\262\203( \303\304\"\211\262\203 \305\306\"B\262\307!\262\202 \266\203)\207" [nil next-single-property-change face get-char-property log-view-self overlay-get log-view-marked overlay-end] 6 (#$ . 12429)])
#@115 If possible, expand the current Log View entry.
This calls `log-view-expanded-log-entry-function' to do the work.
(defalias 'log-view-toggle-entry-display #[0 "\302!\205u `\303\304\305\"\211@\304\205r \306\307\"\203L \310\311\"\211\203( \312!\204, \313\314!\210\211\310\311\"\2065 d|\210\315\211T\307\304$\210W\205G b\262\202r A@!\211\205p \315\211T\307\305$\210\316 \210`\262\211\317\261\210\320`\321#\210b\262)\266\203\207" [log-view-expanded-log-entry-function buffer-read-only functionp log-view-current-entry nil t get-text-property log-view-entry-expanded next-single-property-change log-view-comment log-view-inside-comment-p error "Broken markup in `log-view-toggle-entry-display'" put-text-property log-view-end-of-defun "\n" add-text-properties (font-lock-face font-lock-comment-face log-view-comment t)] 9 (#$ . 12768) nil])
#@329 Move backward to the beginning of a Log View entry.
With ARG, do it that many times. Negative ARG means move forward
to the beginning of the ARGth following entry.
This is Log View mode's default `beginning-of-defun-function'.
It assumes that a log entry starts with a line matching
`log-view-message-re'.
(fn &optional ARG)
(defalias 'log-view-beginning-of-defun #[256 "\211\204 \300\262\211\301W\203 \302[!\207\303\301V\203J S\262\304 \211\204* eb\210\305\202E \211@`Y\203@ o\204< \306y\210T\262\305\202E \211@b\210\303\266\202\202 \211\207" [1 0 log-view-end-of-defun t log-view-current-entry nil -1] 5 (#$ . 13631)])
#@42 Move forward to the next Log View entry.
(defalias 'log-view-end-of-defun-1 #[0 "\301\302!\203 \303\225b\210\211\205B \304\305\306#\203' \307`!\204 \305\262\303\224b\210\202 \310\311\312 \"\2038 \305\262\313y\210\202 m\203 \305\262\202 \207" [log-view-message-re t looking-at 0 re-search-forward nil move log-view-inside-comment-p looking-back "Show 2X entries Show unlimited entries" line-beginning-position -1] 5 (#$ . 14271)])
#@89 Move forward to the next Log View entry.
Works like `end-of-defun'.
(fn &optional ARG)
(defalias 'log-view-end-of-defun #[256 "\211\204 \300\262\211\301W\203 \302[!\207\211\301\211W\205& \211\303 \266\211T\262\202 \207" [1 0 log-view-beginning-of-defun log-view-end-of-defun-1] 5 (#$ . 14721)])
#@14
(fn BUF F)
(defalias 'log-view-minor-wrap #[514 "rq\210`\304 \203 \305 \202 `\306!\306!\230\203( \212b\210\307 \210\306 \262)\310 B\310 BB\266\204)\211@A@A\205@ AA@@A@\205X @@A@\232?\205X A@CB\311 ,\207" [cvs-force-command cvs-minor-current-files cvs-secondary-branch-prefix cvs-branch-prefix use-region-p mark log-view-current-tag log-view-msg-next log-view-current-file "/F"] 9 (#$ . 15031)])
#@90 Visit the version at POS.
If called interactively, visit the version at point.
(fn POS)
(defalias 'log-view-find-revision #[257 "\204 G\302V\204 @\203 \303 @!\203 \304\305!\210\212\211b\210\306\307\203* \310 \202, @\311 \"!)\207" [log-view-per-file-logs log-view-vc-fileset 1 file-directory-p user-error "Multiple files shown in this buffer, cannot use this command here" switch-to-buffer vc-find-revision log-view-current-file log-view-current-tag] 5 (#$ . 15457) "d"])
#@57 Parse comment from around the current point in the log.
(defalias 'log-view-extract-comment #[0 "\212\300\211\301\302 !\303 \210\211\304=\203 \305y\210`\262\306\300\307\"\204\" \310\311\300\"\210\211\312\267\2027 \313y\210\2027 \314y\210\315\316\300\307#\210`\262{\266\203)\207" [nil vc-backend log-view-current-file log-view-end-of-defun SVN -1 log-view-current-entry t throw beginning-of-buffer #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (SCCS 40 RCS 40 CVS 40 SVN 40 Hg 46)) 2 4 re-search-forward "summary: *"] 7 (#$ . 15944)])
#@45 Edit the change comment displayed at point.
(defalias 'log-view-modify-change-comment #[0 "\302\203\n \303 \202\f @C\304 \305 #\207" [log-view-per-file-logs log-view-vc-fileset vc-modify-change-comment log-view-current-file log-view-current-tag log-view-extract-comment] 4 (#$ . 16528) nil])
#@96 Annotate the version at POS.
If called interactively, annotate the version at point.
(fn POS)
(defalias 'log-view-annotate-version #[257 "\204 G\302V\204 @\203 \303 @!\203 \304\305!\210\212\211b\210\306\203) \307 \202+ @\310 \")\207" [log-view-per-file-logs log-view-vc-fileset 1 file-directory-p user-error "Multiple files shown in this buffer, cannot use this command here" vc-annotate log-view-current-file log-view-current-tag] 4 (#$ . 16828) "d"])
#@404 Get the diff between two revisions.
If the region is inactive or the mark is on the revision at
point, get the diff between the revision at point and its
previous revision. Otherwise, get the diff between the revisions
where the region starts and ends.
Unlike `log-view-diff-changeset', this function only shows the
part of the changeset which affected the currently considered
file(s).
(fn BEG END)
(defalias 'log-view-diff #[514 "\300\"\207" [log-view-diff-common] 5 (#$ . 17298) (byte-code "\300 \203\n \301 \202 `\300 \203 \302 \202 `D\207" [use-region-p region-beginning region-end] 2)])
#@413 Get the diff between two revisions.
If the region is inactive or the mark is on the revision at
point, get the diff between the revision at point and its
previous revision. Otherwise, get the diff between the revisions
where the region starts and ends.
Unlike `log-view-diff' this function shows the whole changeset,
including changes affecting other files than the currently
considered file(s).
(fn BEG END)
(defalias 'log-view-diff-changeset #[514 "\302\303\"\304=\203 \305\306\"\210\307 \310\311#)\207" [log-view-vc-backend default-directory vc-call-backend revision-granularity file error "The %s backend does not support changeset diffs" vc-root-dir log-view-diff-common t] 6 (#$ . 17906) (byte-code "\300 \203\n \301 \202 `\300 \203 \302 \202 `D\207" [use-region-p region-beginning region-end] 2)])
#@42
(fn BEG END &optional WHOLE-CHANGESET)
(defalias 'log-view-diff-common #[770 "\303!\304!\211A@\211\230\204 \212b\210\305 \210`)Y\203% \306\307\310$\262\311\312?\2059 \2038 \313 C\2029 \nD$\207" [log-view-vc-backend log-view-per-file-logs log-view-vc-fileset log-view-current-tag log-view-current-entry log-view-end-of-defun vc-call-backend previous-revision nil vc-diff-internal t log-view-current-file] 11 (#$ . 18729)])
(provide 'log-view)
Mini Shell