Mercurial > emacs

changeset 68344:ffdb60daf52a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(desktop-load-file): Check for `fboundp' before calling `symbol-function'.
author Juri Linkov <juri@jurta.org>
date Mon, 23 Jan 2006 01:23:10 +0000
parents 05dbd20a248e
children b10c2ebde562
files lisp/desktop.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/desktop.el	Mon Jan 23 01:21:24 2006 +0000
+++ b/lisp/desktop.el	Mon Jan 23 01:23:10 2006 +0000
@@ -966,7 +966,7 @@
 (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))))))