/[emacs]/emacs/src/eval.c
ViewVC logotype

Diff of /emacs/src/eval.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.225 by ttn, Sat Nov 20 10:26:24 2004 UTC revision 1.226 by monnier, Mon Nov 22 05:26:50 2004 UTC
# Line 786  usage: (defvar SYMBOL &optional INITVALU Line 786  usage: (defvar SYMBOL &optional INITVALU
786      {      {
787        if (NILP (tem))        if (NILP (tem))
788          Fset_default (sym, Feval (Fcar (tail)));          Fset_default (sym, Feval (Fcar (tail)));
789          else
790            { /* Check if there is really a global binding rather than just a let
791                 binding that shadows the global unboundness of the var.  */
792              struct specbinding *pdl = specpdl_ptr;
793              while (--pdl >= specpdl)
794                {
795                  if (EQ (pdl->symbol, sym) && !pdl->func
796                      && EQ (pdl->old_value, Qunbound))
797                    {
798                      message_with_string ("Warning: defvar ignored because %s is let-bound",
799                                           SYMBOL_NAME (sym), 1);
800                      break;
801                    }
802                }
803            }
804        tail = Fcdr (tail);        tail = Fcdr (tail);
805        tem = Fcar (tail);        tem = Fcar (tail);
806        if (!NILP (tem))        if (!NILP (tem))

Legend:
Removed from v.1.225  
changed lines
  Added in v.1.226

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26