From 2bb0703e24ec1b02bb2ab4be67719e2e050cc4d3 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 17 Oct 2019 02:08:43 +0200 Subject: lisp/*.el: Force non-nil result to t, to match docstring * lisp/emacs-lock.el (emacs-lock-live-process-p): * lisp/shadowfile.el (shadow-file-match): * lisp/emacs-lisp/edebug.el (edebug-basic-spec): * lisp/mail/rmail.el (rmail-expunge-confirmed): * lisp/net/soap-client.el (soap-should-encode-value-for-xs-element): * lisp/progmodes/idlwave.el (idlwave-quoted): * lisp/progmodes/idlw-shell.el (idlwave-shell-filename-string): * lisp/textmodes/refbib.el (r2b-isa-proceedings): * lisp/textmodes/texnfo-upd.el (texinfo-find-lower-level-node): Normalize boolean result. --- lisp/emacs-lisp/edebug.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index cd709c77b30..bfec807b5c8 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -258,7 +258,8 @@ An extant spec symbol is a symbol that is not a function and has a (setq spec (cdr spec))) t)) ((symbolp spec) - (unless (functionp spec) (function-get spec 'edebug-form-spec))))) + (unless (functionp spec) + (and (function-get spec 'edebug-form-spec) t))))) ;;; Utilities -- cgit v1.2.3