Mercurial > hg > xemacs-beta

comparison lisp/window-xemacs.el @ 280:7df0dd720c89 r21-0b38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b38
author cvs
date Mon, 13 Aug 2007 10:32:22 +0200
parents c5d627a313b1
children 558f606b08ae
comparison
equal deleted inserted replaced
279:c20b2fb5bb0a 280:7df0dd720c89
36 ;;; Code: 36 ;;; Code:
37 37
38 (defgroup windows nil 38 (defgroup windows nil
39 "Windows within a frame." 39 "Windows within a frame."
40 :group 'environment) 40 :group 'environment)
41
42 (defun recenter (n &optional window)
43 "Center point in WINDOW and redisplay frame. With N, put point on line N.
44 The desired position of point is always relative to the window.
45 Just C-u as prefix means put point in the center of the window.
46 No N (i.e., it is nil) erases the entire frame and then
47 redraws with point in the center of the window.
48 If WINDOW is nil, the selected window is used."
49 (interactive "_P")
50 (center-to-window-line (if (consp n) nil n) window)
51 (when (null n)
52 (redraw-frame (window-frame window) t)))
41 53
42 (defun backward-other-window (arg &optional all-frames device) 54 (defun backward-other-window (arg &optional all-frames device)
43 "Select the ARG'th different window on this frame, going backwards. 55 "Select the ARG'th different window on this frame, going backwards.
44 This is just like calling `other-window' with the arg negated." 56 This is just like calling `other-window' with the arg negated."
45 (interactive "p") 57 (interactive "p")