# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1188094564 0
# Node ID 26de218dc2d95b785ced8ba7be17f6af22313a54
# Parent  f05cf1274ddced03b3562d15cde378d75bde010f
(log-view-toggle-mark-entry): Add docstring.
(log-view-get-marked): Likewise.

diff -r f05cf1274ddc -r 26de218dc2d9 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Aug 26 01:52:30 2007 +0000
+++ b/lisp/ChangeLog	Sun Aug 26 02:16:04 2007 +0000
@@ -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 -r f05cf1274ddc -r 26de218dc2d9 lisp/log-view.el
--- a/lisp/log-view.el	Sun Aug 26 01:52:30 2007 +0000
+++ b/lisp/log-view.el	Sun Aug 26 02:16:04 2007 +0000
@@ -238,6 +238,11 @@
 	    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 @@
 	      (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)