[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: CVS globally, RCS locally
From: |
Gerd Moellmann |
Subject: |
Re: CVS globally, RCS locally |
Date: |
Thu, 21 Sep 2000 23:34:47 +0200 (CEST) |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.0.90 |
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)