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

07696982 · Juri Linkov · 192e44fc · 07696982
Commit 07696982 authored Jan 23, 2006 by Juri Linkov
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/desktop.el lisp/desktop.el +1 -1

No files found.
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -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))))))