[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master be77a68: Fix comparing command names in strokes.el (bug#40600)
From: |
Noam Postavsky |
Subject: |
master be77a68: Fix comparing command names in strokes.el (bug#40600) |
Date: |
Thu, 16 Apr 2020 20:49:14 -0400 (EDT) |
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master be77a68: Fix comparing command names in strokes.el (bug#40600),
Noam Postavsky <=