Commit d621bc0a authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

* vc-hg.el (vc-hg-log-view-mode): Fix last change.

* log-view.el (log-view-mode-menu): New menu.
parent 511a18d9
2007-06-23 Dan Nicolaescu <dann@ics.uci.edu>
* vc-hg.el (vc-hg-log-view-mode): Fix last change.
* log-view.el (log-view-mode-menu): New menu.
2007-06-22 Stefan Monnier <monnier@iro.umontreal.ca>
* diff-mode.el (diff-font-lock-keywords): Fix M. Kifer's last change
......
......@@ -105,6 +105,20 @@
;; or a minor-mode-map with lower precedence than the local map.
:inherit (if (boundp 'cvs-mode-map) cvs-mode-map))
(easy-menu-define log-view-mode-menu log-view-mode-map
"Log-View Display Menu"
`("Log-View"
;; XXX Do we need menu entries for these?
;; ["Quit" quit-window]
;; ["Kill This Buffer" kill-this-buffer]
["Mark Log Entry for Diff" set-mark-command]
["Diff Revisions" log-view-diff]
["Visit Version" log-view-find-version]
["Next Log Entry" log-view-msg-next]
["Previous Log Entry" log-view-msg-prev]
["Next File" log-view-file-next]
["Previous File" log-view-file-prev]))
(defvar log-view-mode-hook nil
"Hook run at the end of `log-view-mode'.")
......
......@@ -142,7 +142,7 @@
"^changeset:[ \t]*\\([0-9]+\\):\\(.+\\)")
(set (make-local-variable 'log-view-font-lock-keywords)
(append
log-view-font-lock-keywords
(copy-alist log-view-font-lock-keywords)
;; Handle the case:
;; user: foo@bar
'(("^user:[ \t]+\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)"
......@@ -153,7 +153,7 @@
(1 'change-log-name)
(2 'change-log-email))
("^date: \\(.+\\)" (1 'change-log-date))
("^summary:[ \t]+\\(.+\\)" (1 'log-view-message))))))
("^summary:[ \t]+\\(.+\\)" (1 'log-view-message)))))))
(defun vc-hg-diff (file &optional oldvers newvers buffer)
"Get a difference report using hg between two versions of FILE."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment