From fe054b631715c00872fcda7c02f9483aec026916 Mon Sep 17 00:00:00 2001 From: Xue Fuqiao Date: Sun, 2 Jun 2013 19:40:20 +0800 Subject: [PATCH] * vc/log-view.el: Doc fix. --- lisp/ChangeLog | 2 +- lisp/vc/log-view.el | 12 ++++++++---- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 70e421286db..e37abcaf081 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,6 @@ 2013-06-02 Xue Fuqiao - * vc/log-view.el: Header fix. + * vc/log-view.el: Doc fix. 2013-06-02 Tassilo Horn diff --git a/lisp/vc/log-view.el b/lisp/vc/log-view.el index 7475a4d7404..2c9a2c59cdd 100644 --- a/lisp/vc/log-view.el +++ b/lisp/vc/log-view.el @@ -117,7 +117,7 @@ (defvar cvs-force-command) (defgroup log-view nil - "Major mode for browsing log output of RCS/CVS/SCCS." + "Major mode for browsing log output of revision log histories." :group 'pcl-cvs :prefix "log-view-") @@ -275,6 +275,7 @@ The match group number 1 should match the revision number itself.") (easy-mmode-define-navigation log-view-file log-view-file-re "file") (defun log-view-goto-rev (rev) + "Go to revision REV." (goto-char (point-min)) (ignore-errors (while (not (equal rev (log-view-current-tag))) @@ -288,6 +289,7 @@ The match group number 1 should match the revision number itself.") (defconst log-view-dir-re "^cvs[.ex]* [a-z]+: Logging \\(.+\\)$") (defun log-view-current-file () + "Return the current file." (save-excursion (forward-line 1) (or (re-search-backward log-view-file-re nil t) @@ -340,7 +342,7 @@ if POS is omitted or nil, it defaults to point." (defun log-view-toggle-mark-entry () "Toggle the marked state for the log entry at point. -Individual log entries can be marked and unmarked. The marked +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." @@ -479,7 +481,8 @@ It assumes that a log entry starts with a line matching (funcall f)))) (defun log-view-find-revision (pos) - "Visit the version at point." + "Visit the version at POS. +If called interactively, visit the version at point." (interactive "d") (unless log-view-per-file-logs (when (> (length log-view-vc-fileset) 1) @@ -521,7 +524,8 @@ It assumes that a log entry starts with a line matching (log-view-extract-comment))) (defun log-view-annotate-version (pos) - "Annotate the version at point." + "Annotate the version at POS. +If called interactively, annotate the version at point." (interactive "d") (unless log-view-per-file-logs (when (> (length log-view-vc-fileset) 1) -- 2.39.2