From be77a68d527223f7f276e94e16fe05b49846c7a3 Mon Sep 17 00:00:00 2001 From: Masahiro Nakamura Date: Tue, 14 Apr 2020 22:37:17 +0900 Subject: [PATCH] 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 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))) -- 2.39.2