forward-line, undoing 2007-10-19 change (Bug#3188).
(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)))
(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)))