diff options
author | Stefan Kangas <stefankangas@gmail.com> | 2023-08-27 21:45:30 +0200 |
---|---|---|
committer | Stefan Kangas <stefankangas@gmail.com> | 2023-08-27 21:45:30 +0200 |
commit | 967fa846fc7a83bbddf920cadd569490b837873c (patch) | |
tree | 3f43b0f8a2a8c7c7a5243c896e63eab6a1a50d74 /lisp/help-fns.el | |
parent | 48068a7344c8c895b2f7f47f32c3590c2cdf1abd (diff) | |
download | emacs-967fa846fc7a83bbddf920cadd569490b837873c.tar.gz |
Use ensure-list in many more places
* lisp/align.el (align-region):
* lisp/auth-source-pass.el (auth-source-pass--build-result-many):
* lisp/auth-source.el (auth-source-ensure-strings):
* lisp/calendar/appt.el (appt-disp-window):
* lisp/cedet/mode-local.el (mode-local-map-mode-buffers):
* lisp/cus-edit.el (custom-prompt-variable)
(custom-variable-menu-create):
* lisp/dired-x.el (dired-mark-extension, dired-mark-suffix):
* lisp/emacs-lisp/checkdoc.el (checkdoc-defun-info):
* lisp/emacs-lisp/eieio.el (object-add-to-list):
* lisp/emulation/cua-base.el (cua--M/H-key):
* lisp/epg.el (epg--list-keys-1):
* lisp/faces.el (read-face-name):
* lisp/format.el (format-decode):
* lisp/gnus/gnus-score.el (gnus-home-score-file)
(gnus-all-score-files):
* lisp/gnus/gnus-uu.el (gnus-uu-grab-articles):
* lisp/gnus/message.el (message-make-forward-subject):
* lisp/gnus/nnmairix.el (nnmairix-create-search-group):
* lisp/gnus/spam.el (spam-copy-or-move-routine):
* lisp/help-fns.el (describe-face):
* lisp/ibuf-macs.el (define-ibuffer-filter):
* lisp/international/mule-cmds.el (select-safe-coding-system):
* lisp/net/imap.el (imap-send-command):
* lisp/printing.el (pr-menu-get-item):
* lisp/speedbar.el (speedbar-add-supported-extension)
(speedbar-add-ignored-directory-regexp):
* lisp/textmodes/rst.el (rst-forward-line-looking-at):
* lisp/vc/ediff-util.el (ediff-other-buffer):
* lisp/vc/diff.el (diff-no-select):
* lisp/vc/vc-dir.el (vc-dir-mark-state-files):
* lisp/wid-edit.el (widget-prompt-value):
* lisp/windmove.el (windmove-default-keybindings)
(windmove-display-default-keybindings)
(windmove-delete-default-keybindings)
(windmove-swap-states-default-keybindings):
* lisp/window.el (display-buffer-reuse-mode-window):
* lisp/woman.el (woman-expand-directory-path): Prefer ensure-list.
Diffstat (limited to 'lisp/help-fns.el')
-rw-r--r-- | lisp/help-fns.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 22cfbbc39cd..609bed18f2f 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -1749,8 +1749,7 @@ If FRAME is omitted or nil, use the selected frame." (called-interactively-p 'interactive)) (unless face (setq face 'default)) - (if (not (listp face)) - (setq face (list face))) + (setq face (ensure-list face)) (with-help-window (help-buffer) (with-current-buffer standard-output (dolist (f face (buffer-string)) |