From: John Yates <john@yates-sheets.org>
Date: Wed, 21 Mar 2012 17:02:09 +0000 (+0800)
Subject: * progmodes/hideshow.el (hs-inside-comment-p): Fix hiding of first line.
X-Git-Tag: emacs-pretest-24.0.05~81^2~7
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=91d82a702998f32b124d6efc89f3603af05313fe;p=emacs.git

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

Fixes: debbugs:10855
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index db860979577..5a82dd4758d 100644
--- 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 104a8f96727..26db60ddbc2 100644
--- 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...