mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-06-14 04:21:24 +00:00
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:
parent
1a5d9a4be3
commit
47bdbc8d85
1 changed files with 2 additions and 1 deletions
|
|
@ -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))))))
|
||||
|
|
|
|||
Loading…
Reference in a new issue