Mercurial > emacs
changeset 82852:26de218dc2d9
(log-view-toggle-mark-entry): Add docstring.
(log-view-get-marked): Likewise.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sun, 26 Aug 2007 02:16:04 +0000 |
| parents | f05cf1274ddc |
| children | 64745654ddea |
| files | lisp/ChangeLog lisp/log-view.el |
| diffstat | 2 files changed, 9 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)