until-found

[Andreas Roehler <andreas.roehler@online.de>]

Hi,

given a list or a list of lists:
list shall be returned, if it contains a certain member.

I'm pretty sure a general form exists, but ignore it.

Function `dired-compress-file' in dired-aux.el does it that way:

  (let (...
	(suffixes dired-compress-file-suffixes))
    ;; See if any suffix rule matches this file name.
    (while suffixes
      (let (case-fold-search)
	(if (string-match (car (car suffixes)) file)
	    (setq suffix (car suffixes) suffixes nil))
	(setq suffixes (cdr suffixes))))


And here my implementation so far:

(defun until-found (search-string liste)
  (let ((liste liste) element)
    (while liste
      (if (member search-string (car liste))
          (setq element (car liste) liste nil))
      (setq liste (cdr liste)))
    element))

However, would prefer making use of some existing...

Any comments welcome

Andreas

--
https://code.launchpad.net/s-x-emacs-werkstatt/
http://bazaar.launchpad.net/~a-roehler/python-mode/python-mode.el/