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)
(if (eq (car-safe function) 'macro)
(setq function (cdr function)))
(if (not (consp function))
(if (eq (car function) 'macro)
(setq function (cdr function)))
(if (not (memq (car function) '(lambda autoload)))
(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