[gnu.emacs] Function for saving the results of a help request

worley@EDDIE.MIT.EDU (Dale Worley) (10/18/88)

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."