[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/pcvs-util.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/pcvs-util.el |
Date: |
Fri, 28 May 2004 15:24:07 -0400 |
Index: emacs/lisp/pcvs-util.el
diff -c emacs/lisp/pcvs-util.el:1.20 emacs/lisp/pcvs-util.el:1.21
*** emacs/lisp/pcvs-util.el:1.20 Mon Sep 1 15:45:14 2003
--- emacs/lisp/pcvs-util.el Fri May 28 19:09:33 2004
***************
*** 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
;; Free Software Foundation, Inc.
;; Author: Stefan Monnier <address@hidden>
--- 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,01,04
;; Free Software Foundation, Inc.
;; Author: Stefan Monnier <address@hidden>
***************
*** 50,56 ****
(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))
--- 50,55 ----
***************
*** 76,97 ****
(dolist (x l)
(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
--- 75,80 ----
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/pcvs-util.el,
Juanma Barranquero <=