master be77a68: Fix comparing command names in strokes.el (bug#40600)

[Noam Postavsky]

branch: master
commit be77a68d527223f7f276e94e16fe05b49846c7a3
Author: Masahiro Nakamura <address@hidden>
Commit: Noam Postavsky <address@hidden>

    Fix comparing command names in strokes.el (bug#40600)
    
    * lisp/strokes.el (strokes-alphabetic-lessp): Simply call string-lessp
    because the cdr of the argument may be a string.
---
 lisp/strokes.el | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/lisp/strokes.el b/lisp/strokes.el
index 7c00305..08a3818 100644
--- a/lisp/strokes.el
+++ b/lisp/strokes.el
@@ -1375,9 +1375,7 @@ If STROKES-MAP is not given, `strokes-global-map' will be 
used instead."
 
 (defun strokes-alphabetic-lessp (stroke1 stroke2)
   "Return t if STROKE1's command name precedes STROKE2's in lexicographic 
order."
-  (let ((command-name-1 (symbol-name (cdr stroke1)))
-       (command-name-2 (symbol-name (cdr stroke2))))
-    (string-lessp command-name-1 command-name-2)))
+  (string-lessp (cdr stroke1) (cdr stroke2)))
 
 (defvar strokes-mode-map
   (let ((map (make-sparse-keymap)))