Commit 07696982 authored by Juri Linkov's avatar Juri Linkov
Browse files

(desktop-load-file): Check for `fboundp' before calling `symbol-function'.

parent 192e44fc
......@@ -966,7 +966,7 @@ directory DIRNAME."
(defun desktop-load-file (function)
"Load the file where auto loaded FUNCTION is defined."
(when function
(let ((fcell (symbol-function function)))
(let ((fcell (and (fboundp function) (symbol-function function))))
(when (and (listp fcell)
(eq 'autoload (car fcell)))
(load (cadr fcell))))))
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