From 47bdbc8d859df7d889cb61ae48a447509c7f95e1 Mon Sep 17 00:00:00 2001 From: Pip Cet Date: Tue, 9 Jun 2026 11:23:44 +0000 Subject: [PATCH] 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). --- lisp/help-fns.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/help-fns.el b/lisp/help-fns.el index b7292eafb8a..af5a64f9e9c 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -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))))))