From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 10 May 2000 22:22:21 +0000 (+0000)
Subject: (log-view-goto-rev): New function for the new VC.
X-Git-Tag: emacs-pretest-21.0.90~4005
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3e87f5fcf3d8c131717a32af51bdba5d57e242e1;p=emacs.git

(log-view-goto-rev): New function for the new VC.
(log-view-minor-wrap): Use mark-active.
---

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