[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/lread.c,v [EMACS_22_BASE]
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/src/lread.c,v [EMACS_22_BASE] |
Date: |
Wed, 22 Aug 2007 16:46:48 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Stefan Monnier <monnier> 07/08/22 16:46:47
Index: lread.c
===================================================================
RCS file: /sources/emacs/emacs/src/lread.c,v
retrieving revision 1.369.2.4
retrieving revision 1.369.2.5
diff -u -b -r1.369.2.4 -r1.369.2.5
--- lread.c 22 Aug 2007 15:55:10 -0000 1.369.2.4
+++ lread.c 22 Aug 2007 16:46:45 -0000 1.369.2.5
@@ -193,7 +193,7 @@
Fread initializes this to zero, so we need not specbind it
or worry about what happens to it when there is an error. */
static int new_backquote_flag;
-static Lisp_Object Vold_style_backquotes;
+static Lisp_Object Vold_style_backquotes, Qold_style_backquotes;
/* A list of file names for files being loaded in Fload. Used to
check for recursive loads. */
@@ -699,6 +699,20 @@
return Qnil;
}
+static Lisp_Object
+load_warn_old_style_backquotes (file)
+ Lisp_Object file;
+{
+ if (!NILP (Vold_style_backquotes))
+ {
+ Lisp_Object args[1];
+ args[0] = build_string ("!! File %s uses old-style backquotes !!");
+ args[1] = file;
+ Fmessage (2, args);
+ }
+ return Qnil;
+}
+
DEFUN ("get-load-suffixes", Fget_load_suffixes, Sget_load_suffixes, 0, 0, 0,
doc: /* Return the suffixes that `load' should try if a suffix is \
required.
@@ -763,7 +777,6 @@
register FILE *stream;
register int fd = -1;
int count = SPECPDL_INDEX ();
- Lisp_Object temp;
struct gcpro gcpro1, gcpro2, gcpro3;
Lisp_Object found, efound, hist_file_name;
/* 1 means we printed the ".el is newer" message. */
@@ -897,6 +910,10 @@
tmp))
: found) ;
+ /* Check fore the presence of old-style quotes and warn about them. */
+ specbind (Qold_style_backquotes, Qnil);
+ record_unwind_protect (load_warn_old_style_backquotes, file);
+
if (!bcmp (SDATA (found) + SBYTES (found) - 4,
".elc", 4))
/* Load .elc files directly, but not when they are
@@ -1382,8 +1399,6 @@
static void
end_of_file_error ()
{
- Lisp_Object data;
-
if (STRINGP (Vload_file_name))
xsignal1 (Qend_of_file, Vload_file_name);
@@ -4198,6 +4213,8 @@
DEFVAR_LISP ("old-style-backquotes", &Vold_style_backquotes,
doc: /* Set to non-nil when `read' encounters an old-style
backquote. */);
Vold_style_backquotes = Qnil;
+ Qold_style_backquotes = intern ("old-style-backquotes");
+ staticpro (&Qold_style_backquotes);
/* Vsource_directory was initialized in init_lread. */
- [Emacs-diffs] Changes to emacs/src/lread.c,v [EMACS_22_BASE], Glenn Morris, 2007/08/08
- [Emacs-diffs] Changes to emacs/src/lread.c,v [EMACS_22_BASE], Stefan Monnier, 2007/08/22
- [Emacs-diffs] Changes to emacs/src/lread.c,v [EMACS_22_BASE], Stefan Monnier, 2007/08/22
- [Emacs-diffs] Changes to emacs/src/lread.c,v [EMACS_22_BASE],
Stefan Monnier <=
- [Emacs-diffs] Changes to emacs/src/lread.c,v [EMACS_22_BASE], Stefan Monnier, 2007/08/23
- [Emacs-diffs] Changes to emacs/src/lread.c,v [EMACS_22_BASE], Stefan Monnier, 2007/08/23