diff options
| author | Juanma Barranquero | 2008-11-29 20:25:54 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2008-11-29 20:25:54 +0000 |
| commit | febf3e6f3448cce2adf9d57f48c3d8a3574aa691 (patch) | |
| tree | 7c79c192db911671129d0f7f025de4050329fea6 | |
| parent | 3b7046cb1fbfa923d4662f92965914bd27b78785 (diff) | |
| download | emacs-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/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/re-builder.el | 15 |
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 @@ | |||
| 1 | 2008-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 | |||
| 1 | 2008-11-29 Karl Fogel <kfogel@red-bean.com> | 6 | 2008-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" |