Commit ade29c44 authored by Juanma Barranquero's avatar Juanma Barranquero

* help-at-pt.el (help-at-pt-kbd-string): Reflow docstring.

  (scan-buf-previous-region): Fix typo in docstring.
parent 6dea7173
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) 2009-04-14 Edward Wiebe <usenet@pusto.de> (tiny change)
* jit-lock.el (jit-lock-stealth-chunk-start): Fix typo in docstring. * jit-lock.el (jit-lock-stealth-chunk-start): Fix typo in docstring.
......
...@@ -73,8 +73,8 @@ can also be t, if that is the value of the `kbd-help' property." ...@@ -73,8 +73,8 @@ can also be t, if that is the value of the `kbd-help' property."
(defun help-at-pt-kbd-string () (defun help-at-pt-kbd-string ()
"Return the keyboard help string at point. "Return the keyboard help string at point.
If the `kbd-help' text or overlay property at point produces a If the `kbd-help' text or overlay property at point produces a
string, return it. Otherwise, use the `help-echo' property. If string, return it. Otherwise, use the `help-echo' property.
this produces no string either, return nil." If this produces no string either, return nil."
(let ((kbd (help-at-pt-string t)) (let ((kbd (help-at-pt-string t))
(echo (help-at-pt-string))) (echo (help-at-pt-string)))
(if (and kbd (not (eq kbd t))) kbd echo))) (if (and kbd (not (eq kbd t))) kbd echo)))
...@@ -344,7 +344,7 @@ rarely happens in practice." ...@@ -344,7 +344,7 @@ rarely happens in practice."
Print the help found there using `display-local-help'. Adjacent Print the help found there using `display-local-help'. Adjacent
areas with different non-nil help-echo properties are considered areas with different non-nil help-echo properties are considered
different regions. With numeric argument ARG, behaves like different regions. With numeric argument ARG, behaves like
`scan-buf-next-region' with argument -ARG.." `scan-buf-next-region' with argument -ARG."
(interactive "p") (interactive "p")
(scan-buf-move-to-region 'help-echo (- arg) 'scan-buf-move-hook)) (scan-buf-move-to-region 'help-echo (- arg) 'scan-buf-move-hook))
......
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