From 762435dda43cab221e50c22dca06e68ff0dcfa24 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 23 Oct 1992 09:19:12 +0000 Subject: [PATCH] (describe-function): Print `an autoloaded', not `a ...'. --- lisp/help.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/help.el b/lisp/help.el index 89ed440ff20..f7cdbf35414 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -304,8 +304,8 @@ C-w print information on absence of warranty for GNU Emacs." ((eq (car-safe def) 'mocklisp) "a mocklisp function.") ((eq (car-safe def) 'autoload) - (format "%sautoloaded Lisp %s." - beg + (format "%s autoloaded Lisp %s." + (if (commandp def) "an interactive" "an") (if (nth 4 def) "macro" "function") ;;; Including the file name made this line too long. ;;; (nth 1 def)