mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-02 03:40:36 -08:00
Code Issues Projects Releases Wiki Activity

* progmodes/subword.el (subword-mode-map): Fix subword-mode-map

Browse source 
generation from word-movement command names.
This commit is contained in:
Tassilo Horn 2009-11-22 18:24:29 +00:00
parent 8b264ecb46
commit 9ee12eeee6
2 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2009-11-22 Tassilo Horn <tassilo@member.fsf.org>
* progmodes/subword.el (subword-mode-map): Fix subword-mode-map
generation from word-movement command names.
2009-11-21 Chong Yidong <cyd@stupidchicken.com>
* cedet/semantic/complete.el (semantic-complete-read-tag-engine)

6
lisp/progmodes/subword.el
View file

@ -86,10 +86,8 @@
backward-kill-word transpose-words
capitalize-word upcase-word downcase-word))
(let ((othercmd (let ((name (symbol-name cmd)))
(string-match "\\(.*-\\)\\(word.*\\)" name)
(intern (concat (match-string 1 name)
"sub"
(match-string 2 name))))))
(string-match "\\([[:alpha:]-]+\\)-word[s]?" name)
(intern (concat "subword-" (match-string 1 name))))))
(define-key map (vector 'remap cmd) othercmd)))
map)
"Keymap used in `subword-mode' minor mode.")