diff options
| -rw-r--r-- | lisp/desktop.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/desktop.el b/lisp/desktop.el index 2e53b15af38..c3c9da53b06 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el | |||
| @@ -1240,7 +1240,13 @@ Using it may cause conflicts. Use it anyway? " owner))))) | |||
| 1240 | ;; disabled when loading the desktop fails with errors, | 1240 | ;; disabled when loading the desktop fails with errors, |
| 1241 | ;; thus not overwriting the desktop with broken contents. | 1241 | ;; thus not overwriting the desktop with broken contents. |
| 1242 | (setq desktop-autosave-was-enabled | 1242 | (setq desktop-autosave-was-enabled |
| 1243 | (memq 'desktop-auto-save-set-timer window-configuration-change-hook)) | 1243 | (memq 'desktop-auto-save-set-timer |
| 1244 | ;; Use the toplevel value of the hook, in case some | ||
| 1245 | ;; feature makes window-configuration-change-hook | ||
| 1246 | ;; buffer-local, and puts there stuff which | ||
| 1247 | ;; doesn't include our timer. | ||
| 1248 | (default-toplevel-value | ||
| 1249 | 'window-configuration-change-hook))) | ||
| 1244 | (desktop-auto-save-disable) | 1250 | (desktop-auto-save-disable) |
| 1245 | ;; Evaluate desktop buffer and remember when it was modified. | 1251 | ;; Evaluate desktop buffer and remember when it was modified. |
| 1246 | (setq desktop-file-modtime (nth 5 (file-attributes (desktop-full-file-name)))) | 1252 | (setq desktop-file-modtime (nth 5 (file-attributes (desktop-full-file-name)))) |