From: Juri Linkov <juri@jurta.org>
Date: Wed, 2 Jul 2014 23:45:12 +0000 (+0300)
Subject: * lisp/desktop.el (desktop-save): Rename arg `auto-save' to `only-if-changed'.
X-Git-Tag: emacs-24.3.93~105
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cbb6a7aeff3b901645ee8e4f2c4abeceafdfc073;p=emacs.git

* lisp/desktop.el (desktop-save): Rename arg `auto-save' to `only-if-changed'.
Doc fix.

Fixes: debbugs:17873
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d9224d0b747..73f1f286c43 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-07-02  Juri Linkov  <juri@jurta.org>
+
+	* desktop.el (desktop-save): Rename arg `auto-save' to
+	`only-if-changed'.  Doc fix.  (Bug#17873)
+
 2014-07-02  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* mouse.el (mouse-yank-primary, mouse-yank-secondary):
diff --git a/lisp/desktop.el b/lisp/desktop.el
index 26d288bf9cd..4bb6fba3532 100644
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -942,12 +942,13 @@ Frames with a non-nil `desktop-dont-save' parameter are not saved."
 			    :predicate #'desktop--check-dont-save))))
 
 ;;;###autoload
-(defun desktop-save (dirname &optional release auto-save)
+(defun desktop-save (dirname &optional release only-if-changed)
   "Save the desktop in a desktop file.
 Parameter DIRNAME specifies where to save the desktop file.
 Optional parameter RELEASE says whether we're done with this desktop.
-If AUTO-SAVE is non-nil, compare the saved contents to the one last saved,
-and don't save the buffer if they are the same."
+If ONLY-IF-CHANGED is non-nil, compare the current desktop information
+to that in the desktop file, and if the desktop information has not
+changed since it was last saved then do not rewrite the file."
   (interactive (list
                 ;; Or should we just use (car desktop-path)?
                 (let ((default (if (member "." desktop-path)
@@ -1020,7 +1021,7 @@ and don't save the buffer if they are the same."
 
 	  (setq default-directory desktop-dirname)
 	  ;; When auto-saving, avoid writing if nothing has changed since the last write.
-	  (let* ((beg (and auto-save
+	  (let* ((beg (and only-if-changed
 			   (save-excursion
 			     (goto-char (point-min))
 			     ;; Don't check the header with changing timestamp