(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 0e3266cdeecb262d245dd069f6d4808c162301de..3067bf36cf908a90d9329754bfa85aa36c5065d2 100644 (file)
--- 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 e7ed67ce61c7f652091479c2460b896e714bbe21..e50a9a4dda6da2fafc85ee67a82af772bb8ac360 100644 (file)
--- 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))