[Emacs-diffs] emacs/src ChangeLog lread.c

[Richard M. Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Richard M. Stallman <rms>       09/11/19 16:13:23

Modified files:
        src            : ChangeLog lread.c 

Log message:
        * lread.c (Funintern): Error if symbol is t or nil.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/src/ChangeLog?cvsroot=emacs&r1=1.7881&r2=1.7882
http://cvs.savannah.gnu.org/viewcvs/emacs/src/lread.c?cvsroot=emacs&r1=1.418&r2=1.419

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/src/ChangeLog,v
retrieving revision 1.7881
retrieving revision 1.7882
diff -u -b -r1.7881 -r1.7882
--- ChangeLog   19 Nov 2009 01:40:22 -0000      1.7881
+++ ChangeLog   19 Nov 2009 16:13:22 -0000      1.7882
@@ -1,3 +1,7 @@
+2009-11-19  Richard Stallman  <address@hidden>
+
+       * lread.c (Funintern): Error if symbol is t or nil.
+
 2009-11-19  Stefan Monnier  <address@hidden>
 
        * insdel.c (make_gap_larger): Don't make as many assumptions about the

Index: lread.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/lread.c,v
retrieving revision 1.418
retrieving revision 1.419
diff -u -b -r1.418 -r1.419
--- lread.c     11 Nov 2009 06:10:44 -0000      1.418
+++ lread.c     19 Nov 2009 16:13:23 -0000      1.419
@@ -3765,6 +3765,9 @@
   if (SYMBOLP (name) && !EQ (name, tem))
     return Qnil;
 
+  if (EQ (tem, Qnil) || EQ (tem, Qt))
+    error ("Attempt to unintern t or nil");
+
   XSYMBOL (tem)->interned = SYMBOL_UNINTERNED;
   XSYMBOL (tem)->constant = 0;
   XSYMBOL (tem)->indirect_variable = 0;