/[emacs]/emacs/lisp/pcvs-util.el
ViewVC logotype

Diff of /emacs/lisp/pcvs-util.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by pj, Thu Dec 20 18:43:07 2001 UTC revision 1.17.4.1 by miles, Fri Apr 4 06:20:10 2003 UTC
# Line 50  Line 50 
50    (let ((zs ys))    (let ((zs ys))
51      (dolist (x xs zs)      (dolist (x xs zs)
52        (unless (member x ys) (push x zs)))))        (unless (member x ys) (push x zs)))))
53          
54    
55  (defun cvs-map (-cvs-map-f &rest -cvs-map-ls)  (defun cvs-map (-cvs-map-f &rest -cvs-map-ls)
56    (unless (cvs-every 'null -cvs-map-ls)    (unless (cvs-every 'null -cvs-map-ls)
# Line 135  BUF is assumed to be a temporary buffer Line 135  BUF is assumed to be a temporary buffer
135        (let ((mainwin (or (get-buffer-window mainbuf)        (let ((mainwin (or (get-buffer-window mainbuf)
136                           (get-buffer-window mainbuf 'visible))))                           (get-buffer-window mainbuf 'visible))))
137          (when mainwin (select-window mainwin))))))          (when mainwin (select-window mainwin))))))
138                  
139  (defun cvs-get-buffer-create (name &optional noreuse)  (defun cvs-get-buffer-create (name &optional noreuse)
140    "Create a buffer NAME unless such a buffer already exists.    "Create a buffer NAME unless such a buffer already exists.
141  If the NAME looks like an absolute file name, the buffer will be created  If the NAME looks like an absolute file name, the buffer will be created
# Line 231  The SEPARATOR regexp defaults to \"\\s-+ Line 231  The SEPARATOR regexp defaults to \"\\s-+
231                        (cvs-string->strings (substring string (cdr rfs))                        (cvs-string->strings (substring string (cdr rfs))
232                                             sep)))))))                                             sep)))))))
233    
234  ;;;;  ;;;;
235  ;;;; file names  ;;;; file names
236  ;;;;  ;;;;
237    
238  (defsubst cvs-expand-dir-name (d)  (defsubst cvs-expand-dir-name (d)
239    (file-name-as-directory (expand-file-name d)))    (file-name-as-directory (expand-file-name d)))
# Line 273  The SEPARATOR regexp defaults to \"\\s-+ Line 273  The SEPARATOR regexp defaults to \"\\s-+
273                                  initval hist-sym))                                  initval hist-sym))
274                (t initval)))))                (t initval)))))
275    
276  ;;;;  ;;;;
277  ;;;; Flags handling  ;;;; Flags handling
278  ;;;;  ;;;;
279    
280  (defstruct (cvs-flags  (defstruct (cvs-flags
281              (:constructor nil)              (:constructor nil)
# Line 335  If it is \\[universal-argument] \\[unive Line 335  If it is \\[universal-argument] \\[unive
335    "Set SYM's INDEX'th setting to VALUE."    "Set SYM's INDEX'th setting to VALUE."
336    (setf (nth index (cvs-flags-defaults (symbol-value sym))) value))    (setf (nth index (cvs-flags-defaults (symbol-value sym))) value))
337    
338  ;;;;  ;;;;
339  ;;;; Prefix keys  ;;;; Prefix keys
340  ;;;;  ;;;;
341    
342  (defconst cvs-prefix-number 10)  (defconst cvs-prefix-number 10)
343    

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.17.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26