[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/re-builder.el

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      08/11/29 20:25:57

Modified files:
        lisp           : ChangeLog 
        lisp/emacs-lisp: re-builder.el 

Log message:
        * emacs-lisp/re-builder.el (reb-mode-map): Fix typo in menu tooltip.
         (reb-mode): Define with `define-derived-mode'.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.14882&r2=1.14883
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/re-builder.el?cvsroot=emacs&r1=1.42&r2=1.43

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.14882
retrieving revision 1.14883
diff -u -b -r1.14882 -r1.14883
--- ChangeLog   29 Nov 2008 20:05:32 -0000      1.14882
+++ ChangeLog   29 Nov 2008 20:25:54 -0000      1.14883
@@ -1,3 +1,8 @@
+2008-11-29  Juanma Barranquero  <address@hidden>
+
+       * emacs-lisp/re-builder.el (reb-mode-map): Fix typo in menu tooltip.
+       (reb-mode): Define with `define-derived-mode'.
+
 2008-11-29  Karl Fogel  <address@hidden>
 
        * files.el (break-hardlink-on-save): New variable.

Index: emacs-lisp/re-builder.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/re-builder.el,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -b -r1.42 -r1.43
--- emacs-lisp/re-builder.el    28 Nov 2008 23:54:26 -0000      1.42
+++ emacs-lisp/re-builder.el    29 Nov 2008 20:25:57 -0000      1.43
@@ -248,7 +248,7 @@
     (define-key menu-map [rt]
       '(menu-item "Case sensitive" reb-toggle-case
                  :button (:toggle . case-fold-search)
-                 :help "Toggle case sensitivity of searches for RE Builder 
target buffer."))
+                 :help "Toggle case sensitivity of searches for RE Builder 
target buffer"))
     (define-key menu-map [rb]
       '(menu-item "Change target buffer..." reb-change-target-buffer
                  :help "Change the target buffer and display it in the target 
window"))
@@ -273,17 +273,10 @@
     map)
   "Keymap used by the RE Builder.")
 
-(defun reb-mode ()
-  "Major mode for interactively building Regular Expressions.
-\\{reb-mode-map}"
-  (interactive)
-  (kill-all-local-variables)
-  (setq major-mode 'reb-mode
-        mode-name "RE Builder")
+(define-derived-mode reb-mode nil "RE Builder"
+  "Major mode for interactively building Regular Expressions."
   (set (make-local-variable 'blink-matching-paren) nil)
-  (use-local-map reb-mode-map)
-  (reb-mode-common)
-  (run-mode-hooks 'reb-mode-hook))
+  (reb-mode-common))
 
 (define-derived-mode reb-lisp-mode
   emacs-lisp-mode "RE Builder Lisp"