From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.ciao.gmane.io!not-for-mail From: tsuucat via "Bug reports for GNU Emacs, the Swiss army knife of text editors" Newsgroups: gmane.emacs.bugs Subject: bug#40600: [PATCH] 27.0.90; M-x strokes-list-strokes error Date: Tue, 14 Apr 2020 23:38:28 +0900 Message-ID: References: <8C7B4C5F-294E-4844-AAAF-C37101BE95F4@icloud.com> Reply-To: tsuucat Mime-Version: 1.0 (Mac OS X Mail 12.4 \(3445.104.14\)) Content-Type: multipart/mixed; boundary="Apple-Mail=_EBA5D2C4-FA36-4041-8F21-55457C01C30C" Injection-Info: ciao.gmane.io; posting-host="ciao.gmane.io:159.69.161.202"; logging-data="70018"; mail-complaints-to="usenet@ciao.gmane.io" To: 40600@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Tue Apr 14 18:41:40 2020 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1jOOd1-000I97-MS for geb-bug-gnu-emacs@m.gmane-mx.org; Tue, 14 Apr 2020 18:41:39 +0200 Original-Received: from localhost ([::1]:34582 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jOOd0-00089c-FN for geb-bug-gnu-emacs@m.gmane-mx.org; Tue, 14 Apr 2020 12:41:38 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:56408) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jOObC-00040U-KV for bug-gnu-emacs@gnu.org; Tue, 14 Apr 2020 12:39:47 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1jOObB-0005JV-NR for bug-gnu-emacs@gnu.org; Tue, 14 Apr 2020 12:39:46 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:51224) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1jOMiM-0001gP-6i for bug-gnu-emacs@gnu.org; Tue, 14 Apr 2020 10:39:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1jOMiM-0006tW-5C for bug-gnu-emacs@gnu.org; Tue, 14 Apr 2020 10:39:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: tsuucat Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 14 Apr 2020 14:39:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 40600 X-GNU-PR-Package: emacs Original-Received: via spool by 40600-submit@debbugs.gnu.org id=B40600.158687512226478 (code B ref 40600); Tue, 14 Apr 2020 14:39:02 +0000 Original-Received: (at 40600) by debbugs.gnu.org; 14 Apr 2020 14:38:42 +0000 Original-Received: from localhost ([127.0.0.1]:34537 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jOMi2-0006sz-2E for submit@debbugs.gnu.org; Tue, 14 Apr 2020 10:38:42 -0400 Original-Received: from pv50p00im-ztdg10012101.me.com ([17.58.6.49]:43518) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jOMhz-0006si-PK for 40600@debbugs.gnu.org; Tue, 14 Apr 2020 10:38:40 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=icloud.com; s=1a1hai; t=1586875113; bh=16ZDMFfao/mPOkXSuK6dAP2LmvNKPQTlySLzsqL4dic=; h=From:Content-Type:Subject:Date:To:Message-Id; b=Q/1+6eN+qxcq/c19cGkZ66jgUT2A2ulAD9fYcE+ZVpmbIF+2sLUEiyrEcoQ5Gn+yU LAH9uTtVyPqbhjP3CoBdnfEbcnMQeLVfFby3c2D96POhvrS3D1sFS/6NODDFt+YkjB qKhk89xt7wU78v1uOaImUHFlZT2pmXy69PVZJp8nQb8/ZYULFTDlFhoqTpNWtl/rqy LMKrxmlpy+uN8rkWnvcHvVNKF7L28+zyyGMSsDt59npZPTTrMONpwfXQ9m1p7t/4My 2lDvquipgLSPT1gXZdgTwOHkJpruPQxW208RHSPJwliuIWCYYHMNI310uQ+XjL+FDq 5+SUYXLj5hjJA== Original-Received: from [192.168.129.26] (i114-183-98-221.s41.a008.ap.plala.or.jp [114.183.98.221]) by pv50p00im-ztdg10012101.me.com (Postfix) with ESMTPSA id 852CA84076B for <40600@debbugs.gnu.org>; Tue, 14 Apr 2020 14:38:33 +0000 (UTC) In-Reply-To: X-Mailer: Apple Mail (2.3445.104.14) X-Proofpoint-Virus-Version: vendor=fsecure engine=2.50.10434:6.0.138, 18.0.676 definitions=2020-04-14_06:2020-04-14, 2020-04-14 signatures=0 X-Proofpoint-Spam-Details: rule=notspam policy=default score=0 suspectscore=1 malwarescore=0 phishscore=0 bulkscore=0 spamscore=0 clxscore=1011 mlxscore=0 mlxlogscore=507 adultscore=0 classifier=spam adjust=0 reason=mlx scancount=1 engine=8.0.1-2002250000 definitions=main-2004140120 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 209.51.188.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.io gmane.emacs.bugs:178362 Archived-At: --Apple-Mail=_EBA5D2C4-FA36-4041-8F21-55457C01C30C Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset=us-ascii I made a patch. Please see an attachment. -- tsuucat --Apple-Mail=_EBA5D2C4-FA36-4041-8F21-55457C01C30C Content-Disposition: attachment; filename=0001-Fix-comparing-command-names-in-strokes.el-bug-40600.patch Content-Type: application/octet-stream; x-unix-mode=0644; name="0001-Fix-comparing-command-names-in-strokes.el-bug-40600.patch" Content-Transfer-Encoding: quoted-printable =46rom=20a95cf228b1cebbea0a0a56f2804cc0c42035c8a7=20Mon=20Sep=2017=20= 00:00:00=202001=0AFrom:=20Masahiro=20Nakamura=20=0A= Date:=20Tue,=2014=20Apr=202020=2022:37:17=20+0900=0ASubject:=20[PATCH]=20= Fix=20comparing=20command=20names=20in=20strokes.el=20(bug#40600)=0A=0A*=20= lisp/strokes.el=20(strokes-alphabetic-lessp):=20Check=20arguments=20with=20= symbolp=0Abecause=20arguments=20may=20be=20strings.=0A---=0A=20= lisp/strokes.el=20|=208=20++++++--=0A=201=20file=20changed,=206=20= insertions(+),=202=20deletions(-)=0A=0Adiff=20--git=20a/lisp/strokes.el=20= b/lisp/strokes.el=0Aindex=207a887445..5f40ffcc=20100644=0A---=20= a/lisp/strokes.el=0A+++=20b/lisp/strokes.el=0A@@=20-1373,8=20+1373,12=20= @@=20strokes-list-strokes=0A=20=0A=20(defun=20strokes-alphabetic-lessp=20= (stroke1=20stroke2)=0A=20=20=20"Return=20t=20if=20STROKE1's=20command=20= name=20precedes=20STROKE2's=20in=20lexicographic=20order."=0A-=20=20(let=20= ((command-name-1=20(symbol-name=20(cdr=20stroke1)))=0A-=09= (command-name-2=20(symbol-name=20(cdr=20stroke2))))=0A+=20=20(let=20= ((command-name-1=20(if=20(symbolp=20(cdr=20stroke1))=0A+=20=20=20=20=20=20= =20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20= (symbol-name=20(cdr=20stroke1))=0A+=20=20=20=20=20=20=20=20=20=20=20=20=20= =20=20=20=20=20=20=20=20=20=20=20=20=20(prin1-to-string=20(cdr=20= stroke1))))=0A+=20=20=20=20=20=20=20=20(command-name-2=20(if=20(symbolp=20= (cdr=20stroke2))=0A+=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20= =20=20=20=20=20=20=20=20=20=20(symbol-name=20(cdr=20stroke2))=0A+=20=20=20= =20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20=20= (prin1-to-string=20(cdr=20stroke2)))))=0A=20=20=20=20=20(string-lessp=20= command-name-1=20command-name-2)))=0A=20=0A=20(defvar=20strokes-mode-map=0A= --=20=0A2.21.0=0A=0A= --Apple-Mail=_EBA5D2C4-FA36-4041-8F21-55457C01C30C--