mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-12 22:40:46 -08:00
Code Issues Projects Releases Wiki Activity

(vc-fetch-master-properties): Better error

Browse source 
message in case the "cvs status" command fails.
This commit is contained in:
Richard M. Stallman 1995-07-07 13:24:31 +00:00
parent 9b23a6c733
commit e11a39dfe9
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/vc-hooks.el
View file

@ -280,15 +280,20 @@ value of this flag.")
;; command, because that would change its default directory
(save-excursion (set-buffer (get-buffer-create "*vc-info*"))
(erase-buffer))
(let ((exec-path (append vc-path exec-path))
(let ((exec-path (append vc-path exec-path)) exec-status
;; Add vc-path to PATH for the execution of this command.
(process-environment
(cons (concat "PATH=" (getenv "PATH")
path-separator
(mapconcat 'identity vc-path path-separator))
process-environment)))
(apply 'call-process "cvs" nil "*vc-info*" nil
(list "status" file)))
(setq exec-status
(apply 'call-process "cvs" nil "*vc-info*" nil
(list "status" file)))
(cond ((> exec-status 0)
(switch-to-buffer (get-file-buffer file))
(display-buffer "*vc-info*")
(error "Couldn't find version control information"))))
(set-buffer (get-buffer "*vc-info*"))
(set-buffer-modified-p nil)
(auto-save-mode nil)