🚀 go-pugleaf

While experimenting with Kenneth C. Laprade's auto-map-event-handler
(16 Jan 91) I noticed that when a screen is deleted (like when
server-edit is executed (C-xC-#)), a map event is not generated, so
the minibuffer is left mapped.  I've mucked up a version of
'delete-screen' from epoch.el which seems to handle this case.
Perhaps there is a "right way" to do it without having to modify an
existing function.

;;; -----------------------------------------------------------------
;;;	Deleting a Screen
;;;
;;; 3/12/91 (Stephen L Nicoud)
;;;
;;; Screens deleted do not go through unmapping (like when
;;; 'server-edit' is called), so this is a modified version of
;;; delete-screen (as lifted from epoch.el) which will, if no other
;;; Edit screens are mapped, unmap the minibuffer.
;;;
;;; -----------------------------------------------------------------
(defun delete-screen (&optional scr)
  (interactive)
  (let ((the-scr (or scr (current-screen))))
    (mapcar (symbol-function 'remove-screen-from-buffer) (buffer-list)))
  (multiple-value-prog1
      (epoch::delete-screen scr)
    (when (and (not (eq scr (minibuf-screen)))
	       (screen-mapped-p (minibuf-screen))
	       (not (screen-list)))
      (unmap-screen (minibuf-screen)))))

Stephen
--
Stephen L Nicoud  <snicoud@atc.boeing.com>  uw-beaver!bcsaic!snicoud
Boeing Advanced Technology Center for Computer Sciences
Bellevue, Washington  USA