branch: elpa/julia-mode
commit 0d4a8f6ad60ca6384e284e2b956b0e120443f8ff
Author: Jeff Bezanson <jeff.bezan...@gmail.com>
Commit: Yichao Yu <yyc1...@gmail.com>
fix #852
apparently "block" isn't in some emacsen
---
julia-mode.el | 24 +++++++++++++-----------
1 file changed, 13 insertions(+), 11 deletions(-)
diff --git a/julia-mode.el b/julia-mode.el
index 9edbd7d..1d07d06 100644
--- a/julia-mode.el
+++ b/julia-mode.el
@@ -95,19 +95,21 @@
(or (equal item (car lst))
(member item (cdr lst)))))
+(defun find-comment-open (p0)
+ (if (< (point) p0)
+ nil
+ (if (and (equal (char-after (point)) ?#)
+ (evenp (strcount
+ (buffer-substring p0 (point)) ?\")))
+ t
+ (progn (backward-char 1)
+ (find-comment-open p0)))))
+
(defun in-comment ()
(save-excursion
- (block incomment
- (end-of-line)
- (backward-char 1)
- (let ((p0 (line-beginning-position)))
- (while (>= (point) p0)
- (if (and (equal (char-after (point)) ?#)
- (evenp (strcount
- (buffer-substring p0 (point)) ?\")))
- (return-from incomment t))
- (backward-char 1))
- nil))))
+ (end-of-line)
+ (backward-char 1)
+ (find-comment-open (line-beginning-position))))
(defun strcount (str chr)
(let ((i 0)
