Mercurial > emacs
changeset 102972:9446d1875bbd
* help-at-pt.el (help-at-pt-kbd-string): Reflow docstring.
(scan-buf-previous-region): Fix typo in docstring.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 14 Apr 2009 21:54:49 +0000 |
| parents | dfda66dfca92 |
| children | 9980dd970cf9 |
| files | lisp/ChangeLog lisp/help-at-pt.el |
| diffstat | 2 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Apr 14 21:40:07 2009 +0000 +++ b/lisp/ChangeLog Tue Apr 14 21:54:49 2009 +0000 @@ -1,3 +1,8 @@ +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.
--- a/lisp/help-at-pt.el Tue Apr 14 21:40:07 2009 +0000 +++ b/lisp/help-at-pt.el Tue Apr 14 21:54:49 2009 +0000 @@ -73,8 +73,8 @@ (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 @@ 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))