Mercurial > emacs

changeset 103307:e1566685f778

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* emulation/edt.el (edt-previous-line, edt-next-line): Don't use forward-line, undoing 2007-10-19 change (Bug#3188).
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 04 Jun 2009 01:09:02 +0000
parents 3680b4fe0f79
children 49bdb788956d
files lisp/emulation/edt.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/edt.el	Thu Jun 04 01:06:04 2009 +0000
+++ b/lisp/emulation/edt.el	Thu Jun 04 01:09:02 2009 +0000
@@ -628,7 +628,8 @@
   (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 @@
   (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)))