# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1187976480 0
# Node ID 0d52789c865ed374d8054869b89001a50220d878
# Parent  28d469c7ec2a4b0efcb1033cc7f898552e5c0041
(log-view-toggle-mark-entry): New function.
(log-view-mode-map): Bind it.
(log-view-marked-list): New variable.
(log-view-mode): Make it local.

diff -r 28d469c7ec2a -r 0d52789c865e lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Aug 24 17:09:30 2007 +0000
+++ b/lisp/ChangeLog	Fri Aug 24 17:28:00 2007 +0000
@@ -1,3 +1,10 @@
+2007-08-24  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* log-view.el (log-view-toggle-mark-entry): New function.
+	(log-view-mode-map): Bind it.
+	(log-view-marked-list): New variable.
+	(log-view-mode): Make it local.
+
 2007-08-24  Thien-Thi Nguyen  <ttn@gnuvola.org>
 
 	* play/zone.el (zone-pgm-rat-race): New func.
diff -r 28d469c7ec2a -r 0d52789c865e lisp/log-view.el
--- a/lisp/log-view.el	Fri Aug 24 17:09:30 2007 +0000
+++ b/lisp/log-view.el	Fri Aug 24 17:28:00 2007 +0000
@@ -89,7 +89,7 @@
 (easy-mmode-defmap log-view-mode-map
   '(("q" . quit-window)
     ("z" . kill-this-buffer)
-    ("m" . set-mark-command)
+    ("m" . log-view-toggle-mark-entry)
     ;; ("e" . cvs-mode-edit-log)
     ("d" . log-view-diff)
     ("f" . log-view-find-version)
@@ -178,6 +178,8 @@
 (defconst log-view-font-lock-defaults
   '(log-view-font-lock-keywords t nil nil nil))
 
+(defvar log-view-marked-list nil)
+
 ;;;;
 ;;;; Actual code
 ;;;;
@@ -186,6 +188,7 @@
 (define-derived-mode log-view-mode fundamental-mode "Log-View"
   "Major mode for browsing CVS log output."
   (setq buffer-read-only t)
+  (make-local-variable 'log-view-marked-list)
   (set (make-local-variable 'font-lock-defaults) log-view-font-lock-defaults)
   (set (make-local-variable 'cvs-minor-wrap-function) 'log-view-minor-wrap))
 
@@ -237,6 +240,43 @@
 	  (unless (re-search-forward log-view-file-re pt t)
 	    rev))))))
 
+(defun log-view-toggle-mark-entry ()
+  "Toggle marking for on log entry."
+  (interactive)
+  (save-excursion
+    (forward-line 1)
+    (let ((pt (point)))
+      (when (re-search-backward log-view-message-re nil t)
+	(let ((beg (match-beginning 0))
+	      end ov ovlist found tag)
+	  (unless (re-search-forward log-view-file-re pt t)
+	    ;; Look to see if the current entry is marked by looking
+	    ;; at the overlays at point.
+	    (setq ovlist (overlays-at (point)))
+	    (dolist (ovl ovlist)
+	      (when (overlay-get ovl 'log-view-marked)
+		(setq found ovl)))
+	    (if found
+		(progn
+		  ;; Remove this entry from the marked list and remove
+		  ;; the overlay.
+		  (setq log-view-marked-list 
+			(delq (overlay-get found 'log-view-marked)
+			      log-view-marked-list))
+		  (delete-overlay found))
+	      ;; Add this entry to the marked list and create an
+	      ;; overlay that covers it.
+	      (setq tag (log-view-current-tag (point)))
+	      (push tag log-view-marked-list)
+	      (forward-line 1)
+	      (setq end 
+		    (if (re-search-forward log-view-message-re nil t)
+			(match-beginning 0)
+		      (point-max)))
+	      (setq ov (make-overlay beg end))
+	      (overlay-put ov 'face 'log-view-file)
+	      (overlay-put ov 'log-view-marked tag))))))))
+
 (defvar cvs-minor-current-files)
 (defvar cvs-branch-prefix)
 (defvar cvs-secondary-branch-prefix)