Re: FIXED!! Re: Clarification of eval-after-load [was: Problem mit symlinks, locate-library and load-history]

[Andreas Schwab]

Alan Mackenzie <address@hidden> writes:

> --- 1385,1499 ----
>                t))
>        nil))
>   
> + (defun list-to-regexp (arg)
> +   "Build a regexp that matches any of the elements of ARG, a list of 
> strings."
> +   (if arg
> +       (let ((regexp "\\("))
> +     (mapc (lambda (elt)
> +             (setq regexp (concat regexp (regexp-quote elt) "\\|")))
> +           arg)
> +     (aset regexp (1- (length regexp)) ?\))
> +     regexp)
> +     ""))

I think this is equivalent to this:

  (concat "\\(" (mapconcat 'regexp-quote arg "\\|") "\\)")

Andreas.

-- 
Andreas Schwab, SuSE Labs, address@hidden
SuSE Linux Products GmbH, Maxfeldstraße 5, 90409 Nürnberg, Germany
PGP key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."