313 |
"Call up the RE Builder for the current window." |
"Call up the RE Builder for the current window." |
314 |
(interactive) |
(interactive) |
315 |
|
|
316 |
(if reb-target-buffer |
(if (and (string= (buffer-name) reb-buffer) |
317 |
(reb-delete-overlays)) |
(memq major-mode '(reb-mode reb-lisp-mode))) |
318 |
(setq reb-target-buffer (current-buffer) |
(message "Already in the RE Builder") |
319 |
reb-target-window (selected-window) |
(if reb-target-buffer |
320 |
reb-window-config (current-window-configuration)) |
(reb-delete-overlays)) |
321 |
(select-window (split-window (selected-window) (- (window-height) 4))) |
(setq reb-target-buffer (current-buffer) |
322 |
(switch-to-buffer (get-buffer-create reb-buffer)) |
reb-target-window (selected-window) |
323 |
(erase-buffer) |
reb-window-config (current-window-configuration)) |
324 |
(reb-insert-regexp) |
(select-window (split-window (selected-window) (- (window-height) 4))) |
325 |
(goto-char (+ 2 (point-min))) |
(switch-to-buffer (get-buffer-create reb-buffer)) |
326 |
(cond |
(erase-buffer) |
327 |
((reb-lisp-syntax-p) |
(reb-insert-regexp) |
328 |
(reb-lisp-mode)) |
(goto-char (+ 2 (point-min))) |
329 |
(t (reb-mode)))) |
(cond |
330 |
|
((reb-lisp-syntax-p) |
331 |
|
(reb-lisp-mode)) |
332 |
|
(t (reb-mode))))) |
333 |
|
|
334 |
(defun reb-change-target-buffer (buf) |
(defun reb-change-target-buffer (buf) |
335 |
"Change the target buffer and display it in the target window." |
"Change the target buffer and display it in the target window." |