Mercurial > emacs

changeset 12481:cca1dbc550dd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-fetch-master-properties): Better error message in case the "cvs status" command fails.
author Richard M. Stallman <rms@gnu.org>
date Fri, 07 Jul 1995 13:24:31 +0000
parents 543e6df4f753
children 3f4cd64a4730
files lisp/vc-hooks.el
diffstat 1 files changed, 8 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc-hooks.el	Fri Jul 07 13:22:05 1995 +0000
+++ b/lisp/vc-hooks.el	Fri Jul 07 13:24:31 1995 +0000
@@ -280,15 +280,20 @@
       ;; 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)