From: Chong Yidong <cyd@stupidchicken.com>
Date: Thu, 4 Jun 2009 01:09:02 +0000 (+0000)
Subject: * emulation/edt.el (edt-previous-line, edt-next-line): Don't use
X-Git-Tag: emacs-pretest-23.0.95~151
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=29da768fb92f17111c53e0bd3caba1de1e4f4ec4;p=emacs.git

* emulation/edt.el (edt-previous-line, edt-next-line): Don't use
forward-line, undoing 2007-10-19 change (Bug#3188).
---

diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el
index fe84916b443..a14ac3039f9 100644
--- a/lisp/emulation/edt.el
+++ b/lisp/emulation/edt.el
@@ -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)))