Mercurial > emacs
comparison lisp/help.el @ 1467:8d8c91b563ee
(describe-function): Print `an autoloaded', not `a ...'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 23 Oct 1992 09:19:12 +0000 |
| parents | 567b06901789 |
| children | 04fb1d3d6992 |
comparison
equal
deleted
inserted
replaced
| 1466:04b4499061fd | 1467:8d8c91b563ee |
|---|---|
| 302 ((eq (car-safe def) 'macro) | 302 ((eq (car-safe def) 'macro) |
| 303 "a Lisp macro.") | 303 "a Lisp macro.") |
| 304 ((eq (car-safe def) 'mocklisp) | 304 ((eq (car-safe def) 'mocklisp) |
| 305 "a mocklisp function.") | 305 "a mocklisp function.") |
| 306 ((eq (car-safe def) 'autoload) | 306 ((eq (car-safe def) 'autoload) |
| 307 (format "%sautoloaded Lisp %s." | 307 (format "%s autoloaded Lisp %s." |
| 308 beg | 308 (if (commandp def) "an interactive" "an") |
| 309 (if (nth 4 def) "macro" "function") | 309 (if (nth 4 def) "macro" "function") |
| 310 ;;; Including the file name made this line too long. | 310 ;;; Including the file name made this line too long. |
| 311 ;;; (nth 1 def) | 311 ;;; (nth 1 def) |
| 312 )) | 312 )) |
| 313 (t ""))) | 313 (t ""))) |