From: tsuucat via "Bug reports for GNU Emacs, the Swiss army knife of text editors" <bug-gnu-emacs@gnu.org>
To: 40600@debbugs.gnu.org
Subject: bug#40600: 27.0.90; M-x strokes-list-strokes error
Date: Tue, 14 Apr 2020 00:51:17 +0900 [thread overview]
Message-ID: <8C7B4C5F-294E-4844-AAAF-C37101BE95F4@icloud.com> (raw)
I browsed Emacs source repository and found strokes.el package.
This is very awesome but I found a bug.
When two or more strokes are defined including string returning strokes,
M-x strokes-list-strokes causes an error.
Reproduce steps:
1. emacs -Q
2. M-x strokes-global-set-stroke (and define a stroke and corresponding command(emacs-version))
3. M-x strokes-global-set-stroke-string (and define a stroke and corresponding string(emacs))
4. M-x strokes-list-strokes => error message
;; when (setq debug-on-error t)
Debugger entered--Lisp error: (wrong-type-argument symbolp "emacs")
symbol-name("emacs")
strokes-alphabetic-lessp((((6 . 0) (5 . 0) (4 . 0) (3 . 0) (2 . 0) (1 . 0) (0 . 1) (0 . 2) (0 . 3) (0 . 4) (0 . 5) (1 . 5) (2 . 6) (3 . 6) (4 . 6) (4 . 5) (5 . 4) (5 . 3) (6 . 3) (6 . 2) (6 . 1) (6 . 2) (6 . 3) (6 . 4) (7 . 5) (7 . 6) (8 . 6) (8 . 7) (8 . 8)) . emacs-version) (((5 . 2) (5 . 1) (4 . 1) (4 . 0) (3 . 0) (2 . 0) (2 . 1) (1 . 1) (1 . 2) (0 . 2) (0 . 3) (0 . 4) (0 . 5) (0 . 6) (0 . 7) (1 . 7) (2 . 7) (3 . 7) (4 . 7) (5 . 7) (6 . 7) (6 . 6) (7 . 5) (7 . 4) (7 . 5) (7 . 6) (7 . 7) (8 . 7) (8 . 8)) . "emacs"))
sort(((((5 . 2) (5 . 1) (4 . 1) (4 . 0) (3 . 0) (2 . 0) (2 . 1) (1 . 1) (1 . 2) (0 . 2) (0 . 3) (0 . 4) (0 . 5) (0 . 6) (0 . 7) (1 . 7) (2 . 7) (3 . 7) (4 . 7) (5 . 7) (6 . 7) (6 . 6) (7 . 5) (7 . 4) (7 . 5) (7 . 6) (7 . 7) (8 . 7) (8 . 8)) . "emacs")) strokes-alphabetic-lessp)
strokes-list-strokes(nil)
funcall-interactively(strokes-list-strokes nil)
call-interactively(strokes-list-strokes record nil)
command-execute(strokes-list-strokes record)
execute-extended-command(nil "strokes-list-strokes" "strokes-lis")
funcall-interactively(execute-extended-command nil "strokes-list-strokes" "strokes-lis")
call-interactively(execute-extended-command nil nil)
command-execute(execute-extended-command)
Thanks.
--
tsuucat
next reply other threads:[~2020-04-13 15:51 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2020-04-13 15:51 tsuucat via Bug reports for GNU Emacs, the Swiss army knife of text editors [this message]
[not found] ` <handler.40600.B.158679308724681.ack@debbugs.gnu.org>
2020-04-14 14:38 ` bug#40600: [PATCH] 27.0.90; M-x strokes-list-strokes error tsuucat via Bug reports for GNU Emacs, the Swiss army knife of text editors
2020-04-14 16:48 ` Noam Postavsky
2020-04-14 17:15 ` tsuucat via Bug reports for GNU Emacs, the Swiss army knife of text editors
2020-04-17 0:49 ` Noam Postavsky
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=8C7B4C5F-294E-4844-AAAF-C37101BE95F4@icloud.com \
--to=bug-gnu-emacs@gnu.org \
--cc=40600@debbugs.gnu.org \
--cc=tsuucat@icloud.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).