From 3ad8faa7ff8e9f5e6a7ee078edb05341e1927ffe Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Sun, 19 Oct 2008 13:58:11 +0000 Subject: [PATCH] (enlarge-window-horizontally, shrink-window-horizontally): Make argument names follow Elisp manual. --- lisp/ChangeLog | 19 ++++++++++++------- lisp/window.el | 16 ++++++++++------ 2 files changed, 22 insertions(+), 13 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e919fdcdc8d..c22a0471f7d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,12 +1,17 @@ +2008-10-19 Martin Rudalics + + * window.el (enlarge-window-horizontally, shrink-window-horizontally): + Make argument names follow Elisp manual. + 2008-10-19 Eli Zaretskii - * textmodes/remember.el (remember-data-file): - * shadowfile.el (shadow-initialize) : - * 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) : + * 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 46f847f8686..0c1288be90b 100644 --- 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)))))) -(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." -- 2.39.5