procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* descr-text.el (describe-property-list, describe-char): Add

Browse source 
follow-link properties to buttons that need them.
This commit is contained in:
Chong Yidong 2009-04-07 00:46:11 +00:00
parent 707731ee86
commit e762149473
2 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,4 +1,7 @@
2009-04-06 Chong Yidong <cyd@stupidchicken.com>
2009-04-07 Chong Yidong <cyd@stupidchicken.com>
* descr-text.el (describe-property-list, describe-char): Add
follow-link properties to buttons that need them.
* tooltip.el (tooltip-show-help-non-mode): Don't save the last
message if it was also a help message (Bug#2895).

5
lisp/descr-text.el
View file

@ -84,6 +84,7 @@ into help buttons that call `describe-text-category' or
(symbol-name value)
'action `(lambda (&rest ignore)
(describe-text-category ',value))
'follow-link t
'help-echo "mouse-2, RET: describe this category"))
((memq key '(face font-lock-face mouse-face))
(insert-text-button
@ -513,6 +514,7 @@ as well as widgets, buttons, overlays, and text properties."
(if (search-forward ,(char-to-string char)
nil t)
(goto-char (match-beginning 0))))))
'follow-link t
'help-echo
"mouse-2, RET: show this character in its character set")
str)))
@ -727,7 +729,8 @@ as well as widgets, buttons, overlays, and text properties."
"customize what to show"
'action (lambda (&rest ignore)
(customize-variable
'describe-char-unidata-list)))
'describe-char-unidata-list))
'follow-link t)
(insert "\n")
(dolist (elt (if (eq describe-char-unidata-list t)
(nreverse (mapcar 'car char-code-property-alist))