From b6babe9b4459763889d74d455005d6765df8686d Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 16 Oct 2019 14:37:06 +0200 Subject: [PATCH] lisp/speedbar.el: Fix computation of boolean return values * lisp/speedbar.el (speedbar-check-vc-this-line): Normalize boolean result. (speedbar-this-file-in-vc): Use `run-hook-with-args-until-success' to check for files under versin control. Doc fix. --- lisp/speedbar.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/speedbar.el b/lisp/speedbar.el index addb2b42bb7..df9e932be93 100644 --- a/lisp/speedbar.el +++ b/lisp/speedbar.el @@ -2934,7 +2934,8 @@ the file being checked." (if (<= 2 speedbar-verbosity-level) (dframe-message "Speedbar vc check...%s" fulln)) (and (file-writable-p fulln) - (speedbar-this-file-in-vc f fn)))) + (speedbar-this-file-in-vc f fn) + t))) (defun speedbar-vc-check-dir-p (directory) "Return t if we should bother checking DIRECTORY for version control files. @@ -2948,14 +2949,15 @@ This can be overloaded to add new types of version control systems." )) (defun speedbar-this-file-in-vc (directory name) - "Check to see if the file in DIRECTORY with NAME is in a version control system. + "Return non-nil if the file NAME in DIRECTORY is under version control. Automatically recognizes all VCs supported by VC mode. You can optimize this function by overriding it and only doing those checks that will occur on your system." (or (vc-backend (concat directory "/" name)) ;; User extension - (run-hook-with-args 'speedbar-vc-in-control-hook directory name) + (run-hook-with-args-until-success 'speedbar-vc-in-control-hook + directory name) )) ;; Object File scanning -- 2.39.2