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) |
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 |
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))) |
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) |
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 |
|
|