Mercurial > emacs
comparison lisp/help.el @ 1821:04fb1d3d6992
JimB's changes since January 18th
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Tue, 26 Jan 1993 01:58:16 +0000 |
| parents | 8d8c91b563ee |
| children | 1ed971f67bfd |
comparison
equal
deleted
inserted
replaced
| 1820:b95bdb97c3e8 | 1821:04fb1d3d6992 |
|---|---|
| 291 (let* ((def (symbol-function function)) | 291 (let* ((def (symbol-function function)) |
| 292 (beg (if (commandp def) "an interactive " "a "))) | 292 (beg (if (commandp def) "an interactive " "a "))) |
| 293 (princ (cond ((stringp def) "a keyboard macro.") | 293 (princ (cond ((stringp def) "a keyboard macro.") |
| 294 ((subrp def) | 294 ((subrp def) |
| 295 (concat beg "built-in function.")) | 295 (concat beg "built-in function.")) |
| 296 ((compiled-function-p def) | 296 ((byte-code-function-p def) |
| 297 (concat beg "compiled Lisp function.")) | 297 (concat beg "compiled Lisp function.")) |
| 298 ((symbolp def) | 298 ((symbolp def) |
| 299 (format "alias for `%s'." def)) | 299 (format "alias for `%s'." def)) |
| 300 ((eq (car-safe def) 'lambda) | 300 ((eq (car-safe def) 'lambda) |
| 301 (concat beg "Lisp function.")) | 301 (concat beg "Lisp function.")) |