closes #2: don't bind autopair-* commands to parens if syntax table…

… appears broken
joaotavora · Jul 22, 2012 · bc9bb4b · bc9bb4b
1 parent 71a72d3
commit bc9bb4b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/autopair.el b/autopair.el
@@ -409,7 +409,8 @@ syntax table and the local value of `autopair-extra-pairs'."
                            (syntax-class syntax-entry)))
                (pair (and syntax-entry
                           (cdr syntax-entry))))
-          (cond ((eq class (car (string-to-syntax "(")))
+          (cond ((and (eq class (car (string-to-syntax "(")))
+                      pair)
                  ;; syntax classes "opening parens" and "close parens"
                  (define-key map (string char) 'autopair-insert-opening)
                  (define-key map (string pair) 'autopair-skip-close-maybe))