# HG changeset patch # User Juanma Barranquero # Date 1239746089 0 # Node ID 9446d1875bbd5ae7f11be62aaa90e377384ce406 # Parent dfda66dfca92c9bf1939892d817b984d1b5636f0 * help-at-pt.el (help-at-pt-kbd-string): Reflow docstring. (scan-buf-previous-region): Fix typo in docstring. diff -r dfda66dfca92 -r 9446d1875bbd lisp/ChangeLog --- 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 + + * help-at-pt.el (help-at-pt-kbd-string): Reflow docstring. + (scan-buf-previous-region): Fix typo in docstring. + 2009-04-14 Edward Wiebe (tiny change) * jit-lock.el (jit-lock-stealth-chunk-start): Fix typo in docstring. diff -r dfda66dfca92 -r 9446d1875bbd lisp/help-at-pt.el --- 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))