comparison lisp/simple.el @ 26521:5efbe3ff1f09

(with-syntax-table): Don't switch buffers.

26520:bd832bb8fbc0

    new))


(defmacro with-syntax-table (table &rest body)
  "Evaluate BODY with syntax table of current buffer set to a copy of TABLE.
Current buffer and syntax table are saved, BODY is evaluated, and the
saved values are 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)
	 (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

26521:5efbe3ff1f09

    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