From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Sun, 26 Aug 2007 02:16:04 +0000 (+0000)
Subject: (log-view-toggle-mark-entry): Add docstring.
X-Git-Tag: emacs-pretest-23.0.90~11305
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a090236093d5aa6aa633e0cdea22af2f712e38b1;p=emacs.git

(log-view-toggle-mark-entry): Add docstring.
(log-view-get-marked): Likewise.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 005a2ddeb40..d6eba286392 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,9 @@
 
 2007-08-26  Dan Nicolaescu  <dann@ics.uci.edu>
 
+	* log-view.el (log-view-toggle-mark-entry): Add docstring.
+	(log-view-get-marked): Likewise.
+
 	* vc-hooks.el (vc-registered): Use mapc instead of mapcar.
 	(vc-delete-automatic-version-backups): Likewise.
 
diff --git a/lisp/log-view.el b/lisp/log-view.el
index 4fe2200b4ea..a904a0355dd 100644
--- a/lisp/log-view.el
+++ b/lisp/log-view.el
@@ -238,6 +238,11 @@ The match group number 1 should match the revision number itself.")
 	    rev))))))
 
 (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
+entries are denoted by changing their background color.
+`log-view-get-marked' returns the list of tags for the marked
+log entries."
   (interactive)
   (save-excursion
     (forward-line 1)
@@ -265,6 +270,7 @@ The match group number 1 should match the revision number itself.")
 	      (overlay-put ov 'log-view-marked tag))))))))
 
 (defun log-view-get-marked ()
+  "Return the list of tags for the marked log entries."
   (save-excursion
     (let ((pos (point-min))
 	  marked-list ov)