[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/log-view.el,v
From: |
Dan Nicolaescu |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/log-view.el,v |
Date: |
Fri, 24 Aug 2007 17:28:04 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Dan Nicolaescu <dann> 07/08/24 17:28:03
Index: log-view.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/log-view.el,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -b -r1.39 -r1.40
--- log-view.el 13 Aug 2007 13:41:01 -0000 1.39
+++ log-view.el 24 Aug 2007 17:28:00 -0000 1.40
@@ -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)