[Emacs-diffs] emacs/lisp ChangeLog progmodes/subword.el

[Tassilo Horn]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Tassilo Horn <tsdh>     09/11/22 18:24:37

Modified files:
        lisp           : ChangeLog 
        lisp/progmodes : subword.el 

Log message:
                * progmodes/subword.el (subword-mode-map): Fix subword-mode-map
                generation from word-movement command names.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16699&r2=1.16700
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/subword.el?cvsroot=emacs&r1=1.1&r2=1.2

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16699
retrieving revision 1.16700
diff -u -b -r1.16699 -r1.16700
--- ChangeLog   21 Nov 2009 20:18:37 -0000      1.16699
+++ ChangeLog   22 Nov 2009 18:24:29 -0000      1.16700
@@ -1,3 +1,8 @@
+2009-11-22  Tassilo Horn  <address@hidden>
+
+       * progmodes/subword.el (subword-mode-map): Fix subword-mode-map
+       generation from word-movement command names.
+
 2009-11-21  Chong Yidong  <address@hidden>
 
        * cedet/semantic/complete.el (semantic-complete-read-tag-engine)

Index: progmodes/subword.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/subword.el,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- progmodes/subword.el        21 Nov 2009 07:50:52 -0000      1.1
+++ progmodes/subword.el        22 Nov 2009 18:24:36 -0000      1.2
@@ -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.")