emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] trunk r116372: * files.el (save-buffer): Use ARG as the pa


From: Lars Ingebrigtsen
Subject: [Emacs-diffs] trunk r116372: * files.el (save-buffer): Use ARG as the parameter name for consistency
Date: Sun, 09 Feb 2014 05:31:57 +0000
User-agent: Bazaar (2.6b2)

------------------------------------------------------------
revno: 116372
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/10346
committer: Lars Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Sat 2014-02-08 21:30:41 -0800
message:
  * files.el (save-buffer): Use ARG as the parameter name for consistency
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/files.el                  files.el-20091113204419-o5vbwnq5f7feedwu-265
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-02-09 05:05:06 +0000
+++ b/lisp/ChangeLog    2014-02-09 05:30:41 +0000
@@ -1,5 +1,8 @@
 2014-02-09  Lars Ingebrigtsen  <address@hidden>
 
+       * 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).

=== modified file 'lisp/files.el'
--- a/lisp/files.el     2014-02-09 03:02:45 +0000
+++ b/lisp/files.el     2014-02-09 05:30:41 +0000
@@ -4539,7 +4539,7 @@
             ;; 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 @@
 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 @@
     (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.


reply via email to

[Prev in Thread] Current Thread [Next in Thread]