diff options
| author | Miles Bader <miles@gnu.org> | 2007-11-09 09:45:30 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2007-11-09 09:45:30 +0000 |
| commit | c12ecb0af9679cc0e2fa0409931c34c035763469 (patch) | |
| tree | bd118c7ebc571de0dab542f48ad0c1648c6ccf72 /lisp/strokes.el | |
| parent | e83d1fe87564d06d2fcbb4006dfd9133bc340aa8 (diff) | |
| parent | 9d2185d10e3da9062672d96d3b59fcea31ff17ed (diff) | |
| download | emacs-c12ecb0af9679cc0e2fa0409931c34c035763469.tar.gz | |
Merge from emacs--rel--22
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-923
Diffstat (limited to 'lisp/strokes.el')
| -rw-r--r-- | lisp/strokes.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/strokes.el b/lisp/strokes.el index 73e5594664a..d4fcdb66f61 100644 --- a/lisp/strokes.el +++ b/lisp/strokes.el @@ -1371,7 +1371,9 @@ 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." - (string-lessp (cdr stroke1) (cdr stroke2))) + (let ((command-name-1 (symbol-name (cdr stroke1))) + (command-name-2 (symbol-name (cdr stroke2)))) + (string-lessp command-name-1 command-name-2))) (defvar strokes-mode-map (let ((map (make-sparse-keymap))) |