aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorJuanma Barranquero2009-04-14 21:54:49 +0000
committerJuanma Barranquero2009-04-14 21:54:49 +0000
commitade29c44f68b80ac67b1f767c8069bff941c772c (patch)
tree5abcecec7c8e1b13e04ba1329531b6debda186c6 /lisp
parent6dea7173815b86572a4e61b40a6e917c2186ad40 (diff)
downloademacs-ade29c44f68b80ac67b1f767c8069bff941c772c.tar.gz
emacs-ade29c44f68b80ac67b1f767c8069bff941c772c.zip
* help-at-pt.el (help-at-pt-kbd-string): Reflow docstring.
(scan-buf-previous-region): Fix typo in docstring.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/help-at-pt.el6
2 files changed, 8 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 159791d880f..e41ee9a19d7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12009-04-14 Juanma Barranquero <lekktu@gmail.com>
2
3 * help-at-pt.el (help-at-pt-kbd-string): Reflow docstring.
4 (scan-buf-previous-region): Fix typo in docstring.
5
12009-04-14 Edward Wiebe <usenet@pusto.de> (tiny change) 62009-04-14 Edward Wiebe <usenet@pusto.de> (tiny change)
2 7
3 * jit-lock.el (jit-lock-stealth-chunk-start): Fix typo in docstring. 8 * 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 f297552f870..d8125f3c323 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."
73(defun help-at-pt-kbd-string () 73(defun help-at-pt-kbd-string ()
74 "Return the keyboard help string at point. 74 "Return the keyboard help string at point.
75If the `kbd-help' text or overlay property at point produces a 75If the `kbd-help' text or overlay property at point produces a
76string, return it. Otherwise, use the `help-echo' property. If 76string, return it. Otherwise, use the `help-echo' property.
77this produces no string either, return nil." 77If this produces no string either, return nil."
78 (let ((kbd (help-at-pt-string t)) 78 (let ((kbd (help-at-pt-string t))
79 (echo (help-at-pt-string))) 79 (echo (help-at-pt-string)))
80 (if (and kbd (not (eq kbd t))) kbd echo))) 80 (if (and kbd (not (eq kbd t))) kbd echo)))
@@ -344,7 +344,7 @@ rarely happens in practice."
344Print the help found there using `display-local-help'. Adjacent 344Print the help found there using `display-local-help'. Adjacent
345areas with different non-nil help-echo properties are considered 345areas with different non-nil help-echo properties are considered
346different regions. With numeric argument ARG, behaves like 346different regions. With numeric argument ARG, behaves like
347`scan-buf-next-region' with argument -ARG.." 347`scan-buf-next-region' with argument -ARG."
348 (interactive "p") 348 (interactive "p")
349 (scan-buf-move-to-region 'help-echo (- arg) 'scan-buf-move-hook)) 349 (scan-buf-move-to-region 'help-echo (- arg) 'scan-buf-move-hook))
350 350