branch: elpa/racket-mode
commit 937ae8e207684d762619bcb6a30ee14a052636da
Author: Greg Hendershott <g...@greghendershott.com>
Commit: Greg Hendershott <g...@greghendershott.com>
Improve racket-add-require-for-identifier
Fine-tune formatting and preservation of point.
---
racket-edit.el | 22 +++++++++++-----------
1 file changed, 11 insertions(+), 11 deletions(-)
diff --git a/racket-edit.el b/racket-edit.el
index b159de480d..c3228cc731 100644
--- a/racket-edit.el
+++ b/racket-edit.el
@@ -246,19 +246,19 @@ identifiers that are exported but not documented."
(racket--assert-sexp-edit-mode)
(when-let (result (racket--describe-search-completing-read))
(pcase-let* ((`(,term ,_path ,_anchor ,lib) result)
- (req (format "(require %s)" lib)))
+ (req (format "(require %s)" lib))
+ (pt (copy-marker (point) t)))
(unless (equal (racket--thing-at-point 'symbol) term)
(insert term))
- (save-excursion
- (goto-char (racket--inside-innermost-module))
- (insert req)
- (newline-and-indent)
- (let ((pt (copy-marker (point))))
- (racket--tidy-requires
- (lambda (result)
- (goto-char pt)
- (when result
- (message "Added %S and did racket-tidy-requires" req)))))))))
+ (goto-char (racket--inside-innermost-module))
+ (newline-and-indent)
+ (insert req)
+ (newline-and-indent)
+ (racket--tidy-requires
+ (lambda (result)
+ (goto-char pt)
+ (when result
+ (message "Added %S and did racket-tidy-requires" req)))))))
;;; align
