Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
ade29c44
Commit
ade29c44
authored
Apr 14, 2009
by
Juanma Barranquero
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* help-at-pt.el (help-at-pt-kbd-string): Reflow docstring.
(scan-buf-previous-region): Fix typo in docstring.
parent
6dea7173
Changes
2
Show whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
8 additions
and
3 deletions
+8
-3
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/help-at-pt.el
lisp/help-at-pt.el
+3
-3
No files found.
lisp/ChangeLog
View file @
ade29c44
2009-04-14 Juanma Barranquero <lekktu@gmail.com>
* help-at-pt.el (help-at-pt-kbd-string): Reflow docstring.
(scan-buf-previous-region): Fix typo in docstring.
2009-04-14 Edward Wiebe <usenet@pusto.de> (tiny change)
* jit-lock.el (jit-lock-stealth-chunk-start): Fix typo in docstring.
...
...
lisp/help-at-pt.el
View file @
ade29c44
...
...
@@ -73,8 +73,8 @@ can also be t, if that is the value of the `kbd-help' property."
(
defun
help-at-pt-kbd-string
()
"Return the keyboard help string at point.
If the `kbd-help' text or overlay property at point produces a
string, return it. Otherwise, use the `help-echo' property.
If
this produces no string either, return nil."
string, return it. Otherwise, use the `help-echo' property.
If
this produces no string either, return nil."
(
let
((
kbd
(
help-at-pt-string
t
))
(
echo
(
help-at-pt-string
)))
(
if
(
and
kbd
(
not
(
eq
kbd
t
)))
kbd
echo
)))
...
...
@@ -344,7 +344,7 @@ rarely happens in practice."
Print
the
help
found
there
using
`
display-local-help
'.
Adjacent
areas
with
different
non-nil
help-echo
properties
are
considered
different
regions.
With
numeric
argument
ARG,
behaves
like
`
scan-buf-next-region
'
with
argument
-ARG.
.
"
`
scan-buf-next-region
'
with
argument
-ARG.
"
(interactive "
p
"
)
(
scan-buf-move-to-region
'help-echo
(
-
arg
)
'scan-buf-move-hook
))
...
...
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