Function: mh-in-show-buffer

mh-in-show-buffer is an autoloaded macro defined in mh-acros.el.gz.

Signature

(mh-in-show-buffer SHOW-BUFFER &rest BODY)

Documentation

Format is (mh-in-show-buffer (SHOW-BUFFER) &body BODY).

Display buffer SHOW-BUFFER in other window and execute BODY in it. Stronger than save-excursion, weaker than save-window-excursion.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-acros.el.gz
;;;###mh-autoload
(defmacro mh-in-show-buffer (show-buffer &rest body)
  "Format is (mh-in-show-buffer (SHOW-BUFFER) &body BODY).
Display buffer SHOW-BUFFER in other window and execute BODY in it.
Stronger than `save-excursion', weaker than `save-window-excursion'."
  (declare (debug t) (indent defun))
  (setq show-buffer (car show-buffer))  ; CL style
  `(let ((mh-in-show-buffer-saved-window (selected-window)))
     (switch-to-buffer-other-window ,show-buffer)
     (if mh-bury-show-buffer-flag (bury-buffer (current-buffer)))
     (unwind-protect
         (progn
           ,@body)
       (select-window mh-in-show-buffer-saved-window))))