Function: tempo-find-match-string

tempo-find-match-string is a byte-compiled function defined in tempo.el.gz.

Signature

(tempo-find-match-string FINDER)

Documentation

Find a string to be matched against a tag list.

FINDER is a function or a string. Returns (STRING . POS), or nil if no reasonable string is found.

Source Code

;; Defined in /usr/src/emacs/lisp/tempo.el.gz
;;;
;;; tempo-find-match-string

(defun tempo-find-match-string (finder)
  "Find a string to be matched against a tag list.
FINDER is a function or a string.  Returns (STRING . POS), or nil
if no reasonable string is found."
  (cond ((stringp finder)
	 (let (successful)
	   (save-excursion
	     (or (setq successful (re-search-backward finder nil t))
		 0))
	   (if successful
	       (cons (buffer-substring (match-beginning 1)
				       (match-end 1)) ; This seems to be a
					; bug in emacs
		     (match-beginning 1))
	     nil)))
	(t
	 (funcall finder))))