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 @@ -1220,15 +1220,17 @@ See variable `inf-clojure-buffer'."
1220
1220
(inf-clojure--read-or-nil)
1221
1221
(inf-clojure--list-or-nil))))
1222
1222
1223
- (defconst inf-clojure-clojure-expr-break-chars " \t\n\"\' `><,;|&{(" )
1223
+ (defconst inf-clojure-clojure-expr-break-chars " \t\n\"\' `><,;|&{()[] " )
1224
1224
1225
1225
(defun inf-clojure-completion-bounds-of-expr-at-point ()
1226
1226
" Return bounds of expression at point to complete."
1227
1227
(when (not (memq (char-syntax (following-char )) '(?w ?_ )))
1228
1228
(save-excursion
1229
1229
(let ((end (point )))
1230
1230
(skip-chars-backward (concat " ^" inf-clojure-clojure-expr-break-chars))
1231
- (cons (point ) end)))))
1231
+ (let ((first-char (substring-no-properties (thing-at-point 'symbol ) 0 1 )))
1232
+ (when (string-match-p " [^0-9]" first-char)
1233
+ (cons (point ) end)))))))
1232
1234
1233
1235
(defun inf-clojure-completion-expr-at-point ()
1234
1236
" Return expression at point to complete."
You can’t perform that action at this time.
0 commit comments