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

(log-view-get-marked): Likewise.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 005a2ddeb408efdcb568f03629b3219f826ce894..d6eba286392c0258bc4bef0b0cd9bb05de87ee32 100644 (file)
--- 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 4fe2200b4ea39b5624f4bd39907757ae665f869d..a904a0355ddf6b00722dfde9c888da55e31bb453 100644 (file)
--- 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)