Mercurial > emacs

comparison lisp/emacs-lisp/easy-mmode.el @ 32051:af9abfeed429

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(easy-mmode-define-navigation): Call `recenter' with an arg to prevent redrawing the display.
author Miles Bader <miles@gnu.org>
date Sun, 01 Oct 2000 03:36:55 +0000
parents 39617f078b9d
children 883b83d07a24
comparison
equal deleted inserted replaced
32050:2a3bcf8d9877 32051:af9abfeed429
513 (when (eq (current-buffer) (window-buffer (selected-window))) 513 (when (eq (current-buffer) (window-buffer (selected-window)))
514 (let ((endpt (or (save-excursion 514 (let ((endpt (or (save-excursion
515 ,(if endfun `(,endfun) 515 ,(if endfun `(,endfun)
516 `(re-search-forward ,re nil t 2))) 516 `(re-search-forward ,re nil t 2)))
517 (point-max)))) 517 (point-max))))
518 (unless (<= endpt (window-end)) (recenter)))))) 518 (unless (<= endpt (window-end))
519 (recenter '(0)))))))
519 (defun ,prev-sym (&optional count) 520 (defun ,prev-sym (&optional count)
520 ,(format "Go to the previous COUNT'th %s" (or name base-name)) 521 ,(format "Go to the previous COUNT'th %s" (or name base-name))
521 (interactive) 522 (interactive)
522 (unless count (setq count 1)) 523 (unless count (setq count 1))
523 (if (< count 0) (,next-sym (- count)) 524 (if (< count 0) (,next-sym (- count))