[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#6490: 24.0.50; src/lread.c: old style backquote bug?
From: |
Makoto Fujiwara |
Subject: |
bug#6490: 24.0.50; src/lread.c: old style backquote bug? |
Date: |
Mon, 05 Jul 2010 10:51:21 +0900 |
User-agent: |
Wanderlust/2.15.9 (Almost Unreal) SEMI/1.14.6 (Maruoka) FLIM/1.14.9 (Goj$(D+W(B) APEL/10.7 Emacs/24.0.50 (i386--netbsdelf) MULE/6.0 (花散里) |
Just for an information:
bbdb
http://sourceforge.net/projects/bbdb
has the following lines in bbdb-2.34/lisp/bbdb-mhe.el:
-----
38 (defmacro bbdb/mh-cache-key (message)
39 "Return a (numeric) key for MESSAGE"
40 (`(let* ((attrs (file-attributes (, message)))
41 (status-time (nth 6 attrs))
42 (status-time-2 (cdr status-time))
43 (inode (nth 10 attrs)))
-----
I have added '(' at the end of the line, and then make it.
diff --git a/src/lread.c b/src/lread.c
index 16efd71..656d367 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2693,21 +2693,26 @@ read1 (readcharfun, pch, first_in_list)
...
+ if (first_in_list && (ch == ' ' || ch == '\t' || ch == '\n' || ch ==
'\r' || ch == '\f' || ch == '('))
---
Makoto Fujiwara,
Chiba, Japan, Narita Airport and Disneyland prefecture.