Commit 43956923 authored by Sébastien Gross's avatar Sébastien Gross Committed by Lars Magne Ingebrigtsen
Browse files

(hs-hide-all): Don't infloop on comments that start in the middle of the line.

Fixes: debbugs:10496
parent 6a8c9eaf
2012-04-10 Sébastien Gross <seb@chezwam.org> (tiny change)
* progmodes/hideshow.el (hs-hide-all): Don't infloop on comments
that start in the middle of the line (bug#10496).
2012-04-10 Dan Nicolaescu <dann@gnu.org>
* battery.el (battery-linux-proc-acpi): Only one battery is
......
......@@ -802,12 +802,15 @@ If `hs-hide-comments-when-hiding-all' is non-nil, also hide the comments."
(forward-comment (point-max)))
(re-search-forward re (point-max) t))
(if (match-beginning 1)
;; we have found a block beginning
;; We have found a block beginning.
(progn
(goto-char (match-beginning 1))
(if hs-hide-all-non-comment-function
(funcall hs-hide-all-non-comment-function)
(hs-hide-block-at-point t)))
(unless (if hs-hide-all-non-comment-function
(funcall hs-hide-all-non-comment-function)
(hs-hide-block-at-point t))
;; Go to end of matched data to prevent from getting stuck
;; with an endless loop.
(goto-char (match-end 0))))
;; found a comment, probably
(let ((c-reg (hs-inside-comment-p)))
(when (and c-reg (car c-reg))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment