/[emacs]/emacs/lisp/emacs-lisp/re-builder.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/re-builder.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13.6.4 by miles, Tue Aug 10 07:46:38 2004 UTC revision 1.13.6.5 by miles, Fri Aug 27 07:00:26 2004 UTC
# Line 45  Line 45 
45  ;; call `reb-force-update' ("\C-c\C-u") which should reveal the error.  ;; call `reb-force-update' ("\C-c\C-u") which should reveal the error.
46    
47  ;; The target buffer can be changed with `reb-change-target-buffer'  ;; The target buffer can be changed with `reb-change-target-buffer'
48  ;; ("\C-c\C-b"). Changing the target buffer automatically removes  ;; ("\C-c\C-b").  Changing the target buffer automatically removes
49  ;; the overlays from the old buffer and displays the new one in the  ;; the overlays from the old buffer and displays the new one in the
50  ;; target window.  ;; target window.
51    
# Line 229  Except for Lisp syntax this is the same Line 229  Except for Lisp syntax this is the same
229    "Buffer to use for the RE Builder.")    "Buffer to use for the RE Builder.")
230    
231  ;; Define the local "\C-c" keymap  ;; Define the local "\C-c" keymap
232  (defvar reb-mode-map nil  (defvar reb-mode-map
233      (let ((map (make-sparse-keymap)))
234        (define-key map "\C-c\C-c" 'reb-toggle-case)
235        (define-key map "\C-c\C-q" 'reb-quit)
236        (define-key map "\C-c\C-w" 'reb-copy)
237        (define-key map "\C-c\C-s" 'reb-next-match)
238        (define-key map "\C-c\C-r" 'reb-prev-match)
239        (define-key map "\C-c\C-i" 'reb-change-syntax)
240        (define-key map "\C-c\C-e" 'reb-enter-subexp-mode)
241        (define-key map "\C-c\C-b" 'reb-change-target-buffer)
242        (define-key map "\C-c\C-u" 'reb-force-update)
243        map)
244    "Keymap used by the RE Builder.")    "Keymap used by the RE Builder.")
245    
 (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)))  
   
246  (defun reb-mode ()  (defun reb-mode ()
247    "Major mode for interactively building Regular Expressions.    "Major mode for interactively building Regular Expressions.
248  \\{reb-mode-map}"  \\{reb-mode-map}"
# Line 367  Except for Lisp syntax this is the same Line 365  Except for Lisp syntax this is the same
365        (reb-update-modestring))))        (reb-update-modestring))))
366    
367  (defun reb-force-update ()  (defun reb-force-update ()
368    "Forces an update in the RE Builder target window without a match limit."    "Force an update in the RE Builder target window without a match limit."
369    (interactive)    (interactive)
370    
371    (let ((reb-auto-match-limit nil))    (let ((reb-auto-match-limit nil))

Legend:
Removed from v.1.13.6.4  
changed lines
  Added in v.1.13.6.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26