diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-08-16 21:03:36 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-08-16 21:03:36 +0000 |
| commit | 7382bcae29e08faa99ef275d83cd4cb31aace60a (patch) | |
| tree | 8571c11d449e7cb7d51003eb64283014c3ba788c /lisp/cvs-status.el | |
| parent | 7a3ec18a3cac2da58be8829807839f8f6ebaff8f (diff) | |
| download | emacs-7382bcae29e08faa99ef275d83cd4cb31aace60a.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/cvs-status.el')
| -rw-r--r-- | lisp/cvs-status.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/cvs-status.el b/lisp/cvs-status.el index 4f46fb8c4ff..9cc92e82818 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.4 2000/05/10 22:08:28 monnier Exp $ +;; Revision: $Id: cvs-status.el,v 1.5 2000/08/06 09:18:02 gerd Exp $ ;; This file is part of GNU Emacs. @@ -425,9 +425,9 @@ Optional prefix ARG chooses between two representations." ;;(pt (save-excursion (forward-line -1) (point))) ) (setq tags (sort tags 'cvs-tag-lessp)) - (let* ((first (nth 0 tags)) + (let* ((first (car tags)) (prev (if (cvs-tag-p first) - (list (nth 0 (cvs-tag->vlist first))) nil))) + (list (car (cvs-tag->vlist first))) nil))) (cvs-tree-tags-insert tags prev) ;;(cvs-refontify pt (point)) (sit-for 0))))))) @@ -505,6 +505,9 @@ Optional prefix ARG chooses between two representations." ;;; Change Log: ;; $Log: cvs-status.el,v $ +;; Revision 1.5 2000/08/06 09:18:02 gerd +;; Use `nth' instead of `first', `second', and `third'. +;; ;; Revision 1.4 2000/05/10 22:08:28 monnier ;; (cvs-status-minor-wrap): Use mark-active. ;; |