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.")) |