diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-05-10 22:08:28 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-05-10 22:08:28 +0000 |
| commit | befe763f45e40c99fce338a5039ebe2ba5fa24af (patch) | |
| tree | 9d164654cb8e85e55c4c5e9f596a016d4ffd92d1 /lisp/cvs-status.el | |
| parent | 9ea60c46a004d2a64187e05f50d4801a72582888 (diff) | |
| download | emacs-befe763f45e40c99fce338a5039ebe2ba5fa24af.tar.gz | |
(cvs-status-minor-wrap): Use mark-active.
Diffstat (limited to 'lisp/cvs-status.el')
| -rw-r--r-- | lisp/cvs-status.el | 8 |
1 files changed, 5 insertions, 3 deletions
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. |