From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 10 May 2000 22:08:28 +0000 (+0000)
Subject: (cvs-status-minor-wrap): Use mark-active.
X-Git-Tag: emacs-pretest-21.0.90~4009
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=befe763f45e40c99fce338a5039ebe2ba5fa24af;p=emacs.git

(cvs-status-minor-wrap): Use mark-active.
---

diff --git a/lisp/cvs-status.el b/lisp/cvs-status.el
index b89bc6d2867..b7cfdff9d3c 100644
--- a/lisp/cvs-status.el
+++ b/lisp/cvs-status.el
@@ -5,7 +5,7 @@
 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: pcl-cvs cvs status tree
 ;; Version: $Name:  $
-;; Revision: $Id: cvs-status.el,v 1.2 2000/03/22 01:01:36 monnier Exp $
+;; Revision: $Id: cvs-status.el,v 1.3 2000/03/22 01:08:08 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -142,8 +142,7 @@
 		(cons
 		 (cons (cvs-status-current-file)
 		       (cvs-status-current-tag))
-		 (when (ignore-errors (mark))
-		   ;; `mark-active' is not provided by XEmacs :-(
+		 (when mark-active
 		   (save-excursion
 		     (goto-char (mark))
 		     (cons (cvs-status-current-file)
@@ -506,6 +505,9 @@ Optional prefix ARG chooses between two representations."
 
 ;;; Change Log:
 ;; $Log: cvs-status.el,v $
+;; Revision 1.3  2000/03/22 01:08:08  monnier
+;; (cvs-status-mode): Use define-derived-mode.
+;;
 ;; Revision 1.2  2000/03/22 01:01:36  monnier
 ;; (cvs-status-(prev|next)): Rename from
 ;; cvs-status-(prev|next)-entry and use easy-mmode-define-navigation.