diff lisp/keydefs.el @ 5686:c6b1500299a7

recenter-top-bottom synced from GNU and new default for C-l Partial implementation of recenter-top-bottom. GNU has support for scroll-margin that is not in XEmacs so that is left out. lisp/ChangeLog: 2012-09-18 Mats Lidell <matsl@xemacs.org> * window-xemacs.el (recenter-positions): New defcustom. (recenter-top-bottom): New command. (recenter-last-op): New defvar. * replace.el (perform-replace): Let-bind recenter-last-op to nil. For def=recenter, replace `recenter' with `recenter-top-bottom' that is called with `this-command' and `last-command' let-bound to `recenter-top-bottom'. When the last `def' was not `recenter', set `recenter-last-op' to nil. * keydefs.el (global-map): Make recenter-top-bottom new default for C-l. etc/ChangeLog: 2012-09-18 Mats Lidell <matsl@xemacs.org> * TUTORIAL: Updated due to recenter-top-bottom man/ChangeLog: 2012-09-18 Mats Lidell <matsl@xemacs.org> * lispref/windows.texi (Vertical Scrolling): Added recenter-top-bottom and recenter-positions * xemacs/display.texi (Display): Rearranged and added documentation due to new function recenter-top-bottom.
author Mats Lidell <mats.lidell@cag.se>
date Tue, 18 Sep 2012 08:58:28 +0200
parents 308d34e9f07d
children 916b48abd1c6
line wrap: on
line diff
--- a/lisp/keydefs.el	Sun Sep 16 21:43:21 2012 +0100
+++ b/lisp/keydefs.el	Tue Sep 18 08:58:28 2012 +0200
@@ -1,6 +1,6 @@
 ;;; keydefs.el --- Define standard keybindings.
 
-;; Copyright (C) 1992-4, 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1992-4, 1997, 2012 Free Software Foundation, Inc.
 ;; Copyright (C) 2000, 2001, 2002 Ben Wing.
 
 ;; Maintainer: XEmacs Development Team
@@ -444,7 +444,7 @@
 ; meta-shift-V, that is.
 (define-key global-map '(meta V) 'scroll-other-window-down)
 
-(define-key global-map "\C-l" 'recenter)
+(define-key global-map "\C-l" 'recenter-top-bottom)
 (define-key global-map "\M-r" 'move-to-window-line)
 
 ;; FSFmacs window.el