(enlarge-window-horizontally, shrink-window-horizontally):

Make argument names follow Elisp manual.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e919fdcdc8d4dde79e39b8ee684a1da4134b69bf..c22a0471f7d16a7fe85881b56b9ee659ce6a863d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,12 +1,17 @@
+2008-10-19  Martin Rudalics  <rudalics@gmx.at>
+
+       * window.el (enlarge-window-horizontally, shrink-window-horizontally):
+       Make argument names follow Elisp manual.
+
 2008-10-19  Eli Zaretskii  <eliz@gnu.org>
 
-       * textmodes/remember.el (remember-data-file): 
-       * shadowfile.el (shadow-initialize) <shadow-info-file, shadow-todo-file>: 
-       * savehist.el (savehist-file): 
-       * recentf.el (recentf-save-file): 
-       * pcvs-defs.el (cvs-cvsrc-file): 
-       * international/kkc.el (kkc-init-file-name): 
-       * ido.el (ido-save-directory-list-file): 
+       * textmodes/remember.el (remember-data-file):
+       * shadowfile.el (shadow-initialize) <shadow-info-file, shadow-todo-file>:
+       * savehist.el (savehist-file):
+       * recentf.el (recentf-save-file):
+       * pcvs-defs.el (cvs-cvsrc-file):
+       * international/kkc.el (kkc-init-file-name):
+       * ido.el (ido-save-directory-list-file):
        * calendar/todo-mode.el (todo-file-do, todo-file-done)
        (todo-file-top): Run file names that begin with a period thru
        `convert-standard-filename'.

diff --git a/lisp/window.el b/lisp/window.el
index 46f847f868663a73c61e1b6da27d93a3f3bd596e..0c1288be90b57b6d17ab241a0836f71ed4548d13 100644 (file)
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -1194,15 +1194,19 @@ lines than are actually needed in the case where some error may be present."
          (enlarge-window delta))))))
 
 \f
-(defun enlarge-window-horizontally (arg)
-  "Make current window ARG columns wider."
+(defun enlarge-window-horizontally (columns)
+  "Make selected window COLUMNS wider.
+Interactively, if no argument is given, make selected window one
+column wider."
   (interactive "p")
-  (enlarge-window arg t))
+  (enlarge-window columns t))
 
-(defun shrink-window-horizontally (arg)
-  "Make current window ARG columns narrower."
+(defun shrink-window-horizontally (columns)
+  "Make selected window COLUMNS narrower.
+Interactively, if no argument is given, make selected window one
+column narrower."
   (interactive "p")
-  (shrink-window arg t))
+  (shrink-window columns t))
 
 (defun window-buffer-height (window)
   "Return the height (in screen lines) of the buffer that WINDOW is displaying."