Protect against reentering re-builder

[Juanma Barranquero]

This tiny patch (three lines, not counting reindenting) protects
against accidentally reentering re-builder (which it doesn't like :)



                                                           /L/e/k/t/u




2001-11-15  Juanma Barranquero  <jbarranquero@peoplecall.com>

        * re-builder.el (re-builder): Protect against reentering
        re-builder.



--- re-builder.el.orig  Mon Oct 22 13:15:52 2001
+++ re-builder.el       Thu Nov 15 16:43:02 2001
@@ -327,21 +327,23 @@
   "Call up the RE Builder for the current window."
   (interactive)
 
-  (if reb-target-buffer
-      (reb-delete-overlays))
-  (setq reb-target-buffer (current-buffer)
-       reb-target-window (selected-window)
-       reb-window-config (current-window-configuration))
-  (select-window (split-window (selected-window) (- (window-height) 4)))
-  (switch-to-buffer (get-buffer-create reb-buffer))
-  (erase-buffer)
-  (reb-insert-regexp)
-  (goto-char (+ 2 (point-min)))
-  (cond
-   ((reb-lisp-syntax-p)
-    (reb-lisp-mode))
-   (t (reb-mode))))
-
+  (if (and (string= (buffer-name) reb-buffer)
+           (memq major-mode '(reb-mode reb-lisp-mode)))
+      (message "Already in the RE Builder")
+    (if reb-target-buffer
+        (reb-delete-overlays))
+    (setq reb-target-buffer (current-buffer)
+          reb-target-window (selected-window)
+          reb-window-config (current-window-configuration))
+    (select-window (split-window (selected-window) (- (window-height) 4)))
+    (switch-to-buffer (get-buffer-create reb-buffer))
+    (erase-buffer)
+    (reb-insert-regexp)
+    (goto-char (+ 2 (point-min)))
+    (cond
+      ((reb-lisp-syntax-p)
+       (reb-lisp-mode))
+      (t (reb-mode)))))
 
 (defun reb-force-update ()
   "Forces an update in the RE Builder target window without a match limit."