Function: tpu-set-search

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

Signature

(tpu-set-search &optional ARG)

Documentation

Set the search functions and set the search direction to the current direction.

If an argument is specified, don't set the search direction.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/tpu-edt.el.gz
(defun tpu-set-search (&optional arg)
  "Set the search functions and set the search direction to the current direction.
If an argument is specified, don't set the search direction."
  (if (not arg) (setq tpu-searching-forward tpu-advance))
  (cond (tpu-searching-forward
	 (cond (tpu-regexp-p
		(fset 'tpu-emacs-search #'re-search-forward)
		(fset 'tpu-emacs-rev-search #'re-search-backward))
	       (t
		(fset 'tpu-emacs-search #'search-forward)
		(fset 'tpu-emacs-rev-search #'search-backward))))
	(t
	 (cond (tpu-regexp-p
		(fset 'tpu-emacs-search #'re-search-backward)
		(fset 'tpu-emacs-rev-search #'re-search-forward))
	       (t
		(fset 'tpu-emacs-search #'search-backward)
		(fset 'tpu-emacs-rev-search #'search-forward))))))