diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-08-06 09:18:02 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-08-06 09:18:02 +0000 |
| commit | dedffa6a6bdfbfe6bb1257579734bc4467ebc7bc (patch) | |
| tree | 8dfc2b24b4270a8e6b511d3630a91bb8efa13009 /lisp/cvs-status.el | |
| parent | dc79c3ea3c2fbcaf80b70e33517c573451d671bb (diff) | |
| download | emacs-dedffa6a6bdfbfe6bb1257579734bc4467ebc7bc.tar.gz | |
Use `nth' instead of `first', `second', and `third'.
Diffstat (limited to 'lisp/cvs-status.el')
| -rw-r--r-- | lisp/cvs-status.el | 13 |
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. ;; |