[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: confusing info in C-u C-x =
From: |
Juri Linkov |
Subject: |
Re: confusing info in C-u C-x = |
Date: |
Sun, 11 Dec 2005 02:46:09 +0200 |
User-agent: |
Gnus/5.110004 (No Gnus v0.4) Emacs/22.0.50 (gnu/linux) |
> 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/