Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-25 14:27:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(vc-do-command): If OKSTATUS is nil, ignore errors.

Browse source 
(vc-backend-release): For RCS, pass nil for OKSTATUS.
This commit is contained in:
Richard M. Stallman 1997-02-10 20:43:37 +00:00
parent 7bf5e9e404
commit 2bb00bdd36
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/vc.el
View file

@ -217,7 +217,7 @@ If nil, VC itself computes this value when it is first needed.")
(cond
((eq backend 'RCS)
(or vc-rcs-release
(and (zerop (vc-do-command nil 2 "rcs" nil nil "-V"))
(and (zerop (vc-do-command nil nil "rcs" nil nil "-V"))
(save-excursion
(set-buffer (get-buffer "*vc*"))
(setq vc-rcs-release
@ -377,6 +377,7 @@ If nil, VC itself computes this value when it is first needed.")
"Execute a version-control command, notifying user and checking for errors.
Output from COMMAND goes to BUFFER, or *vc* if BUFFER is nil.
The command is successful if its exit status does not exceed OKSTATUS.
(If OKSTATUS is nil, that means to ignore errors.)
The last argument of the command is the master name of FILE if LAST is
`MASTER', or the workfile of FILE if LAST is `WORKFILE'; this is appended
to an optional list of FLAGS."
@ -421,7 +422,7 @@ to an optional list of FLAGS."
(goto-char (point-max))
(set-buffer-modified-p nil)
(forward-line -1)
(if (or (not (integerp status)) (< okstatus status))
(if (or (not (integerp status)) (and okstatus (< okstatus status)))
(progn
(pop-to-buffer buffer)
(goto-char (point-min))