Disable flycheck in racket-xp-mode
Plus minor refactors. Closes #3594 Co-authored-by: sorawee <sorawee@users.noreply.github.com>
This commit is contained in:
parent
0f39d7bda4
commit
e6979166ee
2 changed files with 36 additions and 26 deletions
|
@ -13,7 +13,7 @@
|
|||
|
||||
;;;###autoload
|
||||
(defun +racket-lookup-documentation (thing)
|
||||
"A `+lookup/documentation' handler for Racket."
|
||||
"A `+lookup/documentation' handler for `racket-mode' and `racket-xp-mode'."
|
||||
(let ((buf (if racket-xp-mode
|
||||
(racket-xp-describe thing)
|
||||
(racket-repl-describe thing))))
|
||||
|
@ -23,7 +23,8 @@
|
|||
|
||||
;;;###autoload
|
||||
(defun +racket-lookup-definition (_thing)
|
||||
"A `+lookup/definition' handler for Racket."
|
||||
(if racket-xp-mode
|
||||
(call-interactively #'racket-xp-visit-definition)
|
||||
(call-interactively #'racket-repl-visit-definition)))
|
||||
"A `+lookup/definition' handler for `racket-mode' and `racket-xp-mode'."
|
||||
(call-interactively
|
||||
(if racket-xp-mode
|
||||
#'racket-xp-visit-definition
|
||||
#'racket-repl-visit-definition)))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue