Function: edt-find-forward

edt-find-forward is an interactive and byte-compiled function defined in edt.el.gz.

Signature

(edt-find-forward &optional FIND)

Documentation

Find first occurrence of a string in forward direction and save it.

Optional argument FIND is t is this function is called from edt-find.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/emulation/edt.el.gz
;;;
;;; FIND
;;;

(defun edt-find-forward (&optional find)
  "Find first occurrence of a string in forward direction and save it.
Optional argument FIND is t is this function is called from `edt-find'."
  (interactive)
  (or find
      (setq edt-find-last-text (read-string "Search forward: ")))
  (edt-with-position
   (when (search-forward edt-find-last-text) ; FIXME noerror?
     (search-backward edt-find-last-text)
     (edt-set-match)
     (if (> (point) far)
         (let ((left (save-excursion (forward-line height))))
           (recenter (if (zerop left)
                         top-margin
                       (- left bottom-up-margin))))
       (and (> (point) bottom) (recenter bottom-margin))))))