aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2008-11-29 20:25:54 +0000
committerJuanma Barranquero2008-11-29 20:25:54 +0000
commitfebf3e6f3448cce2adf9d57f48c3d8a3574aa691 (patch)
tree7c79c192db911671129d0f7f025de4050329fea6
parent3b7046cb1fbfa923d4662f92965914bd27b78785 (diff)
downloademacs-febf3e6f3448cce2adf9d57f48c3d8a3574aa691.tar.gz
emacs-febf3e6f3448cce2adf9d57f48c3d8a3574aa691.zip
* emacs-lisp/re-builder.el (reb-mode-map): Fix typo in menu tooltip.
(reb-mode): Define with `define-derived-mode'.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/emacs-lisp/re-builder.el15
2 files changed, 9 insertions, 11 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e3b014ede18..192133a9420 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12008-11-29 Juanma Barranquero <lekktu@gmail.com>
2
3 * emacs-lisp/re-builder.el (reb-mode-map): Fix typo in menu tooltip.
4 (reb-mode): Define with `define-derived-mode'.
5
12008-11-29 Karl Fogel <kfogel@red-bean.com> 62008-11-29 Karl Fogel <kfogel@red-bean.com>
2 7
3 * files.el (break-hardlink-on-save): New variable. 8 * 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'.")
248 (define-key menu-map [rt] 248 (define-key menu-map [rt]
249 '(menu-item "Case sensitive" reb-toggle-case 249 '(menu-item "Case sensitive" reb-toggle-case
250 :button (:toggle . case-fold-search) 250 :button (:toggle . case-fold-search)
251 :help "Toggle case sensitivity of searches for RE Builder target buffer.")) 251 :help "Toggle case sensitivity of searches for RE Builder target buffer"))
252 (define-key menu-map [rb] 252 (define-key menu-map [rb]
253 '(menu-item "Change target buffer..." reb-change-target-buffer 253 '(menu-item "Change target buffer..." reb-change-target-buffer
254 :help "Change the target buffer and display it in the target window")) 254 :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'.")
273 map) 273 map)
274 "Keymap used by the RE Builder.") 274 "Keymap used by the RE Builder.")
275 275
276(defun reb-mode () 276(define-derived-mode reb-mode nil "RE Builder"
277 "Major mode for interactively building Regular Expressions. 277 "Major mode for interactively building Regular Expressions."
278\\{reb-mode-map}"
279 (interactive)
280 (kill-all-local-variables)
281 (setq major-mode 'reb-mode
282 mode-name "RE Builder")
283 (set (make-local-variable 'blink-matching-paren) nil) 278 (set (make-local-variable 'blink-matching-paren) nil)
284 (use-local-map reb-mode-map) 279 (reb-mode-common))
285 (reb-mode-common)
286 (run-mode-hooks 'reb-mode-hook))
287 280
288(define-derived-mode reb-lisp-mode 281(define-derived-mode reb-lisp-mode
289 emacs-lisp-mode "RE Builder Lisp" 282 emacs-lisp-mode "RE Builder Lisp"