Mercurial > emacs
comparison lisp/help.el @ 23818:19e467700712
(describe-function-1): Fix description for alias.
author | Dave Love <fx@gnu.org> |
---|---|
date | Fri, 04 Dec 1998 11:54:56 +0000 |
parents | 5475f2331d88 |
children | e9fe8ed71303 |
comparison
equal
deleted
inserted
replaced
23817:efa2dd070256 | 23818:19e467700712 |
---|---|
589 ((byte-code-function-p def) | 589 ((byte-code-function-p def) |
590 (concat beg "compiled Lisp function")) | 590 (concat beg "compiled Lisp function")) |
591 ((symbolp def) | 591 ((symbolp def) |
592 (while (symbolp (symbol-function def)) | 592 (while (symbolp (symbol-function def)) |
593 (setq def (symbol-function def))) | 593 (setq def (symbol-function def))) |
594 (format "alias for `%s'" def)) | 594 (format "an alias for `%s'" def)) |
595 ((eq (car-safe def) 'lambda) | 595 ((eq (car-safe def) 'lambda) |
596 (concat beg "Lisp function")) | 596 (concat beg "Lisp function")) |
597 ((eq (car-safe def) 'macro) | 597 ((eq (car-safe def) 'macro) |
598 "a Lisp macro") | 598 "a Lisp macro") |
599 ((eq (car-safe def) 'mocklisp) | 599 ((eq (car-safe def) 'mocklisp) |