summaryrefslogtreecommitdiff
path: root/lisp/cvs-status.el
diff options
context:
space:
mode:
authorGerd Moellmann <gerd@gnu.org>2000-08-06 09:18:02 +0000
committerGerd Moellmann <gerd@gnu.org>2000-08-06 09:18:02 +0000
commitdedffa6a6bdfbfe6bb1257579734bc4467ebc7bc (patch)
tree8dfc2b24b4270a8e6b511d3630a91bb8efa13009 /lisp/cvs-status.el
parentdc79c3ea3c2fbcaf80b70e33517c573451d671bb (diff)
downloademacs-dedffa6a6bdfbfe6bb1257579734bc4467ebc7bc.tar.gz
Use `nth' instead of `first', `second', and `third'.
Diffstat (limited to 'lisp/cvs-status.el')
-rw-r--r--lisp/cvs-status.el13
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/cvs-status.el b/lisp/cvs-status.el
index b7cfdff9d3c..4f46fb8c4ff 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.3 2000/03/22 01:08:08 monnier Exp $
+;; Revision: $Id: cvs-status.el,v 1.4 2000/05/10 22:08:28 monnier Exp $
;; This file is part of GNU Emacs.
@@ -283,8 +283,8 @@ BEWARE: because of stability issues, this is not a symetric operation."
(cvs-tree-merge tree1 (list (cons (cvs-tag-make (butlast vl2)) tree2)))))))))
(defun cvs-tag-make-tag (tag)
- (let ((vl (mapcar 'string-to-number (split-string (third tag) "\\."))))
- (cvs-tag-make vl (first tag) (intern (second tag)))))
+ (let ((vl (mapcar 'string-to-number (split-string (nth 2 tag) "\\."))))
+ (cvs-tag-make vl (nth 0 tag) (intern (nth 1 tag)))))
(defun cvs-tags->tree (tags)
"Make a tree out of a list of TAGS."
@@ -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 (first tags))
+ (let* ((first (nth 0 tags))
(prev (if (cvs-tag-p first)
- (list (first (cvs-tag->vlist first))) nil)))
+ (list (nth 0 (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.4 2000/05/10 22:08:28 monnier
+;; (cvs-status-minor-wrap): Use mark-active.
+;;
;; Revision 1.3 2000/03/22 01:08:08 monnier
;; (cvs-status-mode): Use define-derived-mode.
;;