[Emacs-diffs] emacs/lisp/emulation edt.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/06/04 01:09:02

Modified files:
        lisp/emulation : edt.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emulation/edt.el?cvsroot=emacs&r1=1.66&r2=1.67

Patches:
Index: edt.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emulation/edt.el,v
retrieving revision 1.66
retrieving revision 1.67
diff -u -b -r1.66 -r1.67
--- edt.el      5 Jan 2009 03:21:16 -0000       1.66
+++ edt.el      4 Jun 2009 01:09:02 -0000       1.67
@@ -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)))