emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/emacs-23 r99891: * lread.c (read1): Signal


From: Andreas Schwab
Subject: [Emacs-diffs] /srv/bzr/emacs/emacs-23 r99891: * lread.c (read1): Signal error if #s is not followed by paren.
Date: Wed, 23 Jun 2010 10:22:36 +0200
User-agent: Bazaar (2.0.3)

------------------------------------------------------------
revno: 99891
committer: Andreas Schwab <address@hidden>
branch nick: emacs
timestamp: Wed 2010-06-23 10:22:36 +0200
message:
  * lread.c (read1): Signal error if #s is not followed by paren.
modified:
  src/ChangeLog
  src/lread.c
=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2010-06-19 19:43:47 +0000
+++ b/src/ChangeLog     2010-06-23 08:22:36 +0000
@@ -1,3 +1,7 @@
+2010-06-23  Andreas Schwab  <address@hidden>
+
+       * lread.c (read1): Signal error if #s is not followed by paren.
+
 2010-06-19  Chong Yidong  <address@hidden>
 
        * image.c (free_image): Mark frame as garbaged (Bug#6426).

=== modified file 'src/lread.c'
--- a/src/lread.c       2010-01-22 08:44:50 +0000
+++ b/src/lread.c       2010-06-23 08:22:36 +0000
@@ -2377,28 +2377,28 @@
              /* This is repetitive but fast and simple. */
              params[param_count] = QCsize;
              params[param_count+1] = Fplist_get (tmp, Qsize);
-             if (!NILP (params[param_count+1]))
-               param_count+=2;
+             if (!NILP (params[param_count + 1]))
+               param_count += 2;
 
              params[param_count] = QCtest;
              params[param_count+1] = Fplist_get (tmp, Qtest);
-             if (!NILP (params[param_count+1]))
-               param_count+=2;
+             if (!NILP (params[param_count + 1]))
+               param_count += 2;
 
              params[param_count] = QCweakness;
              params[param_count+1] = Fplist_get (tmp, Qweakness);
-             if (!NILP (params[param_count+1]))
-               param_count+=2;
+             if (!NILP (params[param_count + 1]))
+               param_count += 2;
 
              params[param_count] = QCrehash_size;
              params[param_count+1] = Fplist_get (tmp, Qrehash_size);
-             if (!NILP (params[param_count+1]))
-               param_count+=2;
+             if (!NILP (params[param_count + 1]))
+               param_count += 2;
 
              params[param_count] = QCrehash_threshold;
              params[param_count+1] = Fplist_get (tmp, Qrehash_threshold);
-             if (!NILP (params[param_count+1]))
-               param_count+=2;
+             if (!NILP (params[param_count + 1]))
+               param_count += 2;
 
              /* This is the hashtable data. */
              data = Fplist_get (tmp, Qdata);
@@ -2419,6 +2419,8 @@
 
              return ht;
            }
+         UNREAD (c);
+         invalid_syntax ("#", 1);
        }
       if (c == '^')
        {


reply via email to

[Prev in Thread] Current Thread [Next in Thread]