🚀 go-pugleaf

Sorry that last one was missing a `()' in the `let' form.

Sat Oct  1 10:40:31 1994  Lawrence R. Dodd  <dodd@roebling.poly.edu>

	* vc-hooks.el (vc-name): If FILE's master file exists return it.
	Otherwise, clear FILE's vc-name buffer property.

cd /usr/local/lib/emacs/19.27/lisp/
diff -c vc-hooks.el.orig vc-hooks.el
*** vc-hooks.el.orig	Thu May 19 17:58:26 1994
--- vc-hooks.el	Sat Oct  1 10:53:02 1994
***************
*** 101,107 ****
  
  (defun vc-name (file)
    "Return the master name of a file, nil if it is not registered."
!   (or (vc-file-getprop file 'vc-name)
        (let ((name-and-type (vc-registered file)))
  	(if name-and-type
  	    (progn
--- 101,113 ----
  
  (defun vc-name (file)
    "Return the master name of a file, nil if it is not registered."
!   (or (let ((master (vc-file-getprop file 'vc-name)))
!         (if master
!             ;; If there is a master file and it exists, return it. 
!             (if (file-exists-p master)
!                 master
!               ;; If it does not exist, clear vc-name buffer property.
!               (vc-file-setprop buffer-file-name 'vc-name nil))))
        (let ((name-and-type (vc-registered file)))
  	(if name-and-type
  	    (progn