Function: he-list-search

he-list-search is a byte-compiled function defined in hippie-exp.el.gz.

Signature

(he-list-search STR &optional REVERSE)

Source Code

;; Defined in /usr/src/emacs/lisp/hippie-exp.el.gz
(defun he-list-search (str &optional reverse)
  (let ((result ())
	beg pos err)
    (while (and (not result)
		(if reverse
		    (search-backward str nil t)
		    (search-forward str nil t)))
      (setq pos (point))
      (setq beg (match-beginning 0))
      (goto-char beg)
      (setq err ())
      (condition-case ()
	  (forward-list 1)
	(error (setq err t)))
      (if (and reverse
	       (> (point) he-string-beg))
	  (setq err t))
      (if (not err)
	  (progn
	    (setq result (buffer-substring-no-properties beg (point)))
	    (if (he-string-member result he-tried-table t)
		(setq result nil))))	       ; if already in table, ignore
      (goto-char pos))
    result))