diff options
| author | Stephen Berman | 2013-04-13 16:37:20 +0200 |
|---|---|---|
| committer | Stephen Berman | 2013-04-13 16:37:20 +0200 |
| commit | 0aa3616eed6914d159d1136aaa487ac3b042cf7d (patch) | |
| tree | fa8a8e3f3ba9844d06a39a602e83cf30c31a575e /lisp | |
| parent | 8c35e3c3b48cadea093d1a05a4839b9962bcce93 (diff) | |
| download | emacs-0aa3616eed6914d159d1136aaa487ac3b042cf7d.tar.gz emacs-0aa3616eed6914d159d1136aaa487ac3b042cf7d.zip | |
Make `split-window' a non-interactive function.
* doc/lispref/windows.texi (Splitting Windows): Change category of
split-window from a command to a function.
* etc/NEWS: Mention fixing `split-window' to be non-interactive.
* window.el (split-window): Remove interactive form, since as a
command this function is a special case of split-window-below.
Correct doc string.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/window.el | 3 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 37e8028c941..9f31cd8228b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2013-04-13 Stephen Berman <stephen.berman@gmx.net> | ||
| 2 | |||
| 3 | * window.el (split-window): Remove interactive form, since as a | ||
| 4 | command this function is a special case of split-window-below. | ||
| 5 | Correct doc string. | ||
| 6 | |||
| 1 | 2013-04-12 Roland Winkler <winkler@gnu.org> | 7 | 2013-04-12 Roland Winkler <winkler@gnu.org> |
| 2 | 8 | ||
| 3 | * faces.el (read-face-name): Do not override value of arg default. | 9 | * faces.el (read-face-name): Do not override value of arg default. |
diff --git a/lisp/window.el b/lisp/window.el index 627b9a425eb..5b001988ddf 100644 --- a/lisp/window.el +++ b/lisp/window.el | |||
| @@ -3686,7 +3686,7 @@ lines or columns tall. If SIZE is negative, make the new window | |||
| 3686 | absolute value can be less than `window-min-height' or | 3686 | absolute value can be less than `window-min-height' or |
| 3687 | `window-min-width'; so this command can make a new window as | 3687 | `window-min-width'; so this command can make a new window as |
| 3688 | small as one line or two columns. SIZE defaults to half of | 3688 | small as one line or two columns. SIZE defaults to half of |
| 3689 | WINDOW's size. Interactively, SIZE is the prefix argument. | 3689 | WINDOW's size. |
| 3690 | 3690 | ||
| 3691 | Optional third argument SIDE nil (or `below') specifies that the | 3691 | Optional third argument SIDE nil (or `below') specifies that the |
| 3692 | new window shall be located below WINDOW. SIDE `above' means the | 3692 | new window shall be located below WINDOW. SIDE `above' means the |
| @@ -3718,7 +3718,6 @@ scrollbars are inherited from WINDOW. If WINDOW is an internal | |||
| 3718 | window, these properties as well as the buffer displayed in the | 3718 | window, these properties as well as the buffer displayed in the |
| 3719 | new window are inherited from the window selected on WINDOW's | 3719 | new window are inherited from the window selected on WINDOW's |
| 3720 | frame. The selected window is not changed by this function." | 3720 | frame. The selected window is not changed by this function." |
| 3721 | (interactive "i") | ||
| 3722 | (setq window (window-normalize-window window)) | 3721 | (setq window (window-normalize-window window)) |
| 3723 | (let* ((side (cond | 3722 | (let* ((side (cond |
| 3724 | ((not side) 'below) | 3723 | ((not side) 'below) |