diff options
| author | Juanma Barranquero | 2009-04-14 21:54:49 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2009-04-14 21:54:49 +0000 |
| commit | ade29c44f68b80ac67b1f767c8069bff941c772c (patch) | |
| tree | 5abcecec7c8e1b13e04ba1329531b6debda186c6 /lisp | |
| parent | 6dea7173815b86572a4e61b40a6e917c2186ad40 (diff) | |
| download | emacs-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/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/help-at-pt.el | 6 |
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 @@ | |||
| 1 | 2009-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 | |||
| 1 | 2009-04-14 Edward Wiebe <usenet@pusto.de> (tiny change) | 6 | 2009-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. |
| 75 | If the `kbd-help' text or overlay property at point produces a | 75 | If the `kbd-help' text or overlay property at point produces a |
| 76 | string, return it. Otherwise, use the `help-echo' property. If | 76 | string, return it. Otherwise, use the `help-echo' property. |
| 77 | this produces no string either, return nil." | 77 | If 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." | |||
| 344 | Print the help found there using `display-local-help'. Adjacent | 344 | Print the help found there using `display-local-help'. Adjacent |
| 345 | areas with different non-nil help-echo properties are considered | 345 | areas with different non-nil help-echo properties are considered |
| 346 | different regions. With numeric argument ARG, behaves like | 346 | different 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 | ||