Commit d4cfe67e authored by Juanma Barranquero's avatar Juanma Barranquero

lisp/*.el: Force non-nil result to t, to match docstring

* lisp/ido.el (ido-ignore-item-p):
* lisp/simple.el (use-region-p):
* lisp/whitespace.el (whitespace-style-face-p)
(whitespace-style-mark-p):
* lisp/calendar/cal-islam.el (calendar-islamic-leap-year-p):
* lisp/mail/rmail.el (rmail-is-text-p):
* lisp/mh-e/mh-alias.el (mh-alias-for-from-p):
* lisp/net/imap.el (imap-message-flag-permanent-p):
* lisp/progmodes/tcl.el (tcl-real-comment-p):
* lisp/textmodes/table.el (table--point-in-cell-p):
Normalize boolean result.
parent cb29a381
Pipeline #3650 failed with stage
in 90 minutes and 1 second
......@@ -45,8 +45,9 @@
(defun calendar-islamic-leap-year-p (year)
"Return t if YEAR is a leap year on the Islamic calendar."
(memq (% year 30)
(list 2 5 7 10 13 16 18 21 24 26 29)))
(and (memq (% year 30)
(list 2 5 7 10 13 16 18 21 24 26 29))
t))
(defun calendar-islamic-last-day-of-month (month year)
"The last day in MONTH during YEAR on the Islamic calendar."
......
......@@ -3890,7 +3890,7 @@ frame, rather than all frames, regardless of value of `ido-all-frames'."
(defun ido-ignore-item-p (name re-list &optional ignore-ext)
"Return t if the buffer or file NAME should be ignored."
(or (member name ido-ignore-item-temp-list)
(or (and (member name ido-ignore-item-temp-list) t)
(and
ido-process-ignore-lists re-list
(save-match-data
......
......@@ -2738,7 +2738,7 @@ N defaults to the current message."
;; (a default of "text/plain; charset=US-ASCII" is assumed) or
;; the base content type is either text or message.
(or (not content-type-header)
(string-match text-regexp content-type-header)))))
(and (string-match text-regexp content-type-header) t)))))
(defcustom rmail-show-message-verbose-min 200000
"Message size at which to show progress messages for displaying it."
......
......@@ -485,7 +485,8 @@ set `mh-alias-insert-file' or the \"Aliasfile:\" profile component"))
(set-buffer mh-show-buffer))
(let ((from-header (mh-extract-from-header-value)))
(and from-header
(mh-alias-address-to-alias from-header))))))
(mh-alias-address-to-alias from-header)
t)))))
(defun mh-alias-add-alias-to-file (alias address &optional file)
"Add ALIAS for ADDRESS in alias FILE without alias check or prompts.
......
......@@ -1672,8 +1672,9 @@ non-nil, return these properties."
"Return t if FLAG can be permanently saved on articles.
MAILBOX specifies a mailbox on the server in BUFFER."
(with-current-buffer (or buffer (current-buffer))
(or (member "\\*" (imap-mailbox-get 'permanentflags mailbox))
(member flag (imap-mailbox-get 'permanentflags mailbox)))))
(and (or (member "\\*" (imap-mailbox-get 'permanentflags mailbox))
(member flag (imap-mailbox-get 'permanentflags mailbox)))
t)))
(defun imap-message-flags-set (articles flags &optional silent buffer)
(when (and articles flags)
......
......@@ -1221,7 +1221,6 @@ first word following a semicolon, opening brace, or opening bracket."
(t
(memq (preceding-char) '(?\; ?{ ?\[))))))
;; FIXME doesn't actually return t. See last case.
(defun tcl-real-comment-p ()
"Return t if point is just after the `#' beginning a real comment.
Does not check to see if previous char is actually `#'.
......@@ -1230,7 +1229,7 @@ preceded only by whitespace on the line, or has a preceding
semicolon, opening brace, or opening bracket on the same line."
(save-excursion
(backward-char)
(tcl-real-command-p)))
(and (tcl-real-command-p) t)))
(defun tcl-hairy-scan-for-comment (state end always-stop)
"Determine if point is in a comment.
......
......@@ -5681,7 +5681,8 @@ the region must not be empty. Otherwise, the return value is nil.
For some commands, it may be appropriate to ignore the value of
`use-empty-active-region'; in that case, use `region-active-p'."
(and (region-active-p)
(or use-empty-active-region (> (region-end) (region-beginning)))))
(or use-empty-active-region (> (region-end) (region-beginning)))
t))
(defun region-active-p ()
"Return non-nil if Transient Mark mode is enabled and the mark is active.
......
......@@ -4938,7 +4938,8 @@ When optional LOCATION is provided the test is performed at that location."
(save-excursion
(goto-char location)
(table--probe-cell))
(table--probe-cell))))
(table--probe-cell))
t))
(defun table--region-in-cell-p (beg end)
"Return t when location BEG and END are in a valid table cell in the current buffer."
......
......@@ -2025,7 +2025,8 @@ resultant list will be returned."
(memq 'space-after-tab::space whitespace-active-style)
(memq 'space-before-tab whitespace-active-style)
(memq 'space-before-tab::tab whitespace-active-style)
(memq 'space-before-tab::space whitespace-active-style))))
(memq 'space-before-tab::space whitespace-active-style))
t))
(defun whitespace-color-on ()
......@@ -2326,9 +2327,10 @@ Also refontify when necessary."
(defun whitespace-style-mark-p ()
"Return t if there is some visualization via display table."
(or (memq 'tab-mark whitespace-active-style)
(memq 'space-mark whitespace-active-style)
(memq 'newline-mark whitespace-active-style)))
(and (or (memq 'tab-mark whitespace-active-style)
(memq 'space-mark whitespace-active-style)
(memq 'newline-mark whitespace-active-style))
t))
(defsubst whitespace-char-valid-p (char)
......
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