comparison lisp/simple.el @ 26476:46323650988d

(with-syntax-table): Save buffer explicitly instead of using save-excursion.

26475:7bd41cca7ed8

    new))


(defmacro with-syntax-table (table &rest body)
  "Evaluate BODY with syntax table of current buffer set to a copy of TABLE.
Point, mark, 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)))
    '(let ((,old-table (syntax-table)))
       (unwind-protect
	   (save-excursion
	     (set-syntax-table (copy-syntax-table ,table))
	     ,@body)
	   (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

26476:46323650988d

    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