1
0
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:
Eric S. Raymond 2014-11-22 06:32:48 -05:00
parent e9b1902634
commit cec2396625
2 changed files with 13 additions and 12 deletions

View File

@ -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.

View 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.