* lisp/desktop.el: Activate auto-saving on window configuration changes.

(desktop-save-mode, desktop-auto-save-timeout): Add/remove
`desktop-auto-save-set-timer' to/from `window-configuration-change-hook'.
(desktop-auto-save-set-timer): Change REPEAT arg of
`run-with-idle-timer' from t to nil.
http://lists.gnu.org/archive/html/emacs-devel/2014-06/msg00147.html

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a3f061a7d934a7e0c7f506c6bcb334fe189da2aa..6e89afc67153e1925fb4c474e9be91cc5cfb6149 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2014-06-06  Juri Linkov  <juri@jurta.org>
+
+       * desktop.el: Activate auto-saving on window configuration changes.
+       (desktop-save-mode, desktop-auto-save-timeout): Add/remove
+       `desktop-auto-save-set-timer' to/from `window-configuration-change-hook'.
+       (desktop-auto-save-set-timer): Change REPEAT arg of
+       `run-with-idle-timer' from t to nil.
+       http://lists.gnu.org/archive/html/emacs-devel/2014-06/msg00147.html
+
 2014-06-06  Santiago Payà i Miralta  <santiagopim@gmail.com>
 
        * vc/vc-hg.el (vc-hg-working-revision): Use "hg parent" and

diff --git a/lisp/desktop.el b/lisp/desktop.el
index ded73c065f07e737b5742d92924636c70a6775d5..d420a6416a961ff9bd22f37b638edfeefcff600f 100644 (file)
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -174,7 +174,10 @@ For further details, see info node `(emacs)Saving Emacs Sessions'."
   :global t
   :group 'desktop
   (if desktop-save-mode
-      (desktop-auto-save-set-timer)
+      (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)))
 
 (defun desktop-save-mode-off ()
@@ -207,13 +210,18 @@ determine where the desktop is saved."
 
 (defcustom desktop-auto-save-timeout auto-save-timeout
   "Number of seconds idle time before auto-save of the desktop.
+The idle timer activates auto-saving only when window configuration changes.
 This applies to an existing desktop file when `desktop-save-mode' is enabled.
 Zero or nil means disable auto-saving due to idleness."
   :type '(choice (const :tag "Off" nil)
                  (integer :tag "Seconds"))
   :set (lambda (symbol value)
          (set-default symbol value)
-         (ignore-errors (desktop-auto-save-set-timer)))
+         (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))))
   :group 'desktop
   :version "24.4")
 
@@ -1244,7 +1252,7 @@ after that many seconds of idle time."
   (when (and (integerp desktop-auto-save-timeout)
             (> desktop-auto-save-timeout 0))
     (setq desktop-auto-save-timer
-         (run-with-idle-timer desktop-auto-save-timeout t
+         (run-with-idle-timer desktop-auto-save-timeout nil
                               'desktop-auto-save))))
 
 (defun desktop-auto-save-cancel-timer ()