Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
709085b9
Commit
709085b9
authored
Feb 02, 2014
by
Daniel Colascione
Browse files
Make help-at-point stuff also look just before point
parent
99f7b0a6
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
24 additions
and
8 deletions
+24
-8
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/help-at-pt.el
lisp/help-at-pt.el
+19
-8
No files found.
lisp/ChangeLog
View file @
709085b9
2014-02-02 Daniel Colascione <dancol@dancol.org>
* help-at-pt.el (help-at-pt-string,help-at-pt-maybe-display): Also
try to display local help from just before point.
2014-02-02 Alan Mackenzie <bug-cc-mode@gnu.org>
c-parse-state. Don't "append-lower-brace-pair" in certain
...
...
lisp/help-at-pt.el
View file @
709085b9
...
...
@@ -61,13 +61,18 @@ property, or nil, is returned.
If KBD is non-nil, `kbd-help' is used instead, and any
`help-echo' property is ignored. In this case, the return value
can also be t, if that is the value of the `kbd-help' property."
(
let*
((
prop
(
if
kbd
'kbd-help
'help-echo
))
(
pair
(
get-char-property-and-overlay
(
point
)
prop
))
(
val
(
car
pair
))
(
ov
(
cdr
pair
)))
(
if
(
functionp
val
)
(
funcall
val
(
selected-window
)
(
if
ov
ov
(
current-buffer
))
(
point
))
(
eval
val
))))
(
save-excursion
(
let*
((
prop
(
if
kbd
'kbd-help
'help-echo
))
(
pair
(
get-char-property-and-overlay
(
point
)
prop
))
(
pair
(
if
(
car
pair
)
pair
(
unless
(
bobp
)
(
backward-char
)
(
get-char-property-and-overlay
(
point
)
prop
))))
(
val
(
car
pair
))
(
ov
(
cdr
pair
)))
(
if
(
functionp
val
)
(
funcall
val
(
selected-window
)
(
if
ov
ov
(
current-buffer
))
(
point
))
(
eval
val
)))))
;;;###autoload
(
defun
help-at-pt-kbd-string
()
...
...
@@ -235,7 +240,13 @@ properties, to enable buffer local values."
(catch 'found
(dolist (prop help-at-pt-display-when-idle)
(if (get-char-property (point) prop)
(throw 'found t))))))
(throw 'found t)))
(unless (bobp)
(save-excursion
(backward-char)
(dolist (prop help-at-pt-display-when-idle)
(if (get-char-property (point) prop)
(throw 'found t))))))))
(or (not (current-message))
(string= (current-message) "
Quit
"))
(display-local-help t)))
...
...
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