From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Tetsurou Okazaki Newsgroups: gmane.emacs.bugs Subject: bug#6490: 24.0.50; src/lread.c: old style backquote bug? Date: Tue, 22 Jun 2010 18:16:56 +0900 Message-ID: <86iq5bifzr.wl%%cc9230e4f6b11649d75e8c3813911dbe1dd37419@be.to> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 (generated by SEMI 1.14.6 - "Maruoka") Content-Type: multipart/mixed; boundary="Multipart_Tue_Jun_22_18:16:56_2010-1" X-Trace: dough.gmane.org 1277199009 13917 80.91.229.12 (22 Jun 2010 09:30:09 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 22 Jun 2010 09:30:09 +0000 (UTC) Cc: okazaki@be.to To: 6490@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Tue Jun 22 11:30:07 2010 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1OQzny-0005BI-95 for geb-bug-gnu-emacs@m.gmane.org; Tue, 22 Jun 2010 11:30:06 +0200 Original-Received: from localhost ([127.0.0.1]:50786 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OQznw-0003d9-CY for geb-bug-gnu-emacs@m.gmane.org; Tue, 22 Jun 2010 05:30:04 -0400 Original-Received: from [140.186.70.92] (port=58741 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OQzmx-0003K3-I3 for bug-gnu-emacs@gnu.org; Tue, 22 Jun 2010 05:29:05 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OQzmv-0006hH-W0 for bug-gnu-emacs@gnu.org; Tue, 22 Jun 2010 05:29:03 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:35038) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OQzmv-0006h8-S0 for bug-gnu-emacs@gnu.org; Tue, 22 Jun 2010 05:29:01 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1OQzcI-0005rj-NU; Tue, 22 Jun 2010 05:18:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Tetsurou Okazaki Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-To: owner@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Tue, 22 Jun 2010 09:18:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 6490 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.127719824522536 (code B ref -1); Tue, 22 Jun 2010 09:18:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 22 Jun 2010 09:17:25 +0000 Original-Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OQzbg-0005rR-GD for submit@debbugs.gnu.org; Tue, 22 Jun 2010 05:17:25 -0400 Original-Received: from mail.gnu.org ([199.232.76.166] helo=mx10.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OQzbd-0005rK-2l for submit@debbugs.gnu.org; Tue, 22 Jun 2010 05:17:22 -0400 Original-Received: from lists.gnu.org ([199.232.76.165]:43511) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1OQzba-0002KM-9Y for submit@debbugs.gnu.org; Tue, 22 Jun 2010 05:17:18 -0400 Original-Received: from [140.186.70.92] (port=54465 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OQzbY-0005tr-3e for bug-gnu-emacs@gnu.org; Tue, 22 Jun 2010 05:17:17 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OQzbV-00057j-DV for bug-gnu-emacs@gnu.org; Tue, 22 Jun 2010 05:17:16 -0400 Original-Received: from post1.infonia.net ([211.13.218.225]:1102) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OQzbU-00057E-TE for bug-gnu-emacs@gnu.org; Tue, 22 Jun 2010 05:17:13 -0400 Original-Received: from zeroset.be.to (actkyo099200.adsl.ppp.infoweb.ne.jp [219.116.249.200]) (using TLSv1 with cipher EDH-RSA-DES-CBC3-SHA (168/168 bits)) (No client certificate requested) by post1.infonia.net (Postfix) with ESMTP id 8098F12A51; Tue, 22 Jun 2010 18:17:05 +0900 (JST) User-Agent: Wanderlust/2.15.9 (Almost Unreal) Emacs/24.0 Mule/6.0 (HANACHIRUSATO) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2 (3) X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6, seldom 2.4 (older, 4) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Tue, 22 Jun 2010 05:18:02 -0400 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) 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: , Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:37945 Archived-At: --Multipart_Tue_Jun_22_18:16:56_2010-1 Content-Type: text/plain; charset=US-ASCII The latest Bazaar version of Emacs fails to build APEL [http://www.kanji.zinbun.kyoto-u.ac.jp/~tomo/elisp/APEL/index.en.html] with the following message: % cvs -z9 -d :pserver:anonymous@cvs.m17n.org:/cvs/root checkout apel % cd apel % make emacs -batch -q -no-site-file -l APEL-MK -f compile-apel \ NONE NONE NONE Loading /home/tetsurou/Checkout/cvs.m17n.org/apel/APEL-CFG... Loading `product': old-style backquotes detected! Invalid function: (progn (\, product-def) (put (\, feature) (quote product) (let ((product (product-find-by-name (\, product-name)))) (product-run-checkers product (quote (\, product-version))) (and (\, product-family) (product-add-to-family (\, product-family) (\, product-name))) (product-add-feature product (\, feature)) (if (equal (quote (\, product-version)) (product-version product)) product (vector (\, product-name) (\, product-family) (quote (\, product-version)) (\, product-code-name) nil nil nil (\, product-version-string))))) (\, feature-def)) make: *** [elc] Error 255 Attached patch for Emacs fixes this error. In GNU Emacs 24.0.50.1 (i686-pc-cygwin, X toolkit, Xaw3d scroll bars) of 2010-06-18 on zeroset configured using `configure '--without-dbus' '--with-x-toolkit=athena'' Important settings: value of $LC_ALL: nil value of $LC_COLLATE: nil value of $LC_CTYPE: nil value of $LC_MESSAGES: nil value of $LC_MONETARY: nil value of $LC_NUMERIC: nil value of $LC_TIME: C value of $LANG: ja_JP.UTF-8 value of $XMODIFIERS: nil locale-coding-system: utf-8-unix default enable-multibyte-characters: t Major mode: Fundamental Minor modes in effect: global-semanticdb-minor-mode: t global-semantic-idle-scheduler-mode: t semantic-mode: t global-ede-mode: t display-time-mode: t tooltip-mode: t mouse-wheel-mode: t tool-bar-mode: t menu-bar-mode: t file-name-shadow-mode: t global-font-lock-mode: t auto-composition-mode: t auto-encryption-mode: t auto-compression-mode: t line-number-mode: t transient-mark-mode: t Recent input: ESC x r e p o r TAB RET Recent messages: ("emacs") Loading term/xterm...done For information about GNU Emacs and the GNU system, type C-h C-a. Load-path shadows: /usr/local/share/emacs/site-lisp/flim/sha1 hides /usr/local/share/emacs/24.0.50/lisp/sha1 /usr/local/share/emacs/site-lisp/semi/pgg hides /usr/local/share/emacs/24.0.50/lisp/pgg /usr/local/share/emacs/site-lisp/semi/pgg-pgp5 hides /usr/local/share/emacs/24.0.50/lisp/pgg-pgp5 /usr/local/share/emacs/site-lisp/semi/pgg-pgp hides /usr/local/share/emacs/24.0.50/lisp/pgg-pgp /usr/local/share/emacs/site-lisp/semi/pgg-parse hides /usr/local/share/emacs/24.0.50/lisp/pgg-parse /usr/local/share/emacs/site-lisp/semi/pgg-gpg hides /usr/local/share/emacs/24.0.50/lisp/pgg-gpg /usr/local/share/emacs/site-lisp/semi/pgg-def hides /usr/local/share/emacs/24.0.50/lisp/pgg-def /usr/local/share/emacs/site-lisp/flim/md4 hides /usr/local/share/emacs/24.0.50/lisp/md4 /usr/local/share/emacs/site-lisp/flim/hex-util hides /usr/local/share/emacs/24.0.50/lisp/hex-util /usr/local/share/emacs/site-lisp/bitmap/po hides /usr/local/share/emacs/24.0.50/lisp/textmodes/po /usr/local/share/emacs/site-lisp/flim/sasl hides /usr/local/share/emacs/24.0.50/lisp/net/sasl /usr/local/share/emacs/site-lisp/flim/sasl-ntlm hides /usr/local/share/emacs/24.0.50/lisp/net/sasl-ntlm /usr/local/share/emacs/site-lisp/flim/sasl-digest hides /usr/local/share/emacs/24.0.50/lisp/net/sasl-digest /usr/local/share/emacs/site-lisp/flim/sasl-cram hides /usr/local/share/emacs/24.0.50/lisp/net/sasl-cram /usr/local/share/emacs/site-lisp/flim/ntlm hides /usr/local/share/emacs/24.0.50/lisp/net/ntlm /usr/local/share/emacs/site-lisp/flim/hmac-md5 hides /usr/local/share/emacs/24.0.50/lisp/net/hmac-md5 /usr/local/share/emacs/site-lisp/flim/hmac-def hides /usr/local/share/emacs/24.0.50/lisp/net/hmac-def /usr/local/share/emacs/site-lisp/wl/rfc2368 hides /usr/local/share/emacs/24.0.50/lisp/mail/rfc2368 /usr/local/share/emacs/site-lisp/wl/utf7 hides /usr/local/share/emacs/24.0.50/lisp/gnus/utf7 /usr/local/share/emacs/site-lisp/semi/smime hides /usr/local/share/emacs/24.0.50/lisp/gnus/smime Features: (shadow sort gnus-util mail-extr message sendmail regexp-opt rfc822 mml mml-sec mm-decode mm-bodies mm-encode mail-parse rfc2231 rfc2047 rfc2045 ietf-drums mm-util mail-prsvr mailabbrev mail-utils gmm-utils mailheader emacsbug package mime-w3m warnings advice help-fns advice-preload w3m-load semantic/db-mode semantic/db semantic/idle semantic/format semantic/tag-ls semantic/ctxt semantic/util-modes semantic/util semantic semantic/tag semantic/lex semantic/fw mode-local ede/linux ede/emacs ede/cpp-root ede/speedbar ede/files ede ede/source eieio-base eieio-speedbar speedbar sb-image ezimage dframe easymenu assoc eieio-custom wid-edit eieio byte-opt bytecomp byte-compile cedet generic-x time japan-util tooltip ediff-hook vc-hooks lisp-float-type mwheel x-win x-dnd tool-bar dnd fontset image fringe lisp-mode register page menu-bar rfn-eshadow timer select scroll-bar mldrag mouse jit-lock font-lock syntax facemenu font-core frame cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean japanese hebrew greek romanian slovak czech european ethiopic indian cyrillic chinese case-table epa-hook jka-cmpr-hook help simple abbrev loaddefs button minibuffer faces cus-face files text-properties overlay md5 base64 format env code-pages mule custom widget hashtable-print-readable backquote make-network-process dynamic-setting system-font-setting font-render-setting x-toolkit x multi-tty emacs) --Multipart_Tue_Jun_22_18:16:56_2010-1 Content-Type: text/plain; type=patch; charset=US-ASCII Content-Disposition: attachment; filename="src-lread-old-backquote.diff" Content-Transfer-Encoding: 7bit === modified file 'src/lread.c' --- src/lread.c 2010-06-16 14:10:02 +0000 +++ src/lread.c 2010-06-22 07:48:58 +0000 @@ -2693,21 +2693,26 @@ old-style. For Emacs-25, we should completely remove this first_in_list exception (old-style can still be obtained via "(\`" anyway). */ - if (first_in_list && (c = READCHAR, UNREAD (c), c == ' ')) - { - Vold_style_backquotes = Qt; - goto default_label; - } - else - { - Lisp_Object value; - - new_backquote_flag++; - value = read0 (readcharfun); - new_backquote_flag--; - - return Fcons (Qbackquote, Fcons (value, Qnil)); - } + { + int next_char = READCHAR; + UNREAD (next_char); + + if (first_in_list && next_char == ' ') + { + Vold_style_backquotes = Qt; + goto default_label; + } + else + { + Lisp_Object value; + + new_backquote_flag++; + value = read0 (readcharfun); + new_backquote_flag--; + + return Fcons (Qbackquote, Fcons (value, Qnil)); + } + } case ',': if (new_backquote_flag) --Multipart_Tue_Jun_22_18:16:56_2010-1--