Path: utzoo!utgpu!water!watmath!uunet!tut.cis.ohio-state.edu!EDDIE.MIT.EDU!think!compass!worley
From: think!compass!worley@EDDIE.MIT.EDU (Dale Worley)
Newsgroups: gnu.emacs
Subject: Function for saving the results of a help request
Message-ID: <8810171921.AA04440@galaxy.compass.com>
Date: 17 Oct 88 19:21:47 GMT
Sender: daemon@tut.cis.ohio-state.edu
Distribution: gnu
Organization: GNUs Not Usenet
Lines: 26

Sometimes you want to save the *Help* buffer for later examination,
e.g., when you do an apropos.  save-help will rename the *Help* buffer
*Help<1>*, *Help<2>*, etc., so the information won't get clobbered by
further help requests.

Dale

(defun save-help ()
  (interactive)
  (save-excursion
    (let ((i 1) 
	  (buffer (get-buffer "*Help*"))
	  name)
      (if (not buffer)
	  (ding)
	(while
	    (progn
	      (setq name (concat "*Help<" (int-to-string i) ">*"))
	      (get-buffer name))
	  (setq i (1+ i)))
	(set-buffer buffer)
	(rename-buffer name)
	(message (concat "Help buffer renamed " name))))))
-- 
Dale Worley, Compass, Inc.                      mit-eddie!think!compass!worley
Seen in a net discussion:  "It took work to make tofu politically correct."