Mercurial > emacs
comparison lispref/windows.texi @ 26211:df0efa93750b
Patch from rms.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 27 Oct 1999 09:26:40 +0000 |
| parents | fc4fefae9970 |
| children | a4392300f4f5 |
comparison
equal
deleted
inserted
replaced
| 26210:fc4fefae9970 | 26211:df0efa93750b |
|---|---|
| 270 @smallexample | 270 @smallexample |
| 271 @group | 271 @group |
| 272 (defun split-window-horizontally (&optional arg) | 272 (defun split-window-horizontally (&optional arg) |
| 273 "Split selected window into two windows, side by side..." | 273 "Split selected window into two windows, side by side..." |
| 274 (interactive "P") | 274 (interactive "P") |
| 275 @endgroup | 275 @end group |
| 276 @group | 276 @group |
| 277 (let ((size (and arg (prefix-numeric-value arg)))) | 277 (let ((size (and arg (prefix-numeric-value arg)))) |
| 278 (and size (< size 0) | 278 (and size (< size 0) |
| 279 (setq size (+ (window-width) size))) | 279 (setq size (+ (window-width) size))) |
| 280 (split-window nil size t))) | 280 (split-window nil size t))) |