mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

(safe-documentation): Don't crash on byte-compiled macro.

Browse Source
This commit is contained in:
Richard M. Stallman 1993-06-08 01:32:42 +00:00
parent 3ed5409efa
commit d2e1218f85
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/apropos.el
View File

@ -329,10 +329,10 @@ Will return nil instead."
(setq function (if (fboundp function)
(symbol-function function)
0)))
(if (eq (car-safe function) 'macro)
(setq function (cdr function)))
(if (not (consp function))
nil
(if (eq (car function) 'macro)
(setq function (cdr function)))
(if (not (memq (car function) '(lambda autoload)))
nil
(setq function (nth 2 function))