diff options
| -rw-r--r-- | lisp/progmodes/hideshow.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el index 4842d06d5fa..0b932e06313 100644 --- a/lisp/progmodes/hideshow.el +++ b/lisp/progmodes/hideshow.el | |||
| @@ -77,7 +77,7 @@ | |||
| 77 | 77 | ||
| 78 | (defvar hs-unbalance-handler-method 'top-level | 78 | (defvar hs-unbalance-handler-method 'top-level |
| 79 | "*Symbol representing how \"unbalanced parentheses\" should be handled. | 79 | "*Symbol representing how \"unbalanced parentheses\" should be handled. |
| 80 | This error is usually signalled by hs-show-block. One of four values: | 80 | This error is usually signaled by hs-show-block. One of four values: |
| 81 | `top-level', `next-line', `signal' or `ignore'. Default is `top-level'. | 81 | `top-level', `next-line', `signal' or `ignore'. Default is `top-level'. |
| 82 | 82 | ||
| 83 | - `top-level' -- Show top-level block containing the currently troublesome | 83 | - `top-level' -- Show top-level block containing the currently troublesome |
| @@ -345,7 +345,7 @@ hs-hide-hooks is called. See documentation for `run-hooks'." | |||
| 345 | (cond ((string= comment-end "") | 345 | (cond ((string= comment-end "") |
| 346 | (message "can't hide a single-line comment")) | 346 | (message "can't hide a single-line comment")) |
| 347 | ((< (count-lines (car c-reg) (nth 1 c-reg)) 2) | 347 | ((< (count-lines (car c-reg) (nth 1 c-reg)) 2) |
| 348 | (message "not enougn comment lines to hide")) | 348 | (message "not enough comment lines to hide")) |
| 349 | (t | 349 | (t |
| 350 | (goto-char (nth 1 c-reg)) | 350 | (goto-char (nth 1 c-reg)) |
| 351 | (forward-line -1) | 351 | (forward-line -1) |
| @@ -363,7 +363,7 @@ hs-hide-hooks is called. See documentation for `run-hooks'." | |||
| 363 | (defun hs-show-block (&optional end) | 363 | (defun hs-show-block (&optional end) |
| 364 | "Selects a block and shows it. With prefix arg, reposition at end. | 364 | "Selects a block and shows it. With prefix arg, reposition at end. |
| 365 | Upon completion, point is repositioned hs-show-hooks are called. See | 365 | Upon completion, point is repositioned hs-show-hooks are called. See |
| 366 | documetation for `hs-hide-block' and `run-hooks'." | 366 | documentation for `hs-hide-block' and `run-hooks'." |
| 367 | (interactive "P") | 367 | (interactive "P") |
| 368 | (hs-life-goes-on | 368 | (hs-life-goes-on |
| 369 | (let ((c-reg (hs-inside-comment-p))) | 369 | (let ((c-reg (hs-inside-comment-p))) |