procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/easy-mmode.el: Fix most obvious bug#34723

Browse source 
(easy-mmode-define-navigation): Don't scroll in the opposite direction of
the movement.
This commit is contained in:
Stefan Monnier 2019-03-13 15:55:39 -04:00
parent fd71d626dc
commit 7dda131ab0
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/easy-mmode.el
View file

@ -628,6 +628,7 @@ BODY is executed after moving to the destination location."
,body ,body
(when was-narrowed (funcall #',narrowfun))))))) (when was-narrowed (funcall #',narrowfun)))))))
(unless name (setq name base-name)) (unless name (setq name base-name))
;; FIXME: Move most of those functions's bodies to helper functions!
`(progn `(progn
(defun ,next-sym (&optional count) (defun ,next-sym (&optional count)
,(format "Go to the next COUNT'th %s. ,(format "Go to the next COUNT'th %s.
@ -649,7 +650,11 @@ Interactively, COUNT is the prefix numeric argument, and defaults to 1." name)
`(re-search-forward ,re nil t 2))) `(re-search-forward ,re nil t 2)))
(point-max)))) (point-max))))
(unless (pos-visible-in-window-p endpt nil t) (unless (pos-visible-in-window-p endpt nil t)
(recenter '(0))))))) (let ((ws (window-start)))
(recenter '(0))
(if (< (window-start) ws)
;; recenter scrolled in the wrong direction!
(set-window-start nil ws))))))))
,@body)) ,@body))
(put ',next-sym 'definition-name ',base) (put ',next-sym 'definition-name ',base)
(defun ,prev-sym (&optional count) (defun ,prev-sym (&optional count)