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

	generation from word-movement command names.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f24fb9d370c98375e8d615a42aa86534c27bac16..896af36f0606649d17d81344e5c16d5de091a7f4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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)

diff --git a/lisp/progmodes/subword.el b/lisp/progmodes/subword.el
index 655d08f9884933d481fe0fdb32fab8b4ea219d13..855a3df2ae3c1df6971a3216b794f831324ca3a9 100644 (file)
--- a/lisp/progmodes/subword.el
+++ b/lisp/progmodes/subword.el
@@ -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.")