comparison lisp/simple.el @ 26466:b32572666174

(with-syntax-table): New.

26465:b9ad44d699ec

;; A grab-bag of basic Emacs commands not specifically related to some
;; major mode or to file-handling.

;;; Code:

(defgroup killing nil
  "Killing and yanking commands"
  :group 'editing)

      ;; for cloning to work properly).
      (run-hooks 'clone-buffer-hook))
    (if display-flag (pop-to-buffer new))
    new))

;;; simple.el ends here

26466:b32572666174

;; A grab-bag of basic Emacs commands not specifically related to some
;; major mode or to file-handling.

;;; Code:

(eval-when-compile
  (require 'cl))


(defgroup killing nil
  "Killing and yanking commands"
  :group 'editing)

      ;; for cloning to work properly).
      (run-hooks 'clone-buffer-hook))
    (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.
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