mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-27 07:37:33 +00:00
Unbreak the build.
I don't really understand why this reversion works, but it will do until I can actually comprehend the bizarre hairball that is Emacs bootstrapping.
This commit is contained in:
parent
e9b1902634
commit
cec2396625
@ -81,18 +81,6 @@ If the file is not registered, or the master name is not known, return nil."
|
||||
(vc-file-setprop file 'vc-name result)
|
||||
nil)))) ; Not registered
|
||||
|
||||
(defun vc-possible-master (s dirname basename)
|
||||
(cond
|
||||
((stringp s) (format s dirname basename))
|
||||
((functionp s)
|
||||
;; The template is a function to invoke. If the
|
||||
;; function returns non-nil, that means it has found a
|
||||
;; master. For backward compatibility, we also handle
|
||||
;; the case that the function throws a 'found atom
|
||||
;; and a pair (cons MASTER-FILE BACKEND).
|
||||
(let ((result (catch 'found (funcall s dirname basename))))
|
||||
(if (consp result) (car result) result)))))
|
||||
|
||||
(defun vc-check-master-templates (file templates)
|
||||
"Return non-nil if there is a master corresponding to FILE.
|
||||
|
||||
|
@ -637,6 +637,19 @@ If FILE is not registered, this function always returns nil."
|
||||
(vc-file-setprop file 'vc-master-name result)
|
||||
nil)))) ; Not registered
|
||||
|
||||
;;;###autoload
|
||||
(defun vc-possible-master (s dirname basename)
|
||||
(cond
|
||||
((stringp s) (format s dirname basename))
|
||||
((functionp s)
|
||||
;; The template is a function to invoke. If the
|
||||
;; function returns non-nil, that means it has found a
|
||||
;; master. For backward compatibility, we also handle
|
||||
;; the case that the function throws a 'found atom
|
||||
;; and a pair (cons MASTER-FILE BACKEND).
|
||||
(let ((result (catch 'found (funcall s dirname basename))))
|
||||
(if (consp result) (car result) result)))))
|
||||
|
||||
(defun vc-check-master-templates (file templates)
|
||||
"Return non-nil if there is a master corresponding to FILE.
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user