diff options
| author | BT Templeton | 2012-08-11 11:34:01 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2012-08-11 11:34:01 -0400 |
| commit | 14ae42393507757d4a06dd6c1bc17b417ac31669 (patch) | |
| tree | 7b7968032ad75cb697b5b66220f8b7cf238110d6 /src | |
| parent | 46fab912d891ed35d6a3f8ccff79ce4c1c42b5ce (diff) | |
| download | emacs-14ae42393507757d4a06dd6c1bc17b417ac31669.tar.gz emacs-14ae42393507757d4a06dd6c1bc17b417ac31669.zip | |
* src/lread.c (syms_of_lread): Initialize Vlexical_binding.
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 82 | ||||
| -rw-r--r-- | src/lread.c | 4 |
2 files changed, 45 insertions, 41 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 7f89fcbe867..ce40a4c0baf 100644 --- a/src/ChangeLog +++ b/src/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2012-08-11 BT Templeton <bpt@hcoop.net> (tiny change) | ||
| 2 | |||
| 3 | * lread.c (syms_of_lread): Initialize Vlexical_binding. | ||
| 4 | |||
| 1 | 2012-08-11 Jan Djärv <jan.h.d@swipnet.se> | 5 | 2012-08-11 Jan Djärv <jan.h.d@swipnet.se> |
| 2 | 6 | ||
| 3 | * nsterm.m (not_in_argv): New function. | 7 | * nsterm.m (not_in_argv): New function. |
| @@ -6,8 +10,8 @@ | |||
| 6 | if not_in_argv returns non-zero (bug#12171). | 10 | if not_in_argv returns non-zero (bug#12171). |
| 7 | 11 | ||
| 8 | * gtkutil.c (gtk_font_chooser_dialog_new, GTK_FONT_CHOOSER) | 12 | * gtkutil.c (gtk_font_chooser_dialog_new, GTK_FONT_CHOOSER) |
| 9 | (gtk_font_chooser_set_font, gtk_font_chooser_get_font): Define | 13 | (gtk_font_chooser_set_font, gtk_font_chooser_get_font): |
| 10 | for Gtk+ versions less than 3.2. | 14 | Define for Gtk+ versions less than 3.2. |
| 11 | (xg_get_font_name): Use those functions/macros here. | 15 | (xg_get_font_name): Use those functions/macros here. |
| 12 | Reported by Frans Oilinki <moilinki@gmail.com>. | 16 | Reported by Frans Oilinki <moilinki@gmail.com>. |
| 13 | 17 | ||
| @@ -133,8 +137,8 @@ | |||
| 133 | Cleanup intervals. | 137 | Cleanup intervals. |
| 134 | * intervals.h (NULL_INTERVAL, DEFAULT_INTERVAL): Remove. | 138 | * intervals.h (NULL_INTERVAL, DEFAULT_INTERVAL): Remove. |
| 135 | (NULL_INTERVAL_P): Likewise. Adjust users. | 139 | (NULL_INTERVAL_P): Likewise. Adjust users. |
| 136 | (FRONT_STICKY_P, END_NONSTICKY_P, FRONT_NONSTICKY_P): Adjust | 140 | (FRONT_STICKY_P, END_NONSTICKY_P, FRONT_NONSTICKY_P): |
| 137 | comment. Move under #if 0. | 141 | Adjust comment. Move under #if 0. |
| 138 | * alloc.c, buffer.c, editfns.c, fns.c, insdel.c, intervals.c: | 142 | * alloc.c, buffer.c, editfns.c, fns.c, insdel.c, intervals.c: |
| 139 | * print.c, syntax.c, textprop.c, xdisp.c: Adjust users. | 143 | * print.c, syntax.c, textprop.c, xdisp.c: Adjust users. |
| 140 | 144 | ||
| @@ -146,8 +150,8 @@ | |||
| 146 | 150 | ||
| 147 | 2012-08-07 Eli Zaretskii <eliz@gnu.org> | 151 | 2012-08-07 Eli Zaretskii <eliz@gnu.org> |
| 148 | 152 | ||
| 149 | * .gdbinit (xframe, xwindow, nextcons, xcar, xcdr, xlist): Rename | 153 | * .gdbinit (xframe, xwindow, nextcons, xcar, xcdr, xlist): |
| 150 | fields to match removal of FGET and WGET and disuse of | 154 | Rename fields to match removal of FGET and WGET and disuse of |
| 151 | INTERNAL_FIELD in Lisp_Cons. | 155 | INTERNAL_FIELD in Lisp_Cons. |
| 152 | 156 | ||
| 153 | 2012-08-07 Dmitry Antipov <dmantipov@yandex.ru> | 157 | 2012-08-07 Dmitry Antipov <dmantipov@yandex.ru> |
| @@ -174,8 +178,8 @@ | |||
| 174 | (interval_set_left, interval_set_right, interval_set_plist): | 178 | (interval_set_left, interval_set_right, interval_set_plist): |
| 175 | (interval_copy_parent): New function. | 179 | (interval_copy_parent): New function. |
| 176 | (SET_INTERVAL_OBJECT, SET_INTERVAL_PARENT, INTERVAL_PTR_SIZE): Remove. | 180 | (SET_INTERVAL_OBJECT, SET_INTERVAL_PARENT, INTERVAL_PTR_SIZE): Remove. |
| 177 | (RESET_INTERVAL, COPY_INTERVAL_CACHE, MERGE_INTERVAL_CACHE): Adjust | 181 | (RESET_INTERVAL, COPY_INTERVAL_CACHE, MERGE_INTERVAL_CACHE): |
| 178 | indentation. | 182 | Adjust indentation. |
| 179 | (INTERVAL_SIZE): Remove. Adjust users. | 183 | (INTERVAL_SIZE): Remove. Adjust users. |
| 180 | * alloc.c, intervals.c, lread.c, textprop.c: Use new functions. | 184 | * alloc.c, intervals.c, lread.c, textprop.c: Use new functions. |
| 181 | 185 | ||
| @@ -238,8 +242,8 @@ | |||
| 238 | 242 | ||
| 239 | 2012-08-06 Eli Zaretskii <eliz@gnu.org> | 243 | 2012-08-06 Eli Zaretskii <eliz@gnu.org> |
| 240 | 244 | ||
| 241 | * w32menu.c (set_frame_menubar, initialize_frame_menubar): Don't | 245 | * w32menu.c (set_frame_menubar, initialize_frame_menubar): |
| 242 | use FRAME_MENU_BAR_ITEMS as an lvalue. | 246 | Don't use FRAME_MENU_BAR_ITEMS as an lvalue. |
| 243 | 247 | ||
| 244 | 2012-08-06 Stefan Monnier <monnier@iro.umontreal.ca> | 248 | 2012-08-06 Stefan Monnier <monnier@iro.umontreal.ca> |
| 245 | 249 | ||
| @@ -351,11 +355,11 @@ | |||
| 351 | Fix startup warnings about ../site-lisp on MS-Windows. (Bug#11959) | 355 | Fix startup warnings about ../site-lisp on MS-Windows. (Bug#11959) |
| 352 | * w32.c (init_environment): Change the default values of many | 356 | * w32.c (init_environment): Change the default values of many |
| 353 | environment variables in dflt_envvars[] to NULL, to avoid pushing | 357 | environment variables in dflt_envvars[] to NULL, to avoid pushing |
| 354 | them into environment when they were not already defined. Remove | 358 | them into environment when they were not already defined. |
| 355 | the code that deletes site-lisp subdirectories from the default | 359 | Remove the code that deletes site-lisp subdirectories from the default |
| 356 | value of EMACSLOADPATH, as it is no longer needed. | 360 | value of EMACSLOADPATH, as it is no longer needed. |
| 357 | (check_windows_init_file): Now external, not static. Use | 361 | (check_windows_init_file): Now external, not static. |
| 358 | Vload_path as is, without adding anything, as this function is now | 362 | Use Vload_path as is, without adding anything, as this function is now |
| 359 | called when Vload_path is already set up. | 363 | called when Vload_path is already set up. |
| 360 | 364 | ||
| 361 | * w32.h (check_windows_init_file): Add prototype. | 365 | * w32.h (check_windows_init_file): Add prototype. |
| @@ -444,11 +448,11 @@ | |||
| 444 | GetFileAttributes fails with network-related error codes. | 448 | GetFileAttributes fails with network-related error codes. |
| 445 | (sys_rename): Diagnose renaming of a symlink when the user doesn't | 449 | (sys_rename): Diagnose renaming of a symlink when the user doesn't |
| 446 | have the required privileges. | 450 | have the required privileges. |
| 447 | (get_file_security_desc_by_name): Renamed from | 451 | (get_file_security_desc_by_name): Rename from |
| 448 | get_file_security_desc. | 452 | get_file_security_desc. |
| 449 | (stat_worker): New function, with most of the guts of 'stat', and | 453 | (stat_worker): New function, with most of the guts of 'stat', and |
| 450 | with addition of handling of symlinks and support for 'lstat'. If | 454 | with addition of handling of symlinks and support for 'lstat'. |
| 451 | possible, get file's attributes and security information by | 455 | If possible, get file's attributes and security information by |
| 452 | handle, not by name. Produce S_IFLNK bit for symlinks, when | 456 | handle, not by name. Produce S_IFLNK bit for symlinks, when |
| 453 | called from 'lstat'. | 457 | called from 'lstat'. |
| 454 | (stat, lstat): New functions, call 'stat_worker'. | 458 | (stat, lstat): New functions, call 'stat_worker'. |
| @@ -652,7 +656,7 @@ | |||
| 652 | 656 | ||
| 653 | Generalize INTERNAL_FIELD between buffers, keyboards and frames. | 657 | Generalize INTERNAL_FIELD between buffers, keyboards and frames. |
| 654 | * lisp.h (INTERNAL_FIELD): New macro. | 658 | * lisp.h (INTERNAL_FIELD): New macro. |
| 655 | * buffer.h (BUFFER_INTERNAL_FIELD): Removed. | 659 | * buffer.h (BUFFER_INTERNAL_FIELD): Remove. |
| 656 | (BVAR): Change to use INTERNAL_FIELD. | 660 | (BVAR): Change to use INTERNAL_FIELD. |
| 657 | * keyboard.h (KBOARD_INTERNAL_FIELD): Likewise. | 661 | * keyboard.h (KBOARD_INTERNAL_FIELD): Likewise. |
| 658 | (KVAR): Change to use INTERNAL_FIELD. | 662 | (KVAR): Change to use INTERNAL_FIELD. |
| @@ -707,8 +711,8 @@ | |||
| 707 | 711 | ||
| 708 | * nsterm.m (ns_do_open_file): New variable. | 712 | * nsterm.m (ns_do_open_file): New variable. |
| 709 | (ns_term_init): Set ns_do_open_file to YES after run returns. | 713 | (ns_term_init): Set ns_do_open_file to YES after run returns. |
| 710 | (openFile, openTempFile, openFileWithoutUI, openFiles): Open | 714 | (openFile, openTempFile, openFileWithoutUI, openFiles): |
| 711 | files only if ns_do_open_file. | 715 | Open files only if ns_do_open_file. |
| 712 | 716 | ||
| 713 | 2012-07-30 Paul Eggert <eggert@cs.ucla.edu> | 717 | 2012-07-30 Paul Eggert <eggert@cs.ucla.edu> |
| 714 | 718 | ||
| @@ -845,7 +849,7 @@ | |||
| 845 | 849 | ||
| 846 | 2012-07-29 Eli Zaretskii <eliz@gnu.org> | 850 | 2012-07-29 Eli Zaretskii <eliz@gnu.org> |
| 847 | 851 | ||
| 848 | * w32heap.h (OS_9X): Renamed from OS_WINDOWS_95. | 852 | * w32heap.h (OS_9X): Rename from OS_WINDOWS_95. |
| 849 | 853 | ||
| 850 | * w32heap.c (cache_system_info): | 854 | * w32heap.c (cache_system_info): |
| 851 | * w32.c (sys_rename): | 855 | * w32.c (sys_rename): |
| @@ -862,8 +866,8 @@ | |||
| 862 | 2012-07-29 Dmitry Antipov <dmantipov@yandex.ru> | 866 | 2012-07-29 Dmitry Antipov <dmantipov@yandex.ru> |
| 863 | 867 | ||
| 864 | Cleanup statistics calculation in Fgarbage_collect. | 868 | Cleanup statistics calculation in Fgarbage_collect. |
| 865 | * alloc.c (Fgarbage_collect): Rename t1 to meaningful start. Fix | 869 | * alloc.c (Fgarbage_collect): Rename t1 to meaningful start. |
| 866 | zombies percentage calculation. Simplify elapsed time calculation. | 870 | Fix zombies percentage calculation. Simplify elapsed time calculation. |
| 867 | 871 | ||
| 868 | 2012-07-29 Dmitry Antipov <dmantipov@yandex.ru> | 872 | 2012-07-29 Dmitry Antipov <dmantipov@yandex.ru> |
| 869 | 873 | ||
| @@ -921,8 +925,8 @@ | |||
| 921 | 925 | ||
| 922 | Adjust GDB to reflect pvec_type changes (Bug#12036). | 926 | Adjust GDB to reflect pvec_type changes (Bug#12036). |
| 923 | * .gdbinit (xvectype, xpr, xbacktrace): Adjust to reflect the | 927 | * .gdbinit (xvectype, xpr, xbacktrace): Adjust to reflect the |
| 924 | 2012-07-04 changes to pseudovector representation. Problem | 928 | 2012-07-04 changes to pseudovector representation. |
| 925 | reported by Eli Zaretskii in <http://bugs.gnu.org/12036#30>. | 929 | Problem reported by Eli Zaretskii in <http://bugs.gnu.org/12036#30>. |
| 926 | 930 | ||
| 927 | 2012-07-27 Michael Albinus <michael.albinus@gmx.de> | 931 | 2012-07-27 Michael Albinus <michael.albinus@gmx.de> |
| 928 | 932 | ||
| @@ -1183,8 +1187,8 @@ | |||
| 1183 | for the reasons. | 1187 | for the reasons. |
| 1184 | 1188 | ||
| 1185 | * w32menu.c (add_menu_item): Cast to ULONG_PTR when assigning | 1189 | * w32menu.c (add_menu_item): Cast to ULONG_PTR when assigning |
| 1186 | info.dwItemData. Fixes crashes on 64-bit Windows. Suggested by | 1190 | info.dwItemData. Fixes crashes on 64-bit Windows. |
| 1187 | Fabrice Popineau <fabrice.popineau@supelec.fr>. | 1191 | Suggested by Fabrice Popineau <fabrice.popineau@supelec.fr>. |
| 1188 | 1192 | ||
| 1189 | 2012-07-21 Jan Djärv <jan.h.d@swipnet.se> | 1193 | 2012-07-21 Jan Djärv <jan.h.d@swipnet.se> |
| 1190 | 1194 | ||
| @@ -1810,8 +1814,8 @@ | |||
| 1810 | * lisp.h (intern, intern_c_string): Redefine as static inline | 1814 | * lisp.h (intern, intern_c_string): Redefine as static inline |
| 1811 | wrappers for intern_1 and intern_c_string_1, respectively. | 1815 | wrappers for intern_1 and intern_c_string_1, respectively. |
| 1812 | (intern_1, intern_c_string_1): Rename prototypes. | 1816 | (intern_1, intern_c_string_1): Rename prototypes. |
| 1813 | * lread.c (intern_1, intern_c_string_1, oblookup): Simplify | 1817 | * lread.c (intern_1, intern_c_string_1, oblookup): |
| 1814 | Vobarray checking. | 1818 | Simplify Vobarray checking. |
| 1815 | * font.c (font_intern_prop): Likewise. Adjust comment. | 1819 | * font.c (font_intern_prop): Likewise. Adjust comment. |
| 1816 | * w32font.c (intern_font_name): Likewise. | 1820 | * w32font.c (intern_font_name): Likewise. |
| 1817 | 1821 | ||
| @@ -1880,8 +1884,8 @@ | |||
| 1880 | 1884 | ||
| 1881 | Avoid calls to strlen in font processing functions. | 1885 | Avoid calls to strlen in font processing functions. |
| 1882 | * font.c (font_parse_name, font_parse_xlfd, font_parse_fcname) | 1886 | * font.c (font_parse_name, font_parse_xlfd, font_parse_fcname) |
| 1883 | (font_open_by_name): Change to use length argument. Adjust | 1887 | (font_open_by_name): Change to use length argument. |
| 1884 | users accordingly. | 1888 | Adjust users accordingly. |
| 1885 | * font.h (font_open_by_name, font_parse_xlfd, font_unparse_xlfd): | 1889 | * font.h (font_open_by_name, font_parse_xlfd, font_unparse_xlfd): |
| 1886 | Adjust prototypes. | 1890 | Adjust prototypes. |
| 1887 | * xfont.c (xfont_decode_coding_xlfd, font_unparse_xlfd): | 1891 | * xfont.c (xfont_decode_coding_xlfd, font_unparse_xlfd): |
| @@ -2013,8 +2017,8 @@ | |||
| 2013 | srclen argument and return the length of result. Adjust users | 2017 | srclen argument and return the length of result. Adjust users |
| 2014 | accordingly. | 2018 | accordingly. |
| 2015 | (directory_file_name): Fix comment. Change to add srclen argument, | 2019 | (directory_file_name): Fix comment. Change to add srclen argument, |
| 2016 | swap 1st and 2nd arguments to obey the common convention. Adjust | 2020 | swap 1st and 2nd arguments to obey the common convention. |
| 2017 | users accordingly. | 2021 | Adjust users accordingly. |
| 2018 | * filelock.c (fill_in_lock_file_name): Avoid calls to strlen. | 2022 | * filelock.c (fill_in_lock_file_name): Avoid calls to strlen. |
| 2019 | 2023 | ||
| 2020 | 2012-07-10 Glenn Morris <rgm@gnu.org> | 2024 | 2012-07-10 Glenn Morris <rgm@gnu.org> |
| @@ -2178,8 +2182,8 @@ | |||
| 2178 | Support truncation and continuation glyphs on GUI frames, when | 2182 | Support truncation and continuation glyphs on GUI frames, when |
| 2179 | fringes are disabled. (Bug#11832) | 2183 | fringes are disabled. (Bug#11832) |
| 2180 | * xdisp.c (init_iterator): Get dimensions of truncation and | 2184 | * xdisp.c (init_iterator): Get dimensions of truncation and |
| 2181 | continuation glyphs even if on GUI frames. Adjust | 2185 | continuation glyphs even if on GUI frames. |
| 2182 | it->last_visible_x on GUI frames when the left or right fringes, | 2186 | Adjust it->last_visible_x on GUI frames when the left or right fringes, |
| 2183 | or both, are absent. | 2187 | or both, are absent. |
| 2184 | (start_display, move_it_in_display_line_to): Handle the case of a | 2188 | (start_display, move_it_in_display_line_to): Handle the case of a |
| 2185 | GUI frame without a fringe to display continuation or truncation | 2189 | GUI frame without a fringe to display continuation or truncation |
| @@ -2629,8 +2633,8 @@ | |||
| 2629 | 2633 | ||
| 2630 | Fix block vector allocation code to allow VECTOR_BLOCK_SIZE | 2634 | Fix block vector allocation code to allow VECTOR_BLOCK_SIZE |
| 2631 | values which aren't power of 2. | 2635 | values which aren't power of 2. |
| 2632 | * alloc.c (VECTOR_FREE_LIST_SIZE_MASK): New macro. Verify | 2636 | * alloc.c (VECTOR_FREE_LIST_SIZE_MASK): New macro. |
| 2633 | it's value and the value of VECTOR_BLOCK_SIZE. Adjust users | 2637 | Verify it's value and the value of VECTOR_BLOCK_SIZE. Adjust users |
| 2634 | accordingly. | 2638 | accordingly. |
| 2635 | 2639 | ||
| 2636 | 2012-07-03 Stefan Monnier <monnier@iro.umontreal.ca> | 2640 | 2012-07-03 Stefan Monnier <monnier@iro.umontreal.ca> |
| @@ -2684,8 +2688,8 @@ | |||
| 2684 | * alloc.c (mark_buffer): Simplify. Remove prototype. | 2688 | * alloc.c (mark_buffer): Simplify. Remove prototype. |
| 2685 | (mark_object): Add comment. Reorganize marking of vector-like | 2689 | (mark_object): Add comment. Reorganize marking of vector-like |
| 2686 | objects. Use CHECK_LIVE for all vector-like objects except buffers | 2690 | objects. Use CHECK_LIVE for all vector-like objects except buffers |
| 2687 | and subroutines when GC_CHECK_MARKED_OBJECTS is defined. Avoid | 2691 | and subroutines when GC_CHECK_MARKED_OBJECTS is defined. |
| 2688 | redundant calls to mark_vectorlike for bool vectors. | 2692 | Avoid redundant calls to mark_vectorlike for bool vectors. |
| 2689 | 2693 | ||
| 2690 | 2012-06-30 Glenn Morris <rgm@gnu.org> | 2694 | 2012-06-30 Glenn Morris <rgm@gnu.org> |
| 2691 | 2695 | ||
diff --git a/src/lread.c b/src/lread.c index 90e204f426e..3dd13c37f44 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -4541,8 +4541,7 @@ to load. See also `load-dangerous-libraries'. */); | |||
| 4541 | Vbytecomp_version_regexp | 4541 | Vbytecomp_version_regexp |
| 4542 | = build_pure_c_string ("^;;;.\\(in Emacs version\\|bytecomp version FSF\\)"); | 4542 | = build_pure_c_string ("^;;;.\\(in Emacs version\\|bytecomp version FSF\\)"); |
| 4543 | 4543 | ||
| 4544 | Qlexical_binding = intern ("lexical-binding"); | 4544 | DEFSYM (Qlexical_binding, "lexical-binding"); |
| 4545 | staticpro (&Qlexical_binding); | ||
| 4546 | DEFVAR_LISP ("lexical-binding", Vlexical_binding, | 4545 | DEFVAR_LISP ("lexical-binding", Vlexical_binding, |
| 4547 | doc: /* Whether to use lexical binding when evaluating code. | 4546 | doc: /* Whether to use lexical binding when evaluating code. |
| 4548 | Non-nil means that the code in the current buffer should be evaluated | 4547 | Non-nil means that the code in the current buffer should be evaluated |
| @@ -4550,6 +4549,7 @@ with lexical binding. | |||
| 4550 | This variable is automatically set from the file variables of an | 4549 | This variable is automatically set from the file variables of an |
| 4551 | interpreted Lisp file read using `load'. Unlike other file local | 4550 | interpreted Lisp file read using `load'. Unlike other file local |
| 4552 | variables, this must be set in the first line of a file. */); | 4551 | variables, this must be set in the first line of a file. */); |
| 4552 | Vlexical_binding = Qnil; | ||
| 4553 | Fmake_variable_buffer_local (Qlexical_binding); | 4553 | Fmake_variable_buffer_local (Qlexical_binding); |
| 4554 | 4554 | ||
| 4555 | DEFVAR_LISP ("eval-buffer-list", Veval_buffer_list, | 4555 | DEFVAR_LISP ("eval-buffer-list", Veval_buffer_list, |