diff options
| author | Juri Linkov | 2006-01-23 01:23:10 +0000 |
|---|---|---|
| committer | Juri Linkov | 2006-01-23 01:23:10 +0000 |
| commit | 07696982f10458a8af3b47d96190c554a8fde8fc (patch) | |
| tree | b8069fd94d3bd2ce07d0e0bd9383d1edd3c8c496 | |
| parent | 192e44fc8e81000009ffa0374078c8476bd35ba4 (diff) | |
| download | emacs-07696982f10458a8af3b47d96190c554a8fde8fc.tar.gz emacs-07696982f10458a8af3b47d96190c554a8fde8fc.zip | |
(desktop-load-file): Check for `fboundp' before calling `symbol-function'.
| -rw-r--r-- | lisp/desktop.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/desktop.el b/lisp/desktop.el index 49034884b53..249ed91ab29 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el | |||
| @@ -966,7 +966,7 @@ directory DIRNAME." | |||
| 966 | (defun desktop-load-file (function) | 966 | (defun desktop-load-file (function) |
| 967 | "Load the file where auto loaded FUNCTION is defined." | 967 | "Load the file where auto loaded FUNCTION is defined." |
| 968 | (when function | 968 | (when function |
| 969 | (let ((fcell (symbol-function function))) | 969 | (let ((fcell (and (fboundp function) (symbol-function function)))) |
| 970 | (when (and (listp fcell) | 970 | (when (and (listp fcell) |
| 971 | (eq 'autoload (car fcell))) | 971 | (eq 'autoload (car fcell))) |
| 972 | (load (cadr fcell)))))) | 972 | (load (cadr fcell)))))) |