[nongnu] elpa/julia-mode 0d4a8f6 091/352: fix #852

[ELPA Syncer]

branch: elpa/julia-mode
commit 0d4a8f6ad60ca6384e284e2b956b0e120443f8ff
Author: Jeff Bezanson <jeff.bezanson@gmail.com>
Commit: Yichao Yu <yyc1992@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)