Mercurial > emacs
comparison lisp/progmodes/hideshow.el @ 74266:d9bf7b54a410
(hs-already-hidden-p): Move to end of line so hidden blocks will be
correctly identified.
author | J.D. Smith <jdsmith@as.arizona.edu> |
---|---|
date | Mon, 27 Nov 2006 18:07:55 +0000 |
parents | dc49655f57ae |
children | e3694f1cb928 f1d13e615070 |
comparison
equal
deleted
inserted
replaced
74265:c9bd6025f40e | 74266:d9bf7b54a410 |
---|---|
704 (save-excursion | 704 (save-excursion |
705 (let ((c-reg (hs-inside-comment-p))) | 705 (let ((c-reg (hs-inside-comment-p))) |
706 (if (and c-reg (nth 0 c-reg)) | 706 (if (and c-reg (nth 0 c-reg)) |
707 ;; point is inside a comment, and that comment is hidable | 707 ;; point is inside a comment, and that comment is hidable |
708 (goto-char (nth 0 c-reg)) | 708 (goto-char (nth 0 c-reg)) |
709 (end-of-line) | |
709 (when (and (not c-reg) | 710 (when (and (not c-reg) |
710 (hs-find-block-beginning) | 711 (hs-find-block-beginning) |
711 (looking-at hs-block-start-regexp)) | 712 (looking-at hs-block-start-regexp)) |
712 ;; point is inside a block | 713 ;; point is inside a block |
713 (goto-char (match-end 0))))) | 714 (goto-char (match-end 0))))) |