Mercurial > emacs
comparison lisp/emacs-lisp/re-builder.el @ 41314:a2bce9d9c349
(re-builder): Don't re-enter RE Builder Mode.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Tue, 20 Nov 2001 18:25:02 +0000 |
parents | 2186cf9476ba |
children | fcb2aaafc8b2 |
comparison
equal
deleted
inserted
replaced
41313:2186cf9476ba | 41314:a2bce9d9c349 |
---|---|
311 ;;;###autoload | 311 ;;;###autoload |
312 (defun re-builder () | 312 (defun re-builder () |
313 "Call up the RE Builder for the current window." | 313 "Call up the RE Builder for the current window." |
314 (interactive) | 314 (interactive) |
315 | 315 |
316 (if reb-target-buffer | 316 (if (and (string= (buffer-name) reb-buffer) |
317 (reb-delete-overlays)) | 317 (memq major-mode '(reb-mode reb-lisp-mode))) |
318 (setq reb-target-buffer (current-buffer) | 318 (message "Already in the RE Builder") |
319 reb-target-window (selected-window) | 319 (if reb-target-buffer |
320 reb-window-config (current-window-configuration)) | 320 (reb-delete-overlays)) |
321 (select-window (split-window (selected-window) (- (window-height) 4))) | 321 (setq reb-target-buffer (current-buffer) |
322 (switch-to-buffer (get-buffer-create reb-buffer)) | 322 reb-target-window (selected-window) |
323 (erase-buffer) | 323 reb-window-config (current-window-configuration)) |
324 (reb-insert-regexp) | 324 (select-window (split-window (selected-window) (- (window-height) 4))) |
325 (goto-char (+ 2 (point-min))) | 325 (switch-to-buffer (get-buffer-create reb-buffer)) |
326 (cond | 326 (erase-buffer) |
327 ((reb-lisp-syntax-p) | 327 (reb-insert-regexp) |
328 (reb-lisp-mode)) | 328 (goto-char (+ 2 (point-min))) |
329 (t (reb-mode)))) | 329 (cond |
330 ((reb-lisp-syntax-p) | |
331 (reb-lisp-mode)) | |
332 (t (reb-mode))))) | |
330 | 333 |
331 (defun reb-change-target-buffer (buf) | 334 (defun reb-change-target-buffer (buf) |
332 "Change the target buffer and display it in the target window." | 335 "Change the target buffer and display it in the target window." |
333 (interactive "bSet target buffer to: ") | 336 (interactive "bSet target buffer to: ") |
334 | 337 |