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.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el
index 6340c9f1d61..8d9b80bd067 100644
--- a/lisp/shadowfile.el
+++ b/lisp/shadowfile.el
@@ -417,7 +417,8 @@ filename expansion or contraction, you must do that yourself first."
              (tramp-file-name-localname file-sup))
           (string-equal
            (tramp-file-name-localname pattern-sup)
-           (tramp-file-name-localname file-sup))))))
+           (tramp-file-name-localname file-sup)))
+        t)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; User-level Commands