Function: custom-dirlocals-with-buffer

custom-dirlocals-with-buffer is a macro defined in cus-edit.el.gz.

Signature

(custom-dirlocals-with-buffer &rest BODY)

Documentation

Arrange to execute BODY in a "*Customize Dirlocals*" buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/cus-edit.el.gz
(defmacro custom-dirlocals-with-buffer (&rest body)
  "Arrange to execute BODY in a \"*Customize Dirlocals*\" buffer."
  ;; We don't use `custom-buffer-create' because the settings here
  ;; don't go into the `custom-file'.
  (declare (indent 0) (debug t))
  `(progn
     (switch-to-buffer "*Customize Dirlocals*")

     (let ((inhibit-read-only t))
       (erase-buffer))
     (remove-overlays)
     (Custom-dirlocals-mode)
     ,@body
     (widget-setup)))