Function: tpu-search-internal

tpu-search-internal is a byte-compiled function defined in tpu-extras.el.gz.

Signature

(tpu-search-internal PAT &optional QUIET)

Documentation

Search for a string or regular expression.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/tpu-extras.el.gz
;;;  Replace the TPU-edt internal search function

(defun tpu-search-internal (pat &optional quiet)
  "Search for a string or regular expression."
  (tpu-with-position
   (tpu-search-internal-core pat quiet)
   (if tpu-searching-forward
       (progn
         (if (> (point) far)
             (if (zerop (setq left (save-excursion (forward-line height))))
                 (recenter top-margin)
               (recenter (- left bottom-up-margin)))
           (and (> (point) bottom) (recenter bottom-margin))))
     (and (< (point) top) (recenter (min beg top-margin))))))