# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1137979390 0
# Node ID ffdb60daf52a02176cfdf32e0566db7bbe08698c
# Parent  05dbd20a248e9b29104f2cb4309046a99f9ca30b
(desktop-load-file): Check for `fboundp' before calling `symbol-function'.

diff -r 05dbd20a248e -r ffdb60daf52a lisp/desktop.el
--- 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))))))