Commit 2bb0703e authored by Juanma Barranquero's avatar Juanma Barranquero

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.
parent d502f0c4
......@@ -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
......
......@@ -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.
......
......@@ -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)
......
......@@ -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.
......
......@@ -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"
......
......@@ -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
......
......@@ -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
......
......@@ -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,
......
......@@ -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.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment