Re: confusing info in C-u C-x =

[Juri Linkov <juri@jurta.org>]

>     It already always creates a new buffer *Help-2*.  Do you mean that
>     `generate-new-buffer-name' can create more buffers like *Help*<3> and
>     *Help*<4>?
>
> It will create a new buffer each time.

Yes, I already realized what you meant.  Below is a new patch.

Index: lisp/descr-text.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/descr-text.el,v
retrieving revision 1.43
diff -c -r1.43 descr-text.el
*** lisp/descr-text.el	8 Dec 2005 01:38:50 -0000	1.43
--- lisp/descr-text.el	11 Dec 2005 00:45:56 -0000
***************
*** 160,166 ****
        (let ((buffer (current-buffer))
  	    (target-buffer "*Help*"))
  	(when (eq buffer (get-buffer target-buffer))
! 	  (setq target-buffer "*Help-2*"))
  	(save-excursion
  	  (with-output-to-temp-buffer target-buffer
  	    (set-buffer standard-output)
--- 160,166 ----
        (let ((buffer (current-buffer))
  	    (target-buffer "*Help*"))
  	(when (eq buffer (get-buffer target-buffer))
! 	  (setq target-buffer "*Help*<2>"))
  	(save-excursion
  	  (with-output-to-temp-buffer target-buffer
  	    (set-buffer standard-output)
***************
*** 466,472 ****
  				(char-to-string char)))))
  	 (orig-buf (current-buffer))
  	 (help-buf (if (eq orig-buf (get-buffer "*Help*"))
! 		       "*Help-2*" "*Help*"))
  	 item-list max-width unicode)
  
      (if (or (< char 256)
--- 466,472 ----
  				(char-to-string char)))))
  	 (orig-buf (current-buffer))
  	 (help-buf (if (eq orig-buf (get-buffer "*Help*"))
! 		       "*Help*<2>" "*Help*"))
  	 item-list max-width unicode)
  
      (if (or (< char 256)
***************
*** 621,626 ****
--- 621,628 ----
  					 item-list)))
      (with-output-to-temp-buffer help-buf
        (with-current-buffer standard-output
+ 	(let ((help-xref-following t))
+ 	  (help-setup-xref nil nil))
  	(set-buffer-multibyte multibyte-p)
  	(let ((formatter (format "%%%ds:" max-width)))
  	  (dolist (elt item-list)
***************
*** 725,731 ****
  	(save-excursion
  	  (set-buffer orig-buf)
  	  (describe-text-properties pos help-buf))
! 	(describe-text-mode)))))
  
  (defalias 'describe-char-after 'describe-char)
  (make-obsolete 'describe-char-after 'describe-char "22.1")
--- 727,736 ----
  	(save-excursion
  	  (set-buffer orig-buf)
  	  (describe-text-properties pos help-buf))
! 	(describe-text-mode)
! 	(toggle-read-only 1)
! 	(help-make-xrefs (current-buffer))
! 	(print-help-return-message)))))
  
  (defalias 'describe-char-after 'describe-char)
  (make-obsolete 'describe-char-after 'describe-char "22.1")

-- 
Juri Linkov
http://www.jurta.org/emacs/