From: Richard M. Stallman Date: Wed, 12 Jan 2000 03:08:29 +0000 (+0000) Subject: (with-syntax-table): Moved to subr.el. X-Git-Tag: emacs-pretest-21.0.90~5373 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=83c8f4616a4a1ea7919351c34dd3d577fad1770f;p=emacs.git (with-syntax-table): Moved to subr.el. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d4ccd683a7b..e9c8de220f0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,14 @@ +2000-01-11 Richard M. Stallman + + * emacs-lisp/edebug.el (with-syntax-table): Add a def-edebug-spec. + + * emacs-lisp/lisp-mode.el (with-syntax-table): + Set up lisp-indent-function property. + + * subr.el (with-syntax-table): Moved from simple.el. + + * simple.el (with-syntax-table): Moved to subr.el. + 2000-01-11 Gerd Moellmann * tmm.el (tmm-shortcut): Delete region after prompt instead diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index bfd94311f17..6135d100fbf 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -722,6 +722,7 @@ is the buffer position of the start of the containing expression." (put 'with-temp-file 'lisp-indent-function 1) (put 'with-temp-buffer 'lisp-indent-function 0) (put 'with-temp-message 'lisp-indent-function 1) +(put 'with-syntax-table 'lisp-indent-function 1) (put 'let 'lisp-indent-function 1) (put 'let* 'lisp-indent-function 1) (put 'while 'lisp-indent-function 1) diff --git a/lisp/simple.el b/lisp/simple.el index c25f6f335c5..b3ff6344aa0 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -4132,25 +4132,4 @@ after it has been set up properly in other respects." (if display-flag (pop-to-buffer new)) new)) - -(defmacro with-syntax-table (table &rest body) - "Evaluate BODY with syntax table of current buffer set to a copy of TABLE. -The syntax table of the current buffer is saved, BODY is evaluated, and the -saved table is restored, even in case of an abnormal exit. -Value is what BODY returns." - (let ((old-table (gensym)) - (old-buffer (gensym))) - `(let ((,old-table (syntax-table)) - (,old-buffer (current-buffer))) - (unwind-protect - (progn - (set-syntax-table (copy-syntax-table ,table)) - ,@body) - (save-current-buffer - (set-buffer ,old-buffer) - (set-syntax-table ,old-table)))))) - -(put 'with-syntax-table 'lisp-indent-function 1) -(put 'with-syntax-table 'edebug-form-spec '(form body)) - ;;; simple.el ends here diff --git a/src/ChangeLog b/src/ChangeLog index f79bfdea91f..af408138240 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,9 +1,24 @@ +2000-01-11 Richard M. Stallman + + * lisp.h (set_internal): Enter the new arg. + + * eval.c (specbind): Record buffer-local variables specially, + indicating which buffer's binding was saved. + (unbind_to): Restore buffer-local variables specially + in the proper buffer. + + * data.c (set_internal): New arg BUF. + + * eval.c (specbind, unbind_to): Pass new arg to set_internal. + * data.c (Fset): Pass new arg to set_internal. + * bytecode.c (Fbyte_code): Pass new arg to set_internal. + 2000-01-11 Gerd Moellmann * .gdbinit: Adapt to new strings. Add xbacktrace, xreload, xprintsym. -2000-01-11 Richard M. Stallman +2000-01-11 Richard M. Stallman * minibuf.c (Ftry_completion): Doc fix. @@ -384,7 +399,7 @@ * process.c (read_process_output): Fix the arg FROM to update_compositions. -1999-12-22 Richard M. Stallman +1999-12-22 Richard M. Stallman * search.c (Freplace_match): For nonliteral replacement in buffer, construct all the new text first, then insert all at once. @@ -852,11 +867,11 @@ * xterm.c (show_mouse_face): Don't use updated_area, use TEXT_AREA. -1999-12-12 Richard M. Stallman +1999-12-12 Richard M. Stallman * minibuf.c (Fall_completions): Doc fix. -1999-12-12 Richard M. Stallman +1999-12-12 Richard M. Stallman * macros.c (Fstart_kbd_macro): Handle case where last-kbd-macro has been changed by the Lisp code. @@ -1142,7 +1157,7 @@ * emacs.c (synchronize_locale): Avoid compiler warnings about pointer type mismatch. -1999-11-26 Richard M. Stallman +1999-11-26 Richard M. Stallman * editfns.c (Fdelete_field): Make it noninteractive. Return nil. @@ -1321,7 +1336,7 @@ * keyboard.c (command_loop_1): Remove no_redisplay. -1999-11-16 Richard M. Stallman +1999-11-16 Richard M. Stallman * print.c (PRINTPREPARE): Don't call setup_echo_area_for_printing in noninteractive. @@ -1363,7 +1378,7 @@ (tiff_image_p, jpeg_image_p, gif_image_p, gs_image_p): Call parse_image_spec accordingly. -1999-11-09 Richard M. Stallman +1999-11-09 Richard M. Stallman * cmds.c (Fbeginning_of_line): Doc fix. (Fend_of_line): Doc fix. @@ -1374,7 +1389,7 @@ * syntax.c (Fforward_word): Handle fields even if would have hit an edge of the buffer. Return nil if affected by fields. -1999-11-09 Richard M. Stallman +1999-11-09 Richard M. Stallman * editfns.c (preceding_pos): Function deleted. (text_property_stickiness): Decrement POS directly. @@ -1513,7 +1528,7 @@ * syntax.c: Remove whitespace after open or in front of closing parentheses. -1999-11-01 Richard M. Stallman +1999-11-01 Richard M. Stallman * Makefile.in (w16select.o, sound.o): Don't depend on lisp.h. @@ -1527,7 +1542,7 @@ (display_line): Set charpos of first glyph to -1 only if that glyph is the space added by append_glyph. -1999-10-30 Richard M. Stallman +1999-10-30 Richard M. Stallman * print.c (strout): Consider `noninteractive' and use stdout only when PRINTCHARFUN is t. @@ -1559,12 +1574,12 @@ Redefine PTY_TTY_NAME_SPRINTF. * config.in: Add undef for HAVE_DEV_PTMX. -1999-10-26 Richard M. Stallman +1999-10-26 Richard M. Stallman * regex.c (POP_FAILURE_POINT): Use failure_id.integer as arg to DEBUG_POP and DEBUG_PRINT. -1999-10-27 Richard M. Stallman +1999-10-27 Richard M. Stallman * data.c (Qad_activate_internal): Renamed from Qad_activate. (Ffset): Call Qad_activate_internal. @@ -1589,7 +1604,7 @@ (Ftype_of): Return it for hash tables. (syms_of_data): Initialize Qhash_table. -1999-10-25 Richard M. Stallman +1999-10-25 Richard M. Stallman * regex.c (POP_FAILURE_POINT): Extract failure_id as an integer. @@ -1999,7 +2014,7 @@ * keyboard.c (auto-save-interval): Fix documentation. -1999-10-09 Richard M. Stallman +1999-10-09 Richard M. Stallman * print.c (print): When removing objects from Vprint_number_table, only scan the newly added objects. @@ -2031,7 +2046,7 @@ * bsdos4.h [HAVE_LIBNCURSES]: Define TERMINFO and LIBS_TERMCAP. -1999-10-07 Richard M. Stallman +1999-10-07 Richard M. Stallman * process.c (wait_reading_process_input): When trying to suck input from one process, for accept-process-output, @@ -2097,12 +2112,12 @@ * xdisp.c (resize_mini_window): Do nothing if frame is an X frame that hasn't been initialized yet. -1999-09-28 Richard M. Stallman +1999-09-28 Richard M. Stallman * keymap.c (Fsingle_key_description): Make tem big enough. (describe_buffer_bindings): Make buf big enough. -1999-09-27 Richard M. Stallman +1999-09-27 Richard M. Stallman * intervals.c (get_local_map): Use indirect_function, not Findirect_function. @@ -2309,7 +2324,7 @@ * xdisp.c (echo_area_display): Turn off code that returned without doing anything when using a terminal frame. -1999-09-17 Richard M. Stallman +1999-09-17 Richard M. Stallman * unexelf.c (unexec): Don't get confused by a short section just before the bss section. @@ -4117,7 +4132,7 @@ * fns.c (internal_equal): Correct overlay comparison. -1999-07-31 Richard M. Stallman +1999-07-31 Richard M. Stallman * xfns.c (x_set_internal_border_width): Call do_pending_window_change. Don't block input, don't call XFlush. @@ -11843,7 +11858,7 @@ Wed Jun 25 15:22:58 1997 Gerd Moellmann * msdos.c (unibyte_display_via_language_environment): Add extern. -1999-05-02 Richard M. Stallman +1999-05-02 Richard M. Stallman * xdisp.c (display_text_line): Convert unibyte char to multibyte if unibyte_display_via_language_environment is set. @@ -12059,7 +12074,7 @@ Wed Jun 25 15:22:58 1997 Gerd Moellmann (display_text_line): Stop the loop for processing overlay strings when we reach the right edge of the window. -1999-03-31 Richard M. Stallman +1999-03-31 Richard M. Stallman * doc.c (get_doc_string): When UNIBYTE and DEFINITION are 0, let the data control whether string is unibyte. @@ -12179,7 +12194,7 @@ Wed Jun 25 15:22:58 1997 Gerd Moellmann * fileio.c (Ffile_directory_p): Doc fix. -1999-03-05 Richard M. Stallman +1999-03-05 Richard M. Stallman * coding.c (setup_coding_system): Check for CODING_SYSTEM = nil.