From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 8 Oct 2000 18:50:43 +0000 (+0000)
Subject: (regexp-opt): Add \< and \> if PAREN=`words'.
X-Git-Tag: emacs-pretest-21.0.90~1026
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=908bb42fa10fee60a8e84dd698da504d8e8ef9f6;p=emacs.git

(regexp-opt): Add \< and \> if PAREN=`words'.
---

diff --git a/lisp/emacs-lisp/regexp-opt.el b/lisp/emacs-lisp/regexp-opt.el
index b938db6c82b..de36f1d5446 100644
--- a/lisp/emacs-lisp/regexp-opt.el
+++ b/lisp/emacs-lisp/regexp-opt.el
@@ -93,14 +93,20 @@ quoted or not.  If optional PAREN is non-nil, ensure that the returned regexp
 is enclosed by at least one regexp grouping construct.
 The returned regexp is typically more efficient than the equivalent regexp:
 
- (let ((open-paren (if PAREN \"\\\\(\" \"\")) (close-paren (if PAREN \"\\\\)\" \"\")))
-   (concat open-paren (mapconcat 'regexp-quote STRINGS \"\\\\|\") close-paren))"
+ (let ((open (if PAREN \"\\\\(\" \"\")) (close (if PAREN \"\\\\)\" \"\")))
+   (concat open (mapconcat 'regexp-quote STRINGS \"\\\\|\") close))
+
+If PAREN is `words', then the resulting regexp is additionally surrounded
+by \\=\\< and \\>."
   (save-match-data
     ;; Recurse on the sorted list.
-    (let ((max-lisp-eval-depth (* 1024 1024))
-	  (completion-ignore-case nil))
-      (setq paren (cond ((stringp paren) paren) (paren "\\(")))
-      (regexp-opt-group (sort (copy-sequence strings) 'string-lessp) paren))))
+    (let* ((max-lisp-eval-depth (* 1024 1024))
+	   (completion-ignore-case nil)
+	   (words (eq paren 'words))
+	   (open (cond ((stringp paren) paren) (paren "\\(")))
+	   (sorted-strings (sort (copy-sequence strings) 'string-lessp))
+	   (re (regexp-opt-group sorted-strings open)))
+      (if words (concat "\\<" re "\\>") re))))
 
 ;;;###autoload
 (defun regexp-opt-depth (regexp)