From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 9 Feb 2014 05:30:41 +0000 (-0800)
Subject: * files.el (save-buffer): Use ARG as the parameter name for consistency
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~64
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=468ef48472bade5288c2730daf469ac2abe92633;p=emacs.git

* files.el (save-buffer): Use ARG as the parameter name for consistency

Fixes: debbugs:10346
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bcccef8e262..519a4490163 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2014-02-09  Lars Ingebrigtsen  <larsi@gnus.org>
 
+	* files.el (save-buffer): Use ARG as the parameter name for
+	consistency (bug#10346).
+
 	* cus-edit.el (customize-apropos): Fix error string.
 	(custom-buffer-create): Doc fix (bug#11122).
 	(custom-sort-items): Doc fix (bug#11121).
diff --git a/lisp/files.el b/lisp/files.el
index 835db3eab18..dd6d2f14884 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -4539,7 +4539,7 @@ on a DOS/Windows machine, it returns FILENAME in expanded form."
             ;; We matched FILENAME's directory equivalent.
             ancestor))))))
 
-(defun save-buffer (&optional args)
+(defun save-buffer (&optional arg)
   "Save current buffer in visited file if modified.
 Variations are described below.
 
@@ -4577,9 +4577,9 @@ If `vc-make-backup-files' is nil, which is the default,
 See the subroutine `basic-save-buffer' for more information."
   (interactive "p")
   (let ((modp (buffer-modified-p))
-	(make-backup-files (or (and make-backup-files (not (eq args 0)))
-			       (memq args '(16 64)))))
-    (and modp (memq args '(16 64)) (setq buffer-backed-up nil))
+	(make-backup-files (or (and make-backup-files (not (eq arg 0)))
+			       (memq arg '(16 64)))))
+    (and modp (memq arg '(16 64)) (setq buffer-backed-up nil))
     ;; We used to display the message below only for files > 50KB, but
     ;; then Rmail-mbox never displays it due to buffer swapping.  If
     ;; the test is ever re-introduced, be sure to handle saving of
@@ -4587,7 +4587,7 @@ See the subroutine `basic-save-buffer' for more information."
     (if (and modp (buffer-file-name))
 	(message "Saving file %s..." (buffer-file-name)))
     (basic-save-buffer)
-    (and modp (memq args '(4 64)) (setq buffer-backed-up nil))))
+    (and modp (memq arg '(4 64)) (setq buffer-backed-up nil))))
 
 (defun delete-auto-save-file-if-necessary (&optional force)
   "Delete auto-save file for current buffer if `delete-auto-save-files' is t.