Commit 709085b9 authored by Daniel Colascione's avatar Daniel Colascione

Make help-at-point stuff also look just before point

parent 99f7b0a6
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
......
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment