Fix the font-lock of interop calls like getX

Author: Bozhidar Batsov

clojure-mode.el

@@ -504,7 +504,7 @@ Called by `imenu--generic-function'."
       ;; foo/ Foo/
       ("\\<\\([a-zA-Z][a-z0-9_-]*\\)/" 1 font-lock-type-face)
       ;; fooBar
-      ("\\(?:\\<\\|/\\)\\([a-z]+[A-Z]+[a-z][a-zA-Z0-9$]*\\>\\)" 1 'clojure-interop-method-face)
+      ("\\(?:\\<\\|/\\)\\([a-z]+[A-Z]+[a-zA-Z0-9$]*\\>\\)" 1 'clojure-interop-method-face)
       ;; Highlight grouping constructs in regular expressions
       (clojure-mode-font-lock-regexp-groups
        (1 'font-lock-regexp-grouping-construct prepend))))

test/clojure-mode-test.el

@@ -118,6 +118,13 @@ POS."
     (should (eq (clojure-test-face-at 1 5) 'font-lock-type-face))
     (should (eq (clojure-test-face-at 7 16) 'clojure-interop-method-face))))
 
+(ert-deftest clojure-mode-syntax-table/interop-method ()
+  :tags '(fontification syntax-table)
+  (should (eq (clojure-test-face-at 1 11 ".someMethod") 'clojure-interop-method-face))
+  (should (eq (clojure-test-face-at 1 10 "someMethod") 'clojure-interop-method-face))
+  (should (eq (clojure-test-face-at 1 11 "topHttpTest") 'clojure-interop-method-face))
+  (should (eq (clojure-test-face-at 1 4 "getX") 'clojure-interop-method-face)))
+
 (ert-deftest clojure-mode-syntax-table/constant ()
   :tags '(fontification syntax-table)
   (should (eq (clojure-test-face-at 1 5 "CONST") 'font-lock-constant-face))