Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!CHIPS.BBN.COM!jr
From: jr@CHIPS.BBN.COM (John Robinson)
Newsgroups: gnu.emacs
Subject: [romero@csseq.tamu.edu (Ron Romero): bug in slowsplit.el ]
Message-ID: <4139.610638315@chips>
Date: 8 May 89 13:45:15 GMT
Sender: daemon@tut.cis.ohio-state.edu
Reply-To: jr@bbn.com
Distribution: gnu
Organization: GNUs Not Usenet
Lines: 58


  Date:    Mon, 08 May 89 02:12:52 -0500 
  From:    romero@csseq.tamu.edu (Ron Romero)
  To:      jr@bbn.com
  Subject: bug in slowsplit.el 

    I've found one minor error with your slow-split.el package.  I've
  aliased C-x 1 to delete-other-windows-quietly.  However, when I bring
  up a help window, the mini-buffer gives me the helpful little message
  "press M-x delete-other-windows to remove help window."  How could I
  best get it to know that delete-other-windows-quietly does the same
  thing?


  ===========================================
  Ron Romero
  romero@csseq.tamu.edu
  - -------------------------------------------
  "It's all right we told you what to dream."
  ___________________________________________

Two possibilities:

1.  If you are happy with always using delete-other-windows-quietly in
all cases, modify the code so that it is named delete-other-windows.
Its definition will replace the default when you load the slow-split
package, and the help function (and any others that call it or look up
its binding) will be none the wiser.  Once you change the name in this
way, it won't be necessary to rebind C-X 1.  You might also want to
do the same with split-window-quietly vs. split-window-vertically.

2.  Add the following redefinition of the help function that posts the
helpful message about C-X 1 (when you use unmodified emacs) by adding
this defun to your slowsplit.el code (this redefines the emacs
version):

(defun print-help-return-message (&optional function)
  "Display or return message saying how to restore windows after help command.
Computes a message and applies the argument FUNCTION to it.
If FUNCTION is nil, applies `message' to it, thus printing it."
  (and (not (get-buffer-window standard-output))
       (funcall (or function 'message)
		(substitute-command-keys
		 (if (one-window-p t)
		     (if pop-up-windows
			 "Type \\[delete-other-windows-quietly] to remove help window."
		       "Type \\[switch-to-buffer] RET to remove help window.")
		   "Type \\[switch-to-buffer-other-window] RET to restore old contents of help window.")))))

What I had hoped to do was to merge my code into the distributed code
for split-window-vertically and delete-other-windows, and make it
conditional on a global customization variable, and perhaps also the
search-slow-speed variable.  I haven't gotten any further bug reports,
so maybe it is time to do this.  (Any other suggestions out there?)
--
/jr
jr@bbn.com or bbn!jr
C'mon big money!