From: Masahiro Nakamura <tsuucat@icloud.com>
Date: Tue, 14 Apr 2020 13:37:17 +0000 (+0900)
Subject: Fix comparing command names in strokes.el (bug#40600)
X-Git-Tag: emacs-28.0.90~7561
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=be77a68d527223f7f276e94e16fe05b49846c7a3;p=emacs.git

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.
---

diff --git a/lisp/strokes.el b/lisp/strokes.el
index 7c00305835b..08a381801d7 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)))