[Emacs-diffs] Changes to emacs/lisp/vc.el

[André Spiegel]

Index: emacs/lisp/vc.el
diff -c emacs/lisp/vc.el:1.402 emacs/lisp/vc.el:1.403
*** emacs/lisp/vc.el:1.402      Tue Oct 25 05:52:28 2005
--- emacs/lisp/vc.el    Sun Oct 30 10:39:55 2005
***************
*** 2596,2604 ****
  To get a prompt, use a prefix argument."
    (interactive
     (list
!     buffer-file-name
      (let ((backend (vc-backend buffer-file-name))
          (backends nil))
        ;; Find the registered backends.
        (dolist (backend vc-handled-backends)
        (when (vc-call-backend backend 'registered buffer-file-name)
--- 2596,2607 ----
  To get a prompt, use a prefix argument."
    (interactive
     (list
!     (or buffer-file-name
!         (error "There is no version-controlled file in this buffer"))
      (let ((backend (vc-backend buffer-file-name))
          (backends nil))
+       (unless backend
+         (error "File %s is not under version control" buffer-file-name))
        ;; Find the registered backends.
        (dolist (backend vc-handled-backends)
        (when (vc-call-backend backend 'registered buffer-file-name)