Re: CVS globally, RCS locally

[Gerd Moellmann]

Another report, this time with C-u C-x v v RCS RET.

Debugger entered--Lisp error: (invalid-function (macro lambda (file form 
settings) "Execute FORM, then set per-file properties for FILE, but only those
that have not been set during the execution of FORM.  SETTINGS is a list 
of two-element lists, each of which has the form (PROPERTY VALUE)." (\` (let 
((vc-touched-properties (list t)) (filename (\, file))) (\, form) (mapcar 
(lambda (setting) (let ((property (nth 0 setting)) (value (nth 1 setting))) 
(unless (memq property vc-touched-properties) (put (intern filename 
vc-file-prop-obarray) property value)))) (\, settings))))))
  with-vc-properties("/gd/gnu/emacs/lisp/vc.el" "1.269" ((vc-backend RCS)))
  vc-rcs-receive-file("/gd/gnu/emacs/lisp/vc.el" nil)
  apply(vc-rcs-receive-file ("/gd/gnu/emacs/lisp/vc.el" nil))
  vc-call-backend(RCS receive-file "/gd/gnu/emacs/lisp/vc.el" nil)
  (let ((vc-touched-properties ...) (filename file)) (vc-call-backend 
new-backend (quote receive-file) file (< ... ...)) (mapcar (lambda ... ...) (\` 
...)))
  (with-vc-properties file (vc-call-backend new-backend (quote receive-file) 
file (< ... ...)) (\` (...)))
  (if (eq old-backend new-backend) (error "%s is the current backend of %s" 
new-backend file) (with-vc-properties file (vc-call-backend new-backend ... 
file ...) (\` ...)))
  (let ((old-backend ...)) (if (eq old-backend new-backend) (error "%s is the 
current backend of %s" new-backend file) (with-vc-properties file ... ...)) 
(vc-resynch-buffer file t t))
  vc-transfer-file("/gd/gnu/emacs/lisp/vc.el" RCS)
  (if (member vsym vc-handled-backends) (vc-transfer-file file vsym) 
(vc-checkout file (eq ... ...) version))
  (let ((vsym ...)) (if (member vsym vc-handled-backends) (vc-transfer-file 
file vsym) (vc-checkout file ... version)))
  (cond (verbose (setq version ...) (let ... ...)) ((not ...) (vc-checkout file 
t)) (t (message "%s is up-to-date" file)))
  (cond ((or ... ...) (cond ... ... ...)) ((and visited ... buffer-read-only) 
(message "File is edited but read-only; making it writable") (set-file-modes 
buffer-file-name ...) (toggle-read-only -1)) ((eq state ...) (cond ... ...)) 
((stringp state) (if comment ...) (vc-steal-lock file ... state)) ((eq state 
...) (if ... ... ...)) ((eq state ...) (if ... ... ...)) ((eq state ...) (if 
... ...) (if ... ... ...)))
  (if (not (vc-registered file)) (vc-register verbose comment) 
(vc-recompute-state file) (vc-mode-line file) (setq state (vc-state file)) 
(cond (... ...) (... ... ... ...) (... ...) (... ... ...) (... ...) (... ...) 
(... ... ...)))
  (let ((visited ...) state version) (when visited (if vc-dired-mode ... ...) 
(if ... ... ... ...)) (if (not ...) (vc-register verbose comment) 
(vc-recompute-state file) (vc-mode-line file) (setq state ...) (cond ... ... 
... ... ... ... ...)))
  vc-next-action-on-file("/gd/gnu/emacs/lisp/vc.el" (4))
  (if buffer-file-name (vc-next-action-on-file buffer-file-name verbose) (error 
"Buffer %s is not associated with a file" (buffer-name)))
  (catch (quote nogo) (if vc-dired-mode (let ... ... ... ...)) (while 
vc-parent-buffer (pop-to-buffer vc-parent-buffer)) (if buffer-file-name 
(vc-next-action-on-file buffer-file-name verbose) (error "Buffer %s is not 
associated with a file" ...)))
  vc-next-action((4))
  call-interactively(vc-next-action)