Restore "interactive" when describing functions

* lisp/help-fns.el (help-fns-function-description-header): Only
substitute "an" for "a", not for a longer BEG (bug#81203).
This commit is contained in:
Pip Cet 2026-06-09 11:23:44 +00:00 committed by Sean Whitton
parent 1a5d9a4be3
commit 47bdbc8d85

View file

@ -1184,7 +1184,8 @@ Returns a list of the form (REAL-FUNCTION DEF ALIASED REAL-DEF)."
;; FIXME: If someday Emacs has a function type symbol
;; like `unicode-function' or `hour-function', this
;; will produce an ungrammatical string (bug#79469).
(concat (if (string-match-p "\\`[aeiou]" (symbol-name type))
(concat (if (and (equal beg "a ")
(string-match-p "\\`[aeiou]" typ-str))
"an "
beg)
typ-str))))))