[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/descr-text.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/descr-text.el |
Date: |
Mon, 12 Dec 2005 16:50:40 +0000 |
Index: emacs/lisp/descr-text.el
diff -u emacs/lisp/descr-text.el:1.43 emacs/lisp/descr-text.el:1.44
--- emacs/lisp/descr-text.el:1.43 Thu Dec 8 01:38:50 2005
+++ emacs/lisp/descr-text.el Mon Dec 12 16:50:39 2005
@@ -464,9 +464,13 @@
(single-key-description char)
(string-to-multibyte
(char-to-string char)))))
- (orig-buf (current-buffer))
- (help-buf (if (eq orig-buf (get-buffer "*Help*"))
- "*Help-2*" "*Help*"))
+ (text-props-desc
+ (let ((tmp-buf (generate-new-buffer " *text-props*")))
+ (unwind-protect
+ (progn
+ (describe-text-properties pos tmp-buf)
+ (with-current-buffer tmp-buf (buffer-string)))
+ (kill-buffer tmp-buf))))
item-list max-width unicode)
(if (or (< char 256)
@@ -619,7 +623,7 @@
(setq max-width (apply #'max (mapcar #'(lambda (x)
(if (cadr x) (length (car x)) 0))
item-list)))
- (with-output-to-temp-buffer help-buf
+ (with-output-to-temp-buffer "*Help*"
(with-current-buffer standard-output
(set-buffer-multibyte multibyte-p)
(let ((formatter (format "%%%ds:" max-width)))
@@ -722,9 +726,7 @@
(insert "\nSee the variable `reference-point-alist' for "
"the meaning of the rule.\n"))
- (save-excursion
- (set-buffer orig-buf)
- (describe-text-properties pos help-buf))
+ (if text-props-desc (insert text-props-desc))
(describe-text-mode)))))
(defalias 'describe-char-after 'describe-char)
- [Emacs-diffs] Changes to emacs/lisp/descr-text.el, Kenichi Handa, 2005/12/07
- [Emacs-diffs] Changes to emacs/lisp/descr-text.el,
Stefan Monnier <=
- [Emacs-diffs] Changes to emacs/lisp/descr-text.el, Juri Linkov, 2005/12/14
- [Emacs-diffs] Changes to emacs/lisp/descr-text.el, Nick Roberts, 2005/12/22
- [Emacs-diffs] Changes to emacs/lisp/descr-text.el, Nick Roberts, 2005/12/26
- [Emacs-diffs] Changes to emacs/lisp/descr-text.el, Nick Roberts, 2005/12/26
- [Emacs-diffs] Changes to emacs/lisp/descr-text.el, Nick Roberts, 2005/12/27
- [Emacs-diffs] Changes to emacs/lisp/descr-text.el, Juri Linkov, 2005/12/27