Skip to content

Commit 8baa7ad

Browse files
arichiardibbatsov
authored andcommitted
Correct inf-clojure-apropos key binding
Broken because emacs interprets C-A as C-a. This patch also adds the same key binding to inf-clojure-mode (in the REPL).
1 parent 7b2fcd7 commit 8baa7ad

File tree

1 file changed

+3
-1
lines changed

1 file changed

+3
-1
lines changed

inf-clojure.el

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -101,6 +101,7 @@ mode. Default is whitespace followed by 0 or 1 single-letter colon-keyword
101101
(define-key map "\C-c\C-a" #'inf-clojure-show-arglists)
102102
(define-key map "\C-c\C-v" #'inf-clojure-show-var-documentation)
103103
(define-key map "\C-c\C-s" #'inf-clojure-show-var-source)
104+
(define-key map (kbd "C-c C-S-a") #'inf-clojure-apropos)
104105
(define-key map "\C-c\M-o" #'inf-clojure-clear-repl-buffer)
105106
(define-key map "\C-c\C-q" #'inf-clojure-quit)
106107
(easy-menu-define inf-clojure-mode-menu map
@@ -113,6 +114,7 @@ mode. Default is whitespace followed by 0 or 1 single-letter colon-keyword
113114
["Show arglists" inf-clojure-show-arglists t]
114115
["Show documentation for var" inf-clojure-show-var-documentation t]
115116
["Show source for var" inf-clojure-show-var-source t]
117+
["Apropos" inf-clojure-apropos t]
116118
"--"
117119
["Clear REPL" inf-clojure-clear-repl-buffer]
118120
["Restart" inf-clojure-restart]
@@ -132,7 +134,7 @@ mode. Default is whitespace followed by 0 or 1 single-letter colon-keyword
132134
(define-key map "\C-c\C-n" #'inf-clojure-eval-form-and-next)
133135
(define-key map "\C-c\C-z" #'inf-clojure-switch-to-repl)
134136
(define-key map "\C-c\C-i" #'inf-clojure-show-ns-vars)
135-
(define-key map "\C-c\C-A" #'inf-clojure-apropos)
137+
(define-key map (kbd "C-c C-S-a") #'inf-clojure-apropos)
136138
(define-key map "\C-c\C-m" #'inf-clojure-macroexpand)
137139
(define-key map "\C-c\C-l" #'inf-clojure-load-file)
138140
(define-key map "\C-c\C-a" #'inf-clojure-show-arglists)

0 commit comments

Comments
 (0)