comparison lisp/emulation/edt.el @ 85451:e1af3a725ca4

* textmodes/two-column.el (2C-split, 2C-merge): * textmodes/bib-mode.el (bib-find-key, mark-bib): * progmodes/idlw-shell.el (idlwave-shell-move-or-history): * progmodes/etags.el (find-tag-in-order, etags-tags-apropos) * progmodes/ada-xref.el (ada-get-all-references): * obsolete/mlsupport.el (ml-next-line, ml-previous-line): * emulation/vi.el (vi-previous-line-first-nonwhite) (vi-effective-range, vi-put-before): * emulation/edt.el (edt-next-line, edt-previous-line) (edt-paragraph-forward): Use forward-line. * progmodes/etags.el (tags-apropos): Require apropos at compile time too. * progmodes/prolog.el: Require comint when compiling. (inferior-prolog-flavor): Move defvar before use.

85450:a3bb0c15528c

  "Move cursor down one line.
Argument NUM is the number of lines to move."
  (interactive "p")
  (edt-check-prefix num)
  (let ((beg (edt-current-line)))
    (next-line num)
    (edt-bottom-check beg num))
  (if edt-x-emacs19-p (setq zmacs-region-stays t)))

(defun edt-previous-line (num)
  "Move cursor up one line.
Argument NUM is the number of lines to move."
  (interactive "p")
  (edt-check-prefix num)
  (let ((beg (edt-current-line)))
    (previous-line num)
    (edt-top-check beg num))
  (if edt-x-emacs19-p (setq zmacs-region-stays t)))


;;;

		(goto-char bottom) (forward-line (- height 2)) (point))))
    (while (> num 0)
      (forward-paragraph (+ num 1))
      (start-of-paragraph-text)
      (if (eolp)
	  (next-line 1))
      (setq num (1- num)))
    (cond((> (point) far)
	  (setq left (save-excursion (forward-line height)))
	  (if (= 0 left) (recenter top-margin)
	    (recenter (- left bottom-up-margin))))

85451:e1af3a725ca4

  "Move cursor down one line.
Argument NUM is the number of lines to move."
  (interactive "p")
  (edt-check-prefix num)
  (let ((beg (edt-current-line)))
    (forward-line num)
    (edt-bottom-check beg num))
  (if edt-x-emacs19-p (setq zmacs-region-stays t)))

(defun edt-previous-line (num)
  "Move cursor up one line.
Argument NUM is the number of lines to move."
  (interactive "p")
  (edt-check-prefix num)
  (let ((beg (edt-current-line)))
    (forward-line (- num))
    (edt-top-check beg num))
  (if edt-x-emacs19-p (setq zmacs-region-stays t)))


;;;

		(goto-char bottom) (forward-line (- height 2)) (point))))
    (while (> num 0)
      (forward-paragraph (+ num 1))
      (start-of-paragraph-text)
      (if (eolp)
	  (forward-line 1))
      (setq num (1- num)))
    (cond((> (point) far)
	  (setq left (save-excursion (forward-line height)))
	  (if (= 0 left) (recenter top-margin)
	    (recenter (- left bottom-up-margin))))