Re: mic-paren.el 3.10 available

[Thien-Thi Nguyen]

Here's a patch that "works for me".  Any problems w/ this approach?

--- mic-paren.el~
+++ mic-paren.el
@@ -1011,6 +1011,31 @@ (defun mic-paren-highlight ()
                                  right-prio))
                        (not fcq)))))

+           (comment-style
+            ()
+            (or (get major-mode 'mic-paren-comment-style)
+                (put major-mode 'mic-paren-comment-style
+                     ;; Tested (lightly) w/ SML, Modula-2, Pascal.
+                     (flet ((sub (str pos) (condition-case ()
+                                               (aref str (if (> 0 pos)
+                                                             (+ (length str) 
pos)
+                                                           pos))
+                                             (error 0))))
+                       (if (string= "()" (string (sub comment-start 0)
+                                                 (sub comment-end -1)))
+                           'sexp
+                         'normal)))))
+
+           (sexp-ish-comment-edge
+            (p mult)
+            (and (eq 'sexp (comment-style))
+                 (if (> 0 mult)
+                     (prog1 (nth 8 (syntax-ppss (1- p)))
+                       (forward-char 1))
+                   ;; hmmm
+                   (save-match-data
+                     (looking-at (regexp-quote comment-start))))))
+
            (find-other-paren
             (forwardp)
             (let ((mult (if forwardp 1 -1)))
@@ -1027,7 +1052,11 @@ (defun mic-paren-highlight ()
                                             (min lim (point-max))
                                           (point-max)))))
                   (condition-case ()
-                      (setq opos (scan-sexps (point) mult))
+                      (setq opos (let ((p (point)))
+                                   (if (not (sexp-ish-comment-edge p mult))
+                                       (scan-sexps p mult)
+                                     (forward-comment mult)
+                                     (point))))
                     (error nil))))
               ;; We must call matching-paren because `scan-sexps' doesn't
               ;; care about the kind of paren (e.g., matches '( and '}).


-- 
Thien-Thi Nguyen