Skip to content

Commit 22b6709

Browse files
committed
[clojure-emacs/cider#1479] Add an optional keymap param to clojure-paredit-setup
1 parent 802c1db commit 22b6709

File tree

1 file changed

+8
-4
lines changed

1 file changed

+8
-4
lines changed

clojure-mode.el

Lines changed: 8 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -229,11 +229,15 @@ ENDP and DELIMITER."
229229
(declare-function paredit-open-curly "ext:paredit")
230230
(declare-function paredit-close-curly "ext:paredit")
231231

232-
(defun clojure-paredit-setup ()
233-
"Make \"paredit-mode\" play nice with `clojure-mode'."
232+
(defun clojure-paredit-setup (&optional keymap)
233+
"Make \"paredit-mode\" play nice with `clojure-mode'.
234+
235+
If an optional KEYMAP is passed the changes are applied to it,
236+
instead of to `clojure-mode-map'."
234237
(when (>= paredit-version 21)
235-
(define-key clojure-mode-map "{" #'paredit-open-curly)
236-
(define-key clojure-mode-map "}" #'paredit-close-curly)
238+
(let ((keymap (or keymap clojure-mode-map)))
239+
(define-key keymap "{" #'paredit-open-curly)
240+
(define-key keymap "}" #'paredit-close-curly))
237241
(add-to-list 'paredit-space-for-delimiter-predicates
238242
#'clojure-space-for-delimiter-p)
239243
(add-to-list 'paredit-space-for-delimiter-predicates

0 commit comments

Comments
 (0)