From ade29c44f68b80ac67b1f767c8069bff941c772c Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 14 Apr 2009 21:54:49 +0000 Subject: [PATCH] * help-at-pt.el (help-at-pt-kbd-string): Reflow docstring. (scan-buf-previous-region): Fix typo in docstring. --- lisp/ChangeLog | 5 +++++ lisp/help-at-pt.el | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 159791d880..e41ee9a19d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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 --git a/lisp/help-at-pt.el b/lisp/help-at-pt.el index f297552f87..d8125f3c32 100644 --- a/lisp/help-at-pt.el +++ b/lisp/help-at-pt.el @@ -73,8 +73,8 @@ can also be t, if that is the value of the `kbd-help' property." (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 @@ rarely happens in practice." 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)) -- 2.20.1