diff options
| author | Masahiro Nakamura <tsuucat@icloud.com> | 2020-04-14 22:37:17 +0900 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2020-04-16 20:47:35 -0400 |
| commit | be77a68d527223f7f276e94e16fe05b49846c7a3 (patch) | |
| tree | e607a7c8722d0002a623125735e1c1410ecf000b | |
| parent | e105d01c952aab93de1607ebcfed7860837288fb (diff) | |
| download | emacs-be77a68d527223f7f276e94e16fe05b49846c7a3.tar.gz emacs-be77a68d527223f7f276e94e16fe05b49846c7a3.tar.bz2 emacs-be77a68d527223f7f276e94e16fe05b49846c7a3.zip | |
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.
| -rw-r--r-- | lisp/strokes.el | 4 |
1 files changed, 1 insertions, 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))) |