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))))) |