Mercurial > emacs
diff lisp/pcvs-util.el @ 49597:e88404e8f2cf
Trailing whitespace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 12:29:42 +0000 |
| parents | 7308bbc423d5 |
| children | fa1c848a9779 d7ddb3e565de |
line wrap: on
line diff
--- a/lisp/pcvs-util.el Tue Feb 04 12:03:59 2003 +0000 +++ b/lisp/pcvs-util.el Tue Feb 04 12:29:42 2003 +0000 @@ -5,7 +5,7 @@ ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: pcl-cvs -;; Revision: $Id: pcvs-util.el,v 1.16 2001/12/02 07:41:47 monnier Exp $ +;; Revision: $Id: pcvs-util.el,v 1.17 2001/12/20 18:43:07 pj Exp $ ;; This file is part of GNU Emacs. @@ -50,7 +50,7 @@ (let ((zs ys)) (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) @@ -135,7 +135,7 @@ (let ((mainwin (or (get-buffer-window mainbuf) (get-buffer-window mainbuf 'visible)))) (when mainwin (select-window mainwin)))))) - + (defun cvs-get-buffer-create (name &optional noreuse) "Create a buffer NAME unless such a buffer already exists. If the NAME looks like an absolute file name, the buffer will be created @@ -231,9 +231,9 @@ (cvs-string->strings (substring string (cdr rfs)) sep))))))) -;;;; +;;;; ;;;; file names -;;;; +;;;; (defsubst cvs-expand-dir-name (d) (file-name-as-directory (expand-file-name d))) @@ -273,9 +273,9 @@ initval hist-sym)) (t initval))))) -;;;; +;;;; ;;;; Flags handling -;;;; +;;;; (defstruct (cvs-flags (:constructor nil) @@ -335,9 +335,9 @@ "Set SYM's INDEX'th setting to VALUE." (setf (nth index (cvs-flags-defaults (symbol-value sym))) value)) -;;;; +;;;; ;;;; Prefix keys -;;;; +;;;; (defconst cvs-prefix-number 10)