/[emacs]/emacs/lisp/log-view.el
ViewVC logotype

Diff of /emacs/lisp/log-view.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by rms, Mon Dec 31 20:25:41 2001 UTC revision 1.13.4.1 by miles, Fri Apr 4 06:20:09 2003 UTC
# Line 46  Line 46 
46    '(("q" . quit-window)    '(("q" . quit-window)
47      ("z" . kill-this-buffer)      ("z" . kill-this-buffer)
48      ("m" . set-mark-command)      ("m" . set-mark-command)
49        ;; ("e" . cvs-mode-edit-log)
50      ("d" . log-view-diff)      ("d" . log-view-diff)
51      ("f" . log-view-find-version)      ("f" . log-view-find-version)
52      ("n" . log-view-msg-next)      ("n" . log-view-msg-next)
# Line 84  Line 85 
85            "Working file: \\(.+\\)"            "Working file: \\(.+\\)"
86            "\\|SCCS/s\\.\\(.+\\):"            "\\|SCCS/s\\.\\(.+\\):"
87            "\\)\n"))            "\\)\n"))
88  (defconst log-view-message-re "^\\(revision \\([.0-9]+\\)\\|rev \\([0-9]+\\):  .*\\|D \\([.0-9]+\\) .*\\)$")  ;; In RCS, a locked revision will look like "revision N.M\tlocked by: FOO".
89    (defconst log-view-message-re "^\\(revision \\([.0-9]+\\)\\(?:\t.*\\)?\\|rev \\([0-9]+\\):  .*\\|D \\([.0-9]+\\) .*\\)$")
90    
91  (defconst log-view-font-lock-keywords  (defconst log-view-font-lock-keywords
92    `((,log-view-file-re    `((,log-view-file-re
# Line 179  Line 181 
181    (interactive "d")    (interactive "d")
182    (save-excursion    (save-excursion
183      (goto-char pos)      (goto-char pos)
184      (switch-to-buffer (vc-find-version (log-view-current-file)      (switch-to-buffer (vc-find-version (log-view-current-file)
185                                         (log-view-current-tag)))))                                         (log-view-current-tag)))))
186    
187  ;;  ;;

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.13.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26