[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/re-builder.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/emacs-lisp/re-builder.el
diff -c emacs/lisp/emacs-lisp/re-builder.el:1.13.6.4 
emacs/lisp/emacs-lisp/re-builder.el:1.13.6.5
*** emacs/lisp/emacs-lisp/re-builder.el:1.13.6.4        Tue Aug 10 07:46:38 2004
--- emacs/lisp/emacs-lisp/re-builder.el Fri Aug 27 07:00:26 2004
***************
*** 45,51 ****
  ;; call `reb-force-update' ("\C-c\C-u") which should reveal the error.
  
  ;; The target buffer can be changed with `reb-change-target-buffer'
! ;; ("\C-c\C-b"). Changing the target buffer automatically removes
  ;; the overlays from the old buffer and displays the new one in the
  ;; target window.
  
--- 45,51 ----
  ;; call `reb-force-update' ("\C-c\C-u") which should reveal the error.
  
  ;; The target buffer can be changed with `reb-change-target-buffer'
! ;; ("\C-c\C-b").  Changing the target buffer automatically removes
  ;; the overlays from the old buffer and displays the new one in the
  ;; target window.
  
***************
*** 229,250 ****
    "Buffer to use for the RE Builder.")
  
  ;; Define the local "\C-c" keymap
! (defvar reb-mode-map nil
    "Keymap used by the RE Builder.")
  
- (if (not reb-mode-map)
-     (progn
-       (setq reb-mode-map (make-sparse-keymap))
-       (define-key reb-mode-map "\C-c\C-c" 'reb-toggle-case)
-       (define-key reb-mode-map "\C-c\C-q" 'reb-quit)
-       (define-key reb-mode-map "\C-c\C-w" 'reb-copy)
-       (define-key reb-mode-map "\C-c\C-s" 'reb-next-match)
-       (define-key reb-mode-map "\C-c\C-r" 'reb-prev-match)
-       (define-key reb-mode-map "\C-c\C-i" 'reb-change-syntax)
-       (define-key reb-mode-map "\C-c\C-e" 'reb-enter-subexp-mode)
-       (define-key reb-mode-map "\C-c\C-b" 'reb-change-target-buffer)
-       (define-key reb-mode-map "\C-c\C-u" 'reb-force-update)))
- 
  (defun reb-mode ()
    "Major mode for interactively building Regular Expressions.
  \\{reb-mode-map}"
--- 229,248 ----
    "Buffer to use for the RE Builder.")
  
  ;; Define the local "\C-c" keymap
! (defvar reb-mode-map
!   (let ((map (make-sparse-keymap)))
!     (define-key map "\C-c\C-c" 'reb-toggle-case)
!     (define-key map "\C-c\C-q" 'reb-quit)
!     (define-key map "\C-c\C-w" 'reb-copy)
!     (define-key map "\C-c\C-s" 'reb-next-match)
!     (define-key map "\C-c\C-r" 'reb-prev-match)
!     (define-key map "\C-c\C-i" 'reb-change-syntax)
!     (define-key map "\C-c\C-e" 'reb-enter-subexp-mode)
!     (define-key map "\C-c\C-b" 'reb-change-target-buffer)
!     (define-key map "\C-c\C-u" 'reb-force-update)
!     map)
    "Keymap used by the RE Builder.")
  
  (defun reb-mode ()
    "Major mode for interactively building Regular Expressions.
  \\{reb-mode-map}"
***************
*** 367,373 ****
        (reb-update-modestring))))
  
  (defun reb-force-update ()
!   "Forces an update in the RE Builder target window without a match limit."
    (interactive)
  
    (let ((reb-auto-match-limit nil))
--- 365,371 ----
        (reb-update-modestring))))
  
  (defun reb-force-update ()
!   "Force an update in the RE Builder target window without a match limit."
    (interactive)
  
    (let ((reb-auto-match-limit nil))