mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-27 19:31:38 +00:00
Code Issues Releases Activity

* emulation/edt.el (edt-previous-line, edt-next-line): Don't use

Browse Source 
forward-line, undoing 2007-10-19 change (Bug#3188).
This commit is contained in:
Chong Yidong 2009-06-04 01:09:02 +00:00
parent 4bed590990
commit 29da768fb9
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/emulation/edt.el
View File

@ -628,7 +628,8 @@ Argument NUM is the number of lines to move."
(interactive "p")
(edt-check-prefix num)
(let ((beg (edt-current-line)))
(forward-line num)
;; We're deliberately using next-line instead of forward-line.
(with-no-warnings (next-line num))
(edt-bottom-check beg num))
(if (featurep 'xemacs) (setq zmacs-region-stays t)))
@ -638,7 +639,8 @@ Argument NUM is the number of lines to move."
(interactive "p")
(edt-check-prefix num)
(let ((beg (edt-current-line)))
(forward-line (- num))
;; We're deliberately using previous-line instead of forward-line.
(with-no-warnings (previous-line num))
(edt-top-check beg num))
(if (featurep 'xemacs) (setq zmacs-region-stays t)))