# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 928521395 0
# Node ID d2cb43703bfb548a2ba129790561e01e4065b01a
# Parent  078e0b907e6ed1e1fa7bba659ad981d75d195013
(regexp-opt-group): Avoid infinite
recursion on bogus input.

diff -r 078e0b907e6e -r d2cb43703bfb lisp/emacs-lisp/regexp-opt.el
--- a/lisp/emacs-lisp/regexp-opt.el	Fri Jun 04 18:22:55 1999 +0000
+++ b/lisp/emacs-lisp/regexp-opt.el	Fri Jun 04 18:36:35 1999 +0000
@@ -141,7 +141,9 @@
 	 (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)