From: Juanma Barranquero <lekktu@gmail.com>
Date: Sat, 29 Nov 2008 20:25:54 +0000 (+0000)
Subject: * emacs-lisp/re-builder.el (reb-mode-map): Fix typo in menu tooltip.
X-Git-Tag: emacs-pretest-23.0.90~1431
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=febf3e6f3448cce2adf9d57f48c3d8a3574aa691;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e3b014ede18..192133a9420 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-11-29  Juanma Barranquero  <lekktu@gmail.com>
+
+	* 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  <kfogel@red-bean.com>
 
 	* files.el (break-hardlink-on-save): New variable.
diff --git a/lisp/emacs-lisp/re-builder.el b/lisp/emacs-lisp/re-builder.el
index 63509ec5b0c..2c0fe23c63d 100644
--- a/lisp/emacs-lisp/re-builder.el
+++ b/lisp/emacs-lisp/re-builder.el
@@ -248,7 +248,7 @@ Except for Lisp syntax this is the same as `reb-regexp'.")
     (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 @@ Except for Lisp syntax this is the same as `reb-regexp'.")
     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"