Commit d2e1218f authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 3ed5409e
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment