Blame emacs-23.2-hideshow-comment.patch
|
Karel Klíč |
12b3cf |
--- lisp/progmodes/hideshow.el.orig 2010-05-12 18:28:06.543936429 +0200
|
|
Karel Klíč |
12b3cf |
+++ lisp/progmodes/hideshow.el 2010-05-12 18:27:40.212936751 +0200
|
|
Karel Klíč |
12b3cf |
@@ -691,9 +691,11 @@ Return point, or nil if original point w
|
|
Karel Klíč |
12b3cf |
;; look backward for the start of a block that contains the cursor
|
|
Karel Klíč |
12b3cf |
(while (and (re-search-backward hs-block-start-regexp nil t)
|
|
Karel Klíč |
12b3cf |
(not (setq done
|
|
Karel Klíč |
12b3cf |
- (< here (save-excursion
|
|
Karel Klíč |
12b3cf |
- (hs-forward-sexp (match-data t) 1)
|
|
Karel Klíč |
12b3cf |
- (point)))))))
|
|
Karel Klíč |
12b3cf |
+ (and (< here
|
|
Karel Klíč |
12b3cf |
+ (save-excursion
|
|
Karel Klíč |
12b3cf |
+ (hs-forward-sexp (match-data t) 1)
|
|
Karel Klíč |
12b3cf |
+ (point)))
|
|
Karel Klíč |
12b3cf |
+ (eq (hs-inside-comment-p) nil))))))
|
|
Karel Klíč |
12b3cf |
(if done
|
|
Karel Klíč |
12b3cf |
(point)
|
|
Karel Klíč |
12b3cf |
(goto-char here)
|