[Emacs-diffs] emacs-24 r117293: * lisp/desktop.el (desktop-auto-save-enable)

[Juri Linkov]

------------------------------------------------------------
revno: 117293
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/17351
committer: Juri Linkov <address@hidden>
branch nick: emacs-24
timestamp: Wed 2014-06-25 02:23:41 +0300
message:
  * lisp/desktop.el (desktop-auto-save-enable)
  (desktop-auto-save-disable): New functions.
  (desktop-save-mode, desktop-auto-save-timeout): Use them.
  (desktop-read): Disable the autosave before loading the desktop,
  and enable afterwards.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/desktop.el                desktop.el-20091113204419-o5vbwnq5f7feedwu-591

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-06-24 20:16:10 +0000
+++ b/lisp/ChangeLog    2014-06-24 23:23:41 +0000
@@ -1,3 +1,11 @@
+2014-06-24  Juri Linkov  <address@hidden>
+
+       * desktop.el (desktop-auto-save-enable)
+       (desktop-auto-save-disable): New functions.
+       (desktop-save-mode, desktop-auto-save-timeout): Use them.
+       (desktop-read): Disable the autosave before loading the desktop,
+       and enable afterwards.  (Bug#17351)
+
 2014-06-24  Stefan Monnier  <address@hidden>
 
        Fix some indentation problem with \; and pipes (bug#17842).

=== modified file 'lisp/desktop.el'
--- a/lisp/desktop.el   2014-06-06 23:38:40 +0000
+++ b/lisp/desktop.el   2014-06-24 23:23:41 +0000
@@ -174,11 +174,8 @@
   :global t
   :group 'desktop
   (if desktop-save-mode
-      (when (and (integerp desktop-auto-save-timeout)
-                (> desktop-auto-save-timeout 0))
-       (add-hook 'window-configuration-change-hook 
'desktop-auto-save-set-timer))
-    (remove-hook 'window-configuration-change-hook 
'desktop-auto-save-set-timer)
-    (desktop-auto-save-cancel-timer)))
+      (desktop-auto-save-enable)
+    (desktop-auto-save-disable)))
 
 (defun desktop-save-mode-off ()
   "Disable `desktop-save-mode'.  Provided for use in hooks."
@@ -219,9 +216,8 @@
          (set-default symbol value)
          (ignore-errors
           (if (and (integerp value) (> value 0))
-              (add-hook 'window-configuration-change-hook 
'desktop-auto-save-set-timer)
-            (remove-hook 'window-configuration-change-hook 
'desktop-auto-save-set-timer)
-            (desktop-auto-save-cancel-timer))))
+              (desktop-auto-save-enable value)
+            (desktop-auto-save-disable))))
   :group 'desktop
   :version "24.4")
 
@@ -1132,6 +1128,10 @@
                (unless desktop-dirname
                  (message "Desktop file in use; not loaded.")))
            (desktop-lazy-abort)
+           ;; Temporarily disable the autosave that will leave it
+           ;; disabled when loading the desktop fails with errors,
+           ;; thus not overwriting the desktop with broken contents.
+           (desktop-auto-save-disable)
            ;; Evaluate desktop buffer and remember when it was modified.
            (load (desktop-full-file-name) t t t)
            (setq desktop-file-modtime (nth 5 (file-attributes 
(desktop-full-file-name))))
@@ -1184,6 +1184,7 @@
                                  (set-window-prev-buffers window nil)
                                  (set-window-next-buffers window nil))))
            (setq desktop-saved-frameset nil)
+           (desktop-auto-save-enable)
            t))
       ;; No desktop file found.
       (desktop-clear)
@@ -1230,6 +1231,15 @@
 ;; Auto-Saving.
 (defvar desktop-auto-save-timer nil)
 
+(defun desktop-auto-save-enable (&optional timeout)
+  (when (and (integerp (or timeout desktop-auto-save-timeout))
+            (> (or timeout desktop-auto-save-timeout) 0))
+    (add-hook 'window-configuration-change-hook 'desktop-auto-save-set-timer)))
+
+(defun desktop-auto-save-disable ()
+  (remove-hook 'window-configuration-change-hook 'desktop-auto-save-set-timer)
+  (desktop-auto-save-cancel-timer))
+
 (defun desktop-auto-save ()
   "Save the desktop periodically.
 Called by the timer created in `desktop-auto-save-set-timer'."