[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Missing follow-links in descr-text
From: |
martin rudalics |
Subject: |
Missing follow-links in descr-text |
Date: |
Mon, 13 Feb 2006 18:17:44 +0100 |
Please consider adding a few follow-link properties to descr-text.el.
The current behavior of `describe-char', for example, is a bit chaotic
with `mouse-1-click-follows-link' non-nil.
* descr-text.el (describe-text-widget, describe-text-sexp)
(describe-property-list, describe-char): Add follow-link
property.
*** descr-text.el Thu Jan 5 07:44:36 2006
--- descr-text.el Mon Feb 13 11:21:52 2006
***************
*** 41,47 ****
(symbol-name (if (symbolp widget) widget (car widget)))
'action `(lambda (&rest ignore)
(widget-browse ',widget))
! 'help-echo "mouse-2, RET: browse this widget")
(insert " ")
(insert-text-button
"(widget)Top" 'type 'help-info 'help-args '("(widget)Top")))
--- 41,48 ----
(symbol-name (if (symbolp widget) widget (car widget)))
'action `(lambda (&rest ignore)
(widget-browse ',widget))
! 'help-echo "mouse-2, RET: browse this widget"
! 'follow-link t)
(insert " ")
(insert-text-button
"(widget)Top" 'type 'help-info 'help-args '("(widget)Top")))
***************
*** 64,70 ****
(with-output-to-temp-buffer
"*Pp Eval Output*"
(princ ',pp)))
! 'help-echo "mouse-2, RET: pretty print value in another buffer"))))
(defun describe-property-list (properties)
"Insert a description of PROPERTIES in the current buffer.
--- 65,72 ----
(with-output-to-temp-buffer
"*Pp Eval Output*"
(princ ',pp)))
! 'help-echo "mouse-2, RET: pretty print value in another buffer"
! 'follow-link t))))
(defun describe-property-list (properties)
"Insert a description of PROPERTIES in the current buffer.
***************
*** 88,94 ****
(symbol-name value)
'action `(lambda (&rest ignore)
(describe-text-category ',value))
! 'help-echo "mouse-2, RET: describe this category"))
((memq key '(face font-lock-face mouse-face))
(insert-text-button
(format "%S" value)
--- 90,97 ----
(symbol-name value)
'action `(lambda (&rest ignore)
(describe-text-category ',value))
! 'help-echo "mouse-2, RET: describe this category"
! 'follow-link t))
((memq key '(face font-lock-face mouse-face))
(insert-text-button
(format "%S" value)
***************
*** 477,483 ****
(search-forward ,(char-to-string char)
nil t))))
'help-echo
! "mouse-2, RET: show this character in its character set")))
("syntax"
,(let ((syntax (syntax-after pos)))
(with-temp-buffer
--- 480,487 ----
(search-forward ,(char-to-string char)
nil t))))
'help-echo
! "mouse-2, RET: show this character in its character set"
! 'follow-link t)))
("syntax"
,(let ((syntax (syntax-after pos)))
(with-temp-buffer
- Missing follow-links in descr-text,
martin rudalics <=