mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-07 15:00:34 -08:00
Code Issues Projects Releases Wiki Activity

(re-builder): Don't re-enter RE Builder Mode.

Browse source
This commit is contained in:
Eli Zaretskii 2001-11-20 18:26:55 +00:00
parent 84c7e2dc61
commit 3813214946
2 changed files with 27 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

31
lisp/emacs-lisp/re-builder.el
View file

@ -313,20 +313,23 @@ Except for Lisp syntax this is the same as `reb-regexp'.")
"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-change-target-buffer (buf)
"Change the target buffer and display it in the target window."