Function: ebrowse-view-exit-fn

ebrowse-view-exit-fn is a byte-compiled function defined in ebrowse.el.gz.

Signature

(ebrowse-view-exit-fn BUFFER)

Documentation

Function called when exiting View mode in BUFFER.

Restore frame configuration active before viewing the file, and possibly kill the viewed buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/ebrowse.el.gz
(defun ebrowse-view-exit-fn (buffer)
  "Function called when exiting View mode in BUFFER.
Restore frame configuration active before viewing the file,
and possibly kill the viewed buffer."
  (let (exit-action original-frame-configuration)
    (with-current-buffer buffer
      (setq original-frame-configuration ebrowse--frame-configuration
	    exit-action ebrowse--view-exit-action))
    ;; Delete the frame in which we viewed.
    (mapc #'delete-frame
	  (cl-loop for frame in (frame-list)
                   when (not (assq frame original-frame-configuration))
                   collect frame))
    (when exit-action
      (funcall exit-action buffer))))