From 6039067da8f6779977d8e2fd112ee3af0942b1cc Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Mon, 30 Nov 2009 09:36:17 +0000 Subject: [PATCH] 2009-11-30 Katsumi Yamaoka * lpath.el: Fbind recenter-top-bottom for Emacs 21, 22, and (S)XEmacs. 2009-11-29 Juri Linkov * gnus-sum.el (gnus-recenter): Use `recenter-top-bottom' when it is fboundp in GNU Emacs 23.1. Put `isearch-scroll' property on `gnus-recenter'. (Bug#4981) --- lisp/ChangeLog | 10 ++++++++++ lisp/gnus-sum.el | 6 +++++- lisp/lpath.el | 16 +++++++++------- 3 files changed, 24 insertions(+), 8 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7d0fcb731..de4f65c42 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,13 @@ +2009-11-30 Katsumi Yamaoka + + * lpath.el: Fbind recenter-top-bottom for Emacs 21, 22, and (S)XEmacs. + +2009-11-29 Juri Linkov + + * gnus-sum.el (gnus-recenter): Use `recenter-top-bottom' + when it is fboundp in GNU Emacs 23.1. Put `isearch-scroll' property + on `gnus-recenter'. (Bug#4981) + 2009-11-26 Kevin Ryde * sha1.el (sha1-string-external): default-directory "/" in case diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 21a213d4f..658193bd5 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -6721,7 +6721,11 @@ Also do horizontal recentering." (when (and gnus-auto-center-summary (not (eq gnus-auto-center-summary 'vertical))) (gnus-horizontal-recenter)) - (recenter n)) + (if (fboundp 'recenter-top-bottom) + (recenter-top-bottom n) + (recenter n))) + +(put 'gnus-recenter 'isearch-scroll t) (defun gnus-summary-recenter () "Center point in the summary window. diff --git a/lisp/lpath.el b/lisp/lpath.el index b88667ae4..efa58a94e 100644 --- a/lisp/lpath.el +++ b/lisp/lpath.el @@ -20,9 +20,10 @@ (maybe-fbind '(Info-index Info-index-next Info-menu bbdb-complete-name display-time-event-handler - epg-check-configuration find-coding-system frame-device w3-do-setup - rmail-swap-buffers-maybe w3-prepare-buffer w3-region w32-focus-frame - w3m-detect-meta-charset w3m-region)) + epg-check-configuration find-coding-system frame-device + recenter-top-bottom rmail-swap-buffers-maybe w3-do-setup + w3-prepare-buffer w3-region w32-focus-frame w3m-detect-meta-charset + w3m-region)) (maybe-bind '(w3m-link-map))) @@ -63,10 +64,11 @@ mail-abbrevs-setup make-mode-line-mouse-map make-network-process mouse-minibuffer-check mouse-movement-p mouse-scroll-subr pgg-display-output-buffer posn-point posn-window put-image read-event - rmail-msg-restore-non-pruned-header rmail-swap-buffers-maybe - select-safe-coding-system sort-coding-systems track-mouse ucs-to-char - url-generic-parse-url url-http-file-exists-p url-insert-file-contents - vcard-pretty-print w3m-detect-meta-charset w3m-region window-edges)) + recenter-top-bottom rmail-msg-restore-non-pruned-header + rmail-swap-buffers-maybe select-safe-coding-system sort-coding-systems + track-mouse ucs-to-char url-generic-parse-url url-http-file-exists-p + url-insert-file-contents vcard-pretty-print w3m-detect-meta-charset + w3m-region window-edges)) (maybe-bind '(adaptive-fill-first-line-regexp buffer-display-table cursor-in-non-selected-windows -- 2.25.1