Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
e7621494
Commit
e7621494
authored
Apr 07, 2009
by
Chong Yidong
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* descr-text.el (describe-property-list, describe-char): Add
follow-link properties to buttons that need them.
parent
707731ee
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
8 additions
and
2 deletions
+8
-2
lisp/ChangeLog
lisp/ChangeLog
+4
-1
lisp/descr-text.el
lisp/descr-text.el
+4
-1
No files found.
lisp/ChangeLog
View file @
e7621494
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).
...
...
lisp/descr-text.el
View file @
e7621494
...
...
@@ -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
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment