From xemacs-m  Thu Jun 26 15:56:31 1997
Received: from rattlesnake (dave@baal.hardlink.com [199.103.249.2])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id PAA18550
	for <xemacs-beta@xemacs.org>; Thu, 26 Jun 1997 15:56:28 -0500 (CDT)
Received: (from dave@localhost)
          by rattlesnake (8.8.4/8.8.4)
	  id PAA03016; Thu, 26 Jun 1997 15:58:04 -0400
Date: Thu, 26 Jun 1997 15:58:04 -0400
Message-Id: <199706261958.PAA03016@rattlesnake>
From: David Bakhash <cadet@mit.edu>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
To: xemacs-beta@xemacs.org
Subject: help-mode-quit
X-Mailer: VM 6.22 under 19.15 XEmacs Lucid

I request that `help-mode-quit' be modified such that when the help
buffer is *always* burried, regardless of whether one-window-p was
true on not.  So basically, what I'm saying is that when you do
something like:

C-h f some-function

you get help in a pop-up buffer.  when you quit, that temporary *help*
buffer should be burried, in addition to the window being deleted,
just like when there's only one window.  If this function made sense,
it would either also bury the *Help* buffer after it deleted the
*Help* window when there were multiple windows up, or it would
`switch-to-other-buffer' instead of (bury-buffer) when one-window-p
returned `t'.  So I suggest to change it so that the help buffer
always gets burried when you do `help-mode-quit'.  Not a major change,
but it makes sense.  People who write stuff all the time, who are
always using help.el will probably appreciate that the *Help* buffer
gets burried just like the *info* buffer, and just like all the other
modes do (dired, etc) when you quit with "q".

(defun help-mode-quit ()
  "Exits from help mode, possibly restoring the previous window configuration."
  (interactive)
  (cond ((frame-property (selected-frame) 'help-window-config)
	   (set-window-configuration
	    (frame-property (selected-frame) 'help-window-config))
	   (set-frame-property  (selected-frame) 'help-window-config nil))
        ((one-window-p)
	 (bury-buffer))
        (t
         (delete-window)
         ;; ### I suggest that we bury the *Help* buffer right here. ###
         )))

--dave

