From: J.D. Smith <jdsmith@as.arizona.edu>
Date: Mon, 27 Nov 2006 18:08:51 +0000 (+0000)
Subject: (hs-already-hidden-p): Move to end of line so hidden blocks will be
X-Git-Tag: emacs-pretest-22.0.92~438
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8aab130e99b4fcb5ff9608bbdd867e22f305450;p=emacs.git

(hs-already-hidden-p): Move to end of line so hidden blocks will be
correctly identified.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0e3266cdeec..3067bf36cf9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-11-27  J.D. Smith  <jdsmith@as.arizona.edu>
+
+	* progmodes/hideshow.el (hs-already-hidden-p): Move to end of
+	line so hidden blocks will be correctly identified.
+
 2006-11-27  Juanma Barranquero  <lekktu@gmail.com>
 
 	* ledit.el (ledit-save-defun, ledit-mode):
diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el
index e7ed67ce61c..e50a9a4dda6 100644
--- a/lisp/progmodes/hideshow.el
+++ b/lisp/progmodes/hideshow.el
@@ -706,6 +706,7 @@ and `case-fold-search' are both t."
       (if (and c-reg (nth 0 c-reg))
           ;; point is inside a comment, and that comment is hidable
           (goto-char (nth 0 c-reg))
+	(end-of-line)
         (when (and (not c-reg)
                    (hs-find-block-beginning)
                    (looking-at hs-block-start-regexp))