[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/emulation edt.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] emacs/lisp/emulation edt.el |
Date: |
Thu, 04 Jun 2009 01:09:02 +0000 |
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/emulation edt.el,
Chong Yidong <=