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

Fixes: debbugs:10346

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bcccef8e262b6ec9517403b9abf1c534ed0ee3b2..519a4490163cb5bc1d0dc4c215b83b05b7b895e4 100644 (file)
--- 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 835db3eab18aefd9845c9b37466dbb5efe0ef128..dd6d2f148847f74765e7f823b8ddfec5e5392a3d 100644 (file)
--- 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))))))
 \f
-(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.