diff options
| author | Stefan Monnier | 2011-03-30 14:40:00 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2011-03-30 14:40:00 -0400 |
| commit | f488fb6528738131ef41859e1f04125f2e50efce (patch) | |
| tree | e064dd58457d2242e581544c3d43a0690ae403ab /src | |
| parent | ebe0c9b6b02cfb328457156c25387c3e2b7ba961 (diff) | |
| download | emacs-f488fb6528738131ef41859e1f04125f2e50efce.tar.gz emacs-f488fb6528738131ef41859e1f04125f2e50efce.zip | |
* lisp/subr.el (apply-partially): Use a non-nil static environment.
(--dolist-tail--, --dotimes-limit--): Don't declare dynamically bound.
(dolist): Use a more efficient form for lexical-binding.
(dotimes): Use a cleaner semantics for lexical-binding.
* lisp/emacs-lisp/edebug.el (edebug-eval-top-level-form):
Use eval-sexp-add-defvars.
Diffstat (limited to 'src')
| -rw-r--r-- | src/lread.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/lread.c b/src/lread.c index 7a8d7cf9a6a..24183532527 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -1889,6 +1889,7 @@ which is the input stream for reading characters. | |||
| 1889 | This function does not move point. */) | 1889 | This function does not move point. */) |
| 1890 | (Lisp_Object start, Lisp_Object end, Lisp_Object printflag, Lisp_Object read_function) | 1890 | (Lisp_Object start, Lisp_Object end, Lisp_Object printflag, Lisp_Object read_function) |
| 1891 | { | 1891 | { |
| 1892 | /* FIXME: Do the eval-sexp-add-defvars danse! */ | ||
| 1892 | int count = SPECPDL_INDEX (); | 1893 | int count = SPECPDL_INDEX (); |
| 1893 | Lisp_Object tem, cbuf; | 1894 | Lisp_Object tem, cbuf; |
| 1894 | 1895 | ||