/[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.11 by spiegel, Mon Nov 26 16:08:51 2001 UTC revision 1.12 by monnier, Sun Dec 16 16:28:59 2001 UTC
# Line 84  Line 84 
84            "Working file: \\(.+\\)"            "Working file: \\(.+\\)"
85            "\\|SCCS/s\\.\\(.+\\):"            "\\|SCCS/s\\.\\(.+\\):"
86            "\\)\n"))            "\\)\n"))
87  (defconst log-view-message-re "^\\(revision \\([.0-9]+\\)\\|D \\([.0-9]+\\) .*\\)$")  (defconst log-view-message-re "^\\(revision \\([.0-9]+\\)\\|rev \\([0-9]+\\):  .*\\|D \\([.0-9]+\\) .*\\)$")
88    
89  (defconst log-view-font-lock-keywords  (defconst log-view-font-lock-keywords
90    `((,log-view-file-re    `((,log-view-file-re
# Line 150  Line 150 
150      (forward-line 1)      (forward-line 1)
151      (let ((pt (point)))      (let ((pt (point)))
152        (when (re-search-backward log-view-message-re nil t)        (when (re-search-backward log-view-message-re nil t)
153          (let ((rev (or (match-string 2) (match-string 3))))          (let ((rev (or (match-string 2) (match-string 3) (match-string 4))))
154            (unless (re-search-forward log-view-file-re pt t)            (unless (re-search-forward log-view-file-re pt t)
155              rev))))))              rev))))))
156    
# Line 182  Line 182 
182      (switch-to-buffer (vc-find-version (log-view-current-file)      (switch-to-buffer (vc-find-version (log-view-current-file)
183                                         (log-view-current-tag)))))                                         (log-view-current-tag)))))
184    
185  ;;;  ;;
186  ;;; diff  ;; diff
187  ;;;  ;;
188    
189  (defun log-view-diff (beg end)  (defun log-view-diff (beg end)
190    "Get the diff for several revisions.    "Get the diff for several revisions.

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

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