diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2004-05-28 19:09:33 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2004-05-28 19:09:33 +0000 |
| commit | 287aae6ce97e0a6bfd62ef259d2f9a44f00c547e (patch) | |
| tree | 55a1e894cdc56b0d95d8ff07218f83c1f4b1768b | |
| parent | 1703d649a7ef3303239c039665f6014d56c5ce6b (diff) | |
| download | emacs-287aae6ce97e0a6bfd62ef259d2f9a44f00c547e.tar.gz | |
(cvs-butlast, cvs-nbutlast): Remove (`butlast' and `nbutlast' are in
subr.el).
| -rw-r--r-- | lisp/pcvs-util.el | 19 |
1 files changed, 1 insertions, 18 deletions
diff --git a/lisp/pcvs-util.el b/lisp/pcvs-util.el index 86fafea37ea..3380077c74a 100644 --- a/lisp/pcvs-util.el +++ b/lisp/pcvs-util.el @@ -1,6 +1,6 @@ ;;; pcvs-util.el --- utility functions for PCL-CVS -*- byte-compile-dynamic: t -*- -;; Copyright (C) 1991,92,93,94,95,96,97,98,99,2000, 2001 +;; Copyright (C) 1991,92,93,94,95,96,97,98,99, 2000,01,04 ;; Free Software Foundation, Inc. ;; Author: Stefan Monnier <monnier@cs.yale.edu> @@ -50,7 +50,6 @@ (dolist (x xs zs) (unless (member x ys) (push x zs))))) - (defun cvs-map (-cvs-map-f &rest -cvs-map-ls) (unless (cvs-every 'null -cvs-map-ls) (cons (apply -cvs-map-f (mapcar 'car -cvs-map-ls)) @@ -77,22 +76,6 @@ the other elements. The ordering among elements is maintained." (if (funcall p x) (push x car) (push x cdr))) (cons (nreverse car) (nreverse cdr)))) -;; Copied from CL ;-( - -(defun cvs-butlast (x &optional n) - "Returns a copy of LIST with the last N elements removed." - (if (and n (<= n 0)) x - (cvs-nbutlast (copy-sequence x) n))) - -(defun cvs-nbutlast (x &optional n) - "Modifies LIST to remove the last N elements." - (let ((m (length x))) - (or n (setq n 1)) - (and (< n m) - (progn - (if (> n 0) (setcdr (nthcdr (- (1- m) n) x) nil)) - x)))) - ;;; ;;; frame, window, buffer handling ;;; |