Mercurial > hg > xemacs-beta

comparison lisp/prim/window.el @ 163:0132846995bd r20-3b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b8
author cvs
date Mon, 13 Aug 2007 09:43:35 +0200
parents 3bb7ccffb0c0
children
comparison
equal deleted inserted replaced
162:4de2936b4e77 163:0132846995bd
186 (/ (- newsize (window-pixel-height)) 186 (/ (- newsize (window-pixel-height))
187 (face-height 'default)))))) 187 (face-height 'default))))))
188 'nomini))) 188 'nomini)))
189 189
190 ;;; I think this should be the default; I think people will prefer it--rms. 190 ;;; I think this should be the default; I think people will prefer it--rms.
191 (defvar split-window-keep-point t 191 (defcustom split-window-keep-point t
192 "*If non-nil, split windows keeps the original point in both children. 192 "*If non-nil, split windows keeps the original point in both children.
193 This is often more convenient for editing. 193 This is often more convenient for editing.
194 If nil, adjust point in each of the two windows to minimize redisplay. 194 If nil, adjust point in each of the two windows to minimize redisplay.
195 This is convenient on slow terminals, but point can move strangely.") 195 This is convenient on slow terminals, but point can move strangely."
196 :type 'boolean
197 :group 'windows)
196 198
197 (defun split-window-vertically (&optional arg) 199 (defun split-window-vertically (&optional arg)
198 "Split current window into two windows, one above the other. 200 "Split current window into two windows, one above the other.
199 The uppermost window gets ARG lines and the other gets the rest. 201 The uppermost window gets ARG lines and the other gets the rest.
200 Negative arg means select the size of the lowermost window instead. 202 Negative arg means select the size of the lowermost window instead.