File tree Expand file tree Collapse file tree 1 file changed +7
-5
lines changed Expand file tree Collapse file tree 1 file changed +7
-5
lines changed Original file line number Diff line number Diff line change @@ -463,14 +463,16 @@ existence using `fboundp'."
463
463
(defun racket-indent-or-complete ()
464
464
" Try `indent-for-tab-command' then `completion-at-point' .
465
465
466
- Call `indent-for-tab-command' . See if it did anything (changed
467
- the indentation, or moved point to `beginning-of-line-text' ). If
468
- not, call `completion-at-point' ."
466
+ Call `indent-for-tab-command' . If did not change the indentation
467
+ or move point to `beginning-of-line-text' , and if point is
468
+ in/after at least 3 word/symbol characters, then call
469
+ `completion-at-point' ."
469
470
(interactive )
470
471
(let ((pt (point )))
471
472
(indent-for-tab-command )
472
- (when (and (equal (point ) pt)
473
- (looking-back " \\ sw\\ {3\\ }" 3 ))
473
+ (when (and (equal pt (point ))
474
+ (thing-at-point-looking-at (rx (>= 3 (or (syntax word)
475
+ (syntax symbol))))))
474
476
(completion-at-point ))))
475
477
476
478
(defun racket-backward-up-list ()
You can’t perform that action at this time.
0 commit comments