* progmodes/hideshow.el (hs-inside-comment-p): Fix hiding of first line.

Fixes: debbugs:10855

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index db860979577e815858c6f29f4cc8250dfbcf1426..5a82dd4758d3a87d48a8d724b2b9e36e91fa3ee2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-03-21  John Yates  <john@yates-sheets.org>  (tiny change)
+
+       * progmodes/hideshow.el (hs-inside-comment-p): Fix hiding of first
+       line (Bug#10855).
+
 2012-03-21  Drew Adams  <drew.adams@oracle.com>
 
        * info.el (Info-menu): Handle string value of FORK arg (Bug#10858).

diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el
index 104a8f967276aac93c0cc574812a3f0a70771b2a..26db60ddbc2647dc85e1d182abf7a58c8e08fc2a 100644 (file)
--- a/lisp/progmodes/hideshow.el
+++ b/lisp/progmodes/hideshow.el
@@ -607,6 +607,7 @@ as cdr."
     ;; forward comment, and see if we are inside, then extend
     ;; forward and backward as long as we have comments
     (let ((q (point)))
+      (skip-chars-forward "[:blank:]")
       (when (or (looking-at hs-c-start-regexp)
                 (re-search-backward hs-c-start-regexp (point-min) t))
         ;; first get to the beginning of this comment...