4
4
5
5
; ; Authors: Bozhidar Batsov <bozhidar@batsov.dev>
6
6
; ; Olin Shivers <shivers@cs.cmu.edu>
7
+ ; ; Maintainer: Bozhidar Batsov <bozhidar@batsov.dev>
7
8
; ; URL: http://github.com/clojure-emacs/inf-clojure
8
9
; ; Keywords: processes, comint, clojure
9
10
; ; Version: 3.2.0
@@ -212,8 +213,8 @@ If no-error is truthy don't error if feature is not present."
212
213
213
214
(defun inf-clojure--update-feature (repl-type feature form )
214
215
" Return a copy of the datastructure containing the repl features.
215
- Given a REPL-TYPE (' clojure, ' lumo, ...) and a FEATURE (' doc,
216
- ' apropos, ...) and a FORM this will return a new datastructure
216
+ Given a REPL-TYPE (` clojure' , ` lumo' , ...) and a FEATURE (` doc' ,
217
+ ` apropos' , ...) and a FORM this will return a new datastructure
217
218
that can be set as `inf-clojure-repl-features' ."
218
219
(let ((original (alist-get repl-type inf-clojure-repl-features)))
219
220
(if original
@@ -225,8 +226,8 @@ that can be set as `inf-clojure-repl-features'."
225
226
226
227
(defun inf-clojure-update-feature (repl-type feature form )
227
228
" Mutate the repl features to the new FORM.
228
- Given a REPL-TYPE (' clojure, ' lumo, ...) and a FEATURE (' doc,
229
- ' apropos, ...) and a FORM this will set
229
+ Given a REPL-TYPE (` clojure' , ` lumo' , ...) and a FEATURE (` doc' ,
230
+ ` apropos' , ...) and a FORM this will set
230
231
`inf-clojure-repl-features' with these new values."
231
232
(setq inf-clojure-repl-features (inf-clojure--update-feature repl-type feature form)))
232
233
@@ -352,7 +353,7 @@ Either \"no process\" or \"buffer-name(repl-type)\""
352
353
map))
353
354
354
355
(defvar inf-clojure-insert-commands-map
355
- (let ((map (define-prefix-command 'inf-clojure-insert-commands-map )))
356
+ (let ((map (make-sparse-keymap )))
356
357
(define-key map (kbd " d" ) #'inf-clojure-insert-defun )
357
358
(define-key map (kbd " C-d" ) #'inf-clojure-insert-defun )
358
359
(define-key map (kbd " e" ) #'inf-clojure-insert-last-sexp )
@@ -369,7 +370,7 @@ Either \"no process\" or \"buffer-name(repl-type)\""
369
370
(define-key map (kbd " C-c C-r" ) #'inf-clojure-eval-region )
370
371
(define-key map (kbd " C-c M-r" ) #'inf-clojure-reload )
371
372
(define-key map (kbd " C-c C-n" ) #'inf-clojure-eval-form-and-next )
372
- (define-key map (kbd " C-c C-j" ) ' inf-clojure-insert-commands-map )
373
+ (define-key map (kbd " C-c C-j" ) inf-clojure-insert-commands-map)
373
374
(define-key map (kbd " C-c C-z" ) #'inf-clojure-switch-to-repl )
374
375
(define-key map (kbd " C-c C-i" ) #'inf-clojure-show-ns-vars )
375
376
(define-key map (kbd " C-c C-S-a" ) #'inf-clojure-apropos )
@@ -430,7 +431,7 @@ displaying function signatures in the modeline, but can also
430
431
cause multiple prompts to appear in the REPL and mess with *1,
431
432
*2, etc."
432
433
:type 'boolean
433
- :safe 'booleanp
434
+ :safe # 'booleanp
434
435
:package-version '(inf-clojure . " 3.2.0" ))
435
436
436
437
;;;### autoload
@@ -926,10 +927,10 @@ Indent FORM. FORM is expected to have been trimmed."
926
927
(buffer-substring-no-properties (save-excursion (backward-sexp ) (point ))
927
928
(point ))))
928
929
929
- ; ;; Now that inf-clojure-eval-/defun/region takes an optional prefix arg,
930
- ; ;; these commands are redundant. But they are kept around for the user
931
- ; ;; to bind if he wishes, for backwards functionality, and because it's
932
- ; ;; easier to type C-c e than C-u C-c C-e.
930
+ ; ; Now that inf-clojure-eval-/defun/region takes an optional prefix arg,
931
+ ; ; these commands are redundant. But they are kept around for the user
932
+ ; ; to bind if he wishes, for backwards functionality, and because it's
933
+ ; ; easier to type C-c e than C-u C-c C-e.
933
934
934
935
(defun inf-clojure-eval-region-and-go (start end )
935
936
" Send the current region to the inferior Clojure, and switch to its buffer.
@@ -1017,7 +1018,7 @@ display."
1017
1018
(if (zerop (length ans)) default ans))))
1018
1019
1019
1020
1020
- ; ;; Adapted from function-called-at-point in help.el.
1021
+ ; ; Adapted from function-called-at-point in help.el.
1021
1022
(defun inf-clojure-fn-called-at-pt ()
1022
1023
" Return the name of the function called in the current call.
1023
1024
The value is nil if it can't find one."
0 commit comments