(describe-function): Print `an autoloaded', not `a ...'.

762435dd · Richard M. Stallman · 912c6728 · 762435dd
Commit 762435dd authored Oct 23, 1992 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

lisp/help.el lisp/help.el +2 -2

No files found.
--- 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)