From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 4 Jun 1999 18:36:35 +0000 (+0000)
Subject: (regexp-opt-group): Avoid infinite
X-Git-Tag: emacs-20.4~139
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e011fd6b5c1f758557ea5f7e531a35c3fb941295;p=emacs.git

(regexp-opt-group): Avoid infinite
recursion on bogus input.
---

diff --git a/lisp/emacs-lisp/regexp-opt.el b/lisp/emacs-lisp/regexp-opt.el
index 589f1b70ac4..6627c20a7bf 100644
--- a/lisp/emacs-lisp/regexp-opt.el
+++ b/lisp/emacs-lisp/regexp-opt.el
@@ -141,7 +141,9 @@ in REGEXP."
 	 (open-charset (if lax "" open-group))
 	 (close-charset (if lax "" close-group)))
     (cond
-     ;;
+     ;; Protect against user-stupidity... could call error here
+     ((null strings)
+      nil)
      ;; If there is only one string, just return it.
      ((= (length strings) 1)
       (if (= (length (car strings)) 1)