[Emacs-diffs] Changes to emacs/lisp/strokes.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     07/11/09 09:45:31

Index: lisp/strokes.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/strokes.el,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -b -r1.33 -r1.34
--- lisp/strokes.el     31 Oct 2007 12:49:11 -0000      1.33
+++ lisp/strokes.el     9 Nov 2007 09:45:22 -0000       1.34
@@ -1371,7 +1371,9 @@
 
 (defun strokes-alphabetic-lessp (stroke1 stroke2)
   "Return t if STROKE1's command name precedes STROKE2's in lexicographic 
order."
-  (string-lessp (cdr stroke1) (cdr stroke2)))
+  (let ((command-name-1 (symbol-name (cdr stroke1)))
+       (command-name-2 (symbol-name (cdr stroke2))))
+    (string-lessp command-name-1 command-name-2)))
 
 (defvar strokes-mode-map
   (let ((map (make-sparse-keymap)))