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.

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index cd709c77b30dec7d075b172ef1e5885fa600a49b..bfec807b5c8c3682141bd7bd5719260c1fd58e51 100644 (file)
--- 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
 

diff --git a/lisp/emacs-lock.el b/lisp/emacs-lock.el
index 0cded29193acb539cf4a571d04909ccede8347f1..1c1ea59f05b7e8e4fc228238ab6fc4f0d7fb3315 100644 (file)
--- a/lisp/emacs-lock.el
+++ b/lisp/emacs-lock.el
@@ -115,7 +115,7 @@ Internal use only.")
 
 (defun emacs-lock-live-process-p (buffer-or-name)
   "Return t if BUFFER-OR-NAME is associated with a live process."
-  (process-live-p (get-buffer-process buffer-or-name)))
+  (and (process-live-p (get-buffer-process buffer-or-name)) t))
 
 (defun emacs-lock--can-auto-unlock (action)
   "Return t if the current buffer can auto-unlock for ACTION.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 34f8a46761b4ef48835c0d914ecdf4ade3b44a70..0b5f564abf4133785523e5ec28dab0787d7be8b0 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -3547,8 +3547,10 @@ If `rmail-confirm-expunge' is non-nil, ask user to confirm."
   (and (stringp rmail-deleted-vector)
        (string-match "D" rmail-deleted-vector)
        (if rmail-confirm-expunge
-          (funcall rmail-confirm-expunge
-                   "Erase deleted messages from Rmail file? ")
+          (and (funcall rmail-confirm-expunge
+                        "Erase deleted messages from Rmail file? ")
+               ;; In case r-c-e's function returns non-nil, non-t
+               t)
         t)))
 
 (defun rmail-only-expunge (&optional dont-show)

diff --git a/lisp/net/soap-client.el b/lisp/net/soap-client.el
index 956e2cf4c4dd036db903f612290aea38904d2eba..535e46cf6d82434f69d5511a3b49c3629449e88a 100644 (file)
--- a/lisp/net/soap-client.el
+++ b/lisp/net/soap-client.el
@@ -844,7 +844,7 @@ This is a specialization of `soap-encode-attributes' for
   "Return t if VALUE should be encoded for ELEMENT, nil otherwise."
   (cond
    ;; if value is not nil, attempt to encode it
-   (value)
+   (value t)
 
    ;; value is nil, but the element's type is a boolean, so nil in this case
    ;; means "false".  We need to encode it.

diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el
index dde51b355e5c07c681c4a8b82310df7b624320aa..3367454c1cc750e66c4e2b0253711ec24d8a5e76 100644 (file)
--- a/lisp/progmodes/idlw-shell.el
+++ b/lisp/progmodes/idlw-shell.el
@@ -2155,7 +2155,7 @@ args of an executive .run, .rnew or .compile."
       ;; Skip backwards over file name chars
       (skip-chars-backward idlwave-shell-file-name-chars limit)
       ;; Check of the next char is a string delimiter
-      (memq (preceding-char) '(?\' ?\")))))
+      (and (memq (preceding-char) '(?\' ?\")) t))))
 
 (defun idlwave-shell-batch-command ()
   "Return t if we're in a batch command statement like @foo"

diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index 3535a7b4aa3de6f42bf80ab82ec6f4de86eeb005..9c46ac84e228000e2ceb92ae5a1d04ab27ee585b 100644 (file)
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -3629,7 +3629,7 @@ Calling from a program, arguments are START END."
 (defun idlwave-quoted ()
   "Return t if point is in a comment or quoted string.
 Returns nil otherwise."
-  (or (idlwave-in-comment) (idlwave-in-quote)))
+  (and (or (idlwave-in-comment) (idlwave-in-quote)) t))
 
 (defun idlwave-in-quote ()
   "Return location of the opening quote

diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el
index 6340c9f1d61124011ab604c7c2c88748c1cbcbbb..8d9b80bd067018275404abd9b4ebb8eecefd3c06 100644 (file)
--- 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

diff --git a/lisp/textmodes/refbib.el b/lisp/textmodes/refbib.el
index 3ba52e61ea6c8813b0989b531f3ff923a23adcac..207fcf2f2130b25403160a7345891467f62005db 100644 (file)
--- a/lisp/textmodes/refbib.el
+++ b/lisp/textmodes/refbib.el
@@ -498,8 +498,9 @@ try to replace the {DATA} with an abbreviation."
         (assoc name r2b-proceedings-list)
         (let ((match (assoc name r2b-booktitle-abbrevs)))
            (and match
-              (string-match "proceedings\\|conference" (car (cdr match)))))
-      )))
+                (string-match "proceedings\\|conference" (car (cdr match))))))
+      t
+      ))
 
 (defun r2b-isa-university (name)
    "Return t if NAME is a university or similar organization,

diff --git a/lisp/textmodes/texnfo-upd.el b/lisp/textmodes/texnfo-upd.el
index 134f82b14e0ca11333cf4cd0a2fde855d65f20fb..e2a0ed9af6fe6d803fc27ac72f2f3b82f33c56e8 100644 (file)
--- a/lisp/textmodes/texnfo-upd.el
+++ b/lisp/textmodes/texnfo-upd.el
@@ -410,23 +410,24 @@ and to the end of the menu region for the level.
 Return t if the node is found, else nil.  Leave point at the beginning
 of the node if one is found; else do not move point."
   (let ((case-fold-search t))
-    (if (and (< (point) region-end)
-            (re-search-forward
-             (concat
-              "\\(^@node\\).*\n"         ; match node line
-              "\\(\\(\\(^@c\\).*\n\\)"   ; match comment line, if any
-              "\\|"                      ; or
-              "\\(^@ifinfo[ ]*\n\\)"     ; ifinfo line, if any
-               "\\|"                      ; or
-               "\\(^@ifnottex[ ]*\n\\)"   ; ifnottex line, if any
-               "\\)?"                     ; end of expression
-              (eval (cdr (assoc level texinfo-update-menu-lower-regexps))))
-             ;; the next higher level node marks the end of this
-             ;; section, and no lower level node will be found beyond
-             ;; this position even if region-end is farther off
-             (texinfo-update-menu-region-end level)
-             t))
-       (goto-char (match-beginning 1)))))
+    (when (and (< (point) region-end)
+              (re-search-forward
+               (concat
+                "\\(^@node\\).*\n"         ; match node line
+                "\\(\\(\\(^@c\\).*\n\\)"   ; match comment line, if any
+                "\\|"                      ; or
+                "\\(^@ifinfo[ ]*\n\\)"     ; ifinfo line, if any
+                "\\|"                      ; or
+                "\\(^@ifnottex[ ]*\n\\)"   ; ifnottex line, if any
+                "\\)?"                     ; end of expression
+                (eval (cdr (assoc level texinfo-update-menu-lower-regexps))))
+               ;; the next higher level node marks the end of this
+               ;; section, and no lower level node will be found beyond
+               ;; this position even if region-end is farther off
+               (texinfo-update-menu-region-end level)
+               t))
+      (goto-char (match-beginning 1))
+      t)))
 
 (defun texinfo-find-higher-level-node (level region-end)
   "Search forward from point for node at any higher level than argument LEVEL.