File tree Expand file tree Collapse file tree 1 file changed +4
-2
lines changed Expand file tree Collapse file tree 1 file changed +4
-2
lines changed Original file line number Diff line number Diff line change @@ -1239,15 +1239,17 @@ See variable `inf-clojure-buffer'."
1239
1239
(inf-clojure--read-or-nil)
1240
1240
(inf-clojure--list-or-nil))))
1241
1241
1242
- (defconst inf-clojure-clojure-expr-break-chars " \t\n\"\' `><,;|&{(" )
1242
+ (defconst inf-clojure-clojure-expr-break-chars " \t\n\"\' `><,;|&{()[] " )
1243
1243
1244
1244
(defun inf-clojure-completion-bounds-of-expr-at-point ()
1245
1245
" Return bounds of expression at point to complete."
1246
1246
(when (not (memq (char-syntax (following-char )) '(?w ?_ )))
1247
1247
(save-excursion
1248
1248
(let ((end (point )))
1249
1249
(skip-chars-backward (concat " ^" inf-clojure-clojure-expr-break-chars))
1250
- (cons (point ) end)))))
1250
+ (let ((first-char (substring-no-properties (thing-at-point 'symbol ) 0 1 )))
1251
+ (when (string-match-p " [^0-9]" first-char)
1252
+ (cons (point ) end)))))))
1251
1253
1252
1254
(defun inf-clojure-completion-expr-at-point ()
1253
1255
" Return expression at point to complete."
You can’t perform that action at this time.
0 commit comments