diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-05-10 22:22:21 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-05-10 22:22:21 +0000 |
| commit | 3e87f5fcf3d8c131717a32af51bdba5d57e242e1 (patch) | |
| tree | c8c94c29cd4425af9597d5841e9f3b7107beda6e /lisp/log-view.el | |
| parent | 141880215abf09288828d45dd4bf795d675642af (diff) | |
| download | emacs-3e87f5fcf3d8c131717a32af51bdba5d57e242e1.tar.gz | |
(log-view-goto-rev): New function for the new VC.
(log-view-minor-wrap): Use mark-active.
Diffstat (limited to 'lisp/log-view.el')
| -rw-r--r-- | lisp/log-view.el | 22 |
1 files changed, 18 insertions, 4 deletions
diff --git a/lisp/log-view.el b/lisp/log-view.el index 46cefeae8ab..3ca9cd9f57d 100644 --- a/lisp/log-view.el +++ b/lisp/log-view.el @@ -5,7 +5,7 @@ ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: pcl-cvs cvs log ;; Version: $Name: $ -;; Revision: $Id: log-view.el,v 1.1 2000/03/11 03:42:28 monnier Exp $ +;; Revision: $Id: log-view.el,v 1.2 2000/03/22 01:10:09 monnier Exp $ ;; This file is part of GNU Emacs. @@ -107,6 +107,13 @@ (easy-mmode-define-navigation log-view-msg log-view-message-re "log message") (easy-mmode-define-navigation log-view-file log-view-file-re "file") +(defun log-view-goto-rev (rev) + (goto-char (point-min)) + (ignore-errors + (while (not (equal rev (log-view-current-tag))) + (log-view-msg-next)) + t)) + ;;;; ;;;; Linkage to PCL-CVS (mostly copied from cvs-status.el) ;;;; @@ -143,8 +150,7 @@ (cons (cons (log-view-current-file) (log-view-current-tag)) - (when (ignore-errors (mark)) - ;; `mark-active' is not provided by XEmacs :-( + (when mark-active (save-excursion (goto-char (mark)) (cons (log-view-current-file) @@ -162,6 +168,14 @@ (provide 'log-view) ;;; Change Log: -;; $Log$ +;; $Log: log-view.el,v $ +;; Revision 1.2 2000/03/22 01:10:09 monnier +;; (log-view-(msg|file)-(prev|next)): Rename from +;; log-view-*-(message|file) and use easy-mmode-define-navigation. +;; (log-view-message-re): Match SCCS format as well. +;; And match the revision line rather than the dashed separator line. +;; (log-view-mode): Use the new define-derived-mode. +;; (log-view-current-tag): Fill in with an actual implementation. +;; ;;; log-view.el ends here |