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)
	 (if (save-excursion (re-search-backward finder nil t))
	     (cons (match-string 1)   ; This seems to be a bug in Emacs (?)
		   (match-beginning 1))
	   nil))
	(t
	 (funcall finder))))