Function: tpu-adjust-search

tpu-adjust-search is a byte-compiled function defined in tpu-edt.el.gz.

Signature

(tpu-adjust-search &optional ARG)

Documentation

For forward searches, move forward a character before searching, and backward a character after a failed search. Arg means end of search.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/tpu-edt.el.gz
(defun tpu-adjust-search (&optional arg)
  "For forward searches, move forward a character before searching,
and backward a character after a failed search.  Arg means end of search."
  (if tpu-searching-forward
      (cond (arg (if (not (bobp)) (forward-char -1)))
	    (t (if (not (eobp)) (forward-char 1))))))