diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-06-04 01:09:02 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-06-04 01:09:02 +0000 |
| commit | 29da768fb92f17111c53e0bd3caba1de1e4f4ec4 (patch) | |
| tree | 2a95e29c10d0babf9a0636fb93f8aca3ca0c830a /lisp/emulation/edt.el | |
| parent | 4bed590990517dec4e92c5e0241f826004cd67e8 (diff) | |
| download | emacs-29da768fb92f17111c53e0bd3caba1de1e4f4ec4.tar.gz emacs-29da768fb92f17111c53e0bd3caba1de1e4f4ec4.tar.bz2 emacs-29da768fb92f17111c53e0bd3caba1de1e4f4ec4.zip | |
* emulation/edt.el (edt-previous-line, edt-next-line): Don't use
forward-line, undoing 2007-10-19 change (Bug#3188).
Diffstat (limited to 'lisp/emulation/edt.el')
| -rw-r--r-- | lisp/emulation/edt.el | 6 |
1 files changed, 4 insertions, 2 deletions
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))) |