[Emacs-diffs] Changes to emacs/lisp/pcvs-util.el

[Juanma Barranquero]

Index: emacs/lisp/pcvs-util.el
diff -c emacs/lisp/pcvs-util.el:1.17 emacs/lisp/pcvs-util.el:1.18
*** emacs/lisp/pcvs-util.el:1.17        Thu Dec 20 13:43:07 2001
--- emacs/lisp/pcvs-util.el     Tue Feb  4 06:57:16 2003
***************
*** 5,11 ****
  
  ;; Author: Stefan Monnier <address@hidden>
  ;; Keywords: pcl-cvs
! ;; Revision: $Id: pcvs-util.el,v 1.17 2001/12/20 18:43:07 pj Exp $
  
  ;; This file is part of GNU Emacs.
  
--- 5,11 ----
  
  ;; Author: Stefan Monnier <address@hidden>
  ;; Keywords: pcl-cvs
! ;; Revision: $Id: pcvs-util.el,v 1.18 2003/02/04 11:57:16 lektu Exp $
  
  ;; This file is part of GNU Emacs.
  
***************
*** 50,56 ****
    (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)
--- 50,56 ----
    (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,141 ****
        (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
--- 135,141 ----
        (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,239 ****
                      (cvs-string->strings (substring string (cdr rfs))
                                           sep)))))))
  
! ;;;; 
  ;;;; file names
! ;;;; 
  
  (defsubst cvs-expand-dir-name (d)
    (file-name-as-directory (expand-file-name d)))
--- 231,239 ----
                      (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,281 ****
                                initval hist-sym))
              (t initval)))))
  
! ;;;; 
  ;;;; Flags handling
! ;;;; 
  
  (defstruct (cvs-flags
            (:constructor nil)
--- 273,281 ----
                                initval hist-sym))
              (t initval)))))
  
! ;;;;
  ;;;; Flags handling
! ;;;;
  
  (defstruct (cvs-flags
            (:constructor nil)
***************
*** 335,343 ****
    "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)
  
--- 335,343 ----
    "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)