Mercurial > emacs
comparison lisp/help-fns.el @ 42265:02450f475e96
Remove mocklisp function case.
| author | Pavel Janík <Pavel@Janik.cz> |
|---|---|
| date | Sat, 22 Dec 2001 13:35:14 +0000 |
| parents | 037ba6ecc02a |
| children | 668b6361c3c4 |
comparison
equal
deleted
inserted
replaced
| 42264:5b3e61030df7 | 42265:02450f475e96 |
|---|---|
| 161 (format "an alias for `%s'" def)) | 161 (format "an alias for `%s'" def)) |
| 162 ((eq (car-safe def) 'lambda) | 162 ((eq (car-safe def) 'lambda) |
| 163 (concat beg "Lisp function")) | 163 (concat beg "Lisp function")) |
| 164 ((eq (car-safe def) 'macro) | 164 ((eq (car-safe def) 'macro) |
| 165 "a Lisp macro") | 165 "a Lisp macro") |
| 166 ((eq (car-safe def) 'mocklisp) | |
| 167 "a mocklisp function") | |
| 168 ((eq (car-safe def) 'autoload) | 166 ((eq (car-safe def) 'autoload) |
| 169 (setq file-name (nth 1 def)) | 167 (setq file-name (nth 1 def)) |
| 170 (format "%s autoloaded %s" | 168 (format "%s autoloaded %s" |
| 171 (if (commandp def) "an interactive" "an") | 169 (if (commandp def) "an interactive" "an") |
| 172 (if (eq (nth 4 def) 'keymap) "keymap" | 170 (if (eq (nth 4 def) 'keymap) "keymap" |