diff options
| author | Martin Rudalics | 2008-10-19 13:58:11 +0000 |
|---|---|---|
| committer | Martin Rudalics | 2008-10-19 13:58:11 +0000 |
| commit | 3ad8faa7ff8e9f5e6a7ee078edb05341e1927ffe (patch) | |
| tree | d4f76d0fd88c53196d65443df63beda5f80d3925 | |
| parent | aac0c6e36567d1b1fcdf2d8fa95b3d5a84a3e6d7 (diff) | |
| download | emacs-3ad8faa7ff8e9f5e6a7ee078edb05341e1927ffe.tar.gz emacs-3ad8faa7ff8e9f5e6a7ee078edb05341e1927ffe.zip | |
(enlarge-window-horizontally, shrink-window-horizontally):
Make argument names follow Elisp manual.
| -rw-r--r-- | lisp/ChangeLog | 19 | ||||
| -rw-r--r-- | 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 @@ | |||
| 1 | 2008-10-19 Martin Rudalics <rudalics@gmx.at> | ||
| 2 | |||
| 3 | * window.el (enlarge-window-horizontally, shrink-window-horizontally): | ||
| 4 | Make argument names follow Elisp manual. | ||
| 5 | |||
| 1 | 2008-10-19 Eli Zaretskii <eliz@gnu.org> | 6 | 2008-10-19 Eli Zaretskii <eliz@gnu.org> |
| 2 | 7 | ||
| 3 | * textmodes/remember.el (remember-data-file): | 8 | * textmodes/remember.el (remember-data-file): |
| 4 | * shadowfile.el (shadow-initialize) <shadow-info-file, shadow-todo-file>: | 9 | * shadowfile.el (shadow-initialize) <shadow-info-file, shadow-todo-file>: |
| 5 | * savehist.el (savehist-file): | 10 | * savehist.el (savehist-file): |
| 6 | * recentf.el (recentf-save-file): | 11 | * recentf.el (recentf-save-file): |
| 7 | * pcvs-defs.el (cvs-cvsrc-file): | 12 | * pcvs-defs.el (cvs-cvsrc-file): |
| 8 | * international/kkc.el (kkc-init-file-name): | 13 | * international/kkc.el (kkc-init-file-name): |
| 9 | * ido.el (ido-save-directory-list-file): | 14 | * ido.el (ido-save-directory-list-file): |
| 10 | * calendar/todo-mode.el (todo-file-do, todo-file-done) | 15 | * calendar/todo-mode.el (todo-file-do, todo-file-done) |
| 11 | (todo-file-top): Run file names that begin with a period thru | 16 | (todo-file-top): Run file names that begin with a period thru |
| 12 | `convert-standard-filename'. | 17 | `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." | |||
| 1194 | (enlarge-window delta)))))) | 1194 | (enlarge-window delta)))))) |
| 1195 | 1195 | ||
| 1196 | 1196 | ||
| 1197 | (defun enlarge-window-horizontally (arg) | 1197 | (defun enlarge-window-horizontally (columns) |
| 1198 | "Make current window ARG columns wider." | 1198 | "Make selected window COLUMNS wider. |
| 1199 | Interactively, if no argument is given, make selected window one | ||
| 1200 | column wider." | ||
| 1199 | (interactive "p") | 1201 | (interactive "p") |
| 1200 | (enlarge-window arg t)) | 1202 | (enlarge-window columns t)) |
| 1201 | 1203 | ||
| 1202 | (defun shrink-window-horizontally (arg) | 1204 | (defun shrink-window-horizontally (columns) |
| 1203 | "Make current window ARG columns narrower." | 1205 | "Make selected window COLUMNS narrower. |
| 1206 | Interactively, if no argument is given, make selected window one | ||
| 1207 | column narrower." | ||
| 1204 | (interactive "p") | 1208 | (interactive "p") |
| 1205 | (shrink-window arg t)) | 1209 | (shrink-window columns t)) |
| 1206 | 1210 | ||
| 1207 | (defun window-buffer-height (window) | 1211 | (defun window-buffer-height (window) |
| 1208 | "Return the height (in screen lines) of the buffer that WINDOW is displaying." | 1212 | "Return the height (in screen lines) of the buffer that WINDOW is displaying." |