/[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.10 by monnier, Fri Nov 16 13:53:05 2001 UTC revision 1.11 by spiegel, Mon Nov 26 16:08:51 2001 UTC
# Line 47  Line 47 
47      ("z" . kill-this-buffer)      ("z" . kill-this-buffer)
48      ("m" . set-mark-command)      ("m" . set-mark-command)
49      ("d" . log-view-diff)      ("d" . log-view-diff)
50        ("f" . log-view-find-version)
51      ("n" . log-view-msg-next)      ("n" . log-view-msg-next)
52      ("p" . log-view-msg-prev)      ("p" . log-view-msg-prev)
53      ("N" . log-view-file-next)      ("N" . log-view-file-next)
# Line 173  Line 174 
174            (cvs-force-command "/F"))            (cvs-force-command "/F"))
175        (funcall f))))        (funcall f))))
176    
177    (defun log-view-find-version (pos)
178      "Visit the version at point."
179      (interactive "d")
180      (save-excursion
181        (goto-char pos)
182        (switch-to-buffer (vc-find-version (log-view-current-file)
183                                           (log-view-current-tag)))))
184    
185  ;;;  ;;;
186  ;;; diff  ;;; diff
187  ;;;  ;;;

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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