[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH 2/2] For better visibility, add subword-mode to options menu
From: |
Daniel Colascione |
Subject: |
[PATCH 2/2] For better visibility, add subword-mode to options menu |
Date: |
Tue, 07 Aug 2012 10:03:52 -0700 |
---
lisp/menu-bar.el | 8 ++++++++
1 files changed, 8 insertions(+), 0 deletions(-)
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 75814fb..686537b 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -34,6 +34,8 @@
;; From emulation/cua-base.el; used below
(defvar cua-enable-cua-keys)
+;; From progmodes/subword.el; used below
+(defvar global-subword-mode)
;; Don't clobber an existing menu-bar keymap, to preserve any menu-bar key
;; definitions made in loaddefs.el.
@@ -1268,6 +1270,12 @@ mail status in mode line"))
(:visible (and (boundp 'cua-enable-cua-keys)
(not cua-enable-cua-keys)))))
+ (bindings--define-key menu [subword-mode]
+ (menu-bar-make-mm-toggle
+ global-subword-mode
+ "Treat WordsWithCaps as separate words"
+ "Treat each capitalized part of a word as a separate word"))
+
(bindings--define-key menu [case-fold-search]
(menu-bar-make-toggle
toggle-case-fold-search case-fold-search
--
1.7.2.5