@@ -1148,11 +1148,11 @@ KILL-BUFFER-P is passed along."
1148
1148
(interactive )
1149
1149
(funcall cider-popup-buffer-quit-function kill-buffer-p))
1150
1150
1151
- (defun cider-popup-buffer (name &optional select major- mode )
1151
+ (defun cider-popup-buffer (name &optional select mode )
1152
1152
" Create new popup buffer called NAME.
1153
1153
If SELECT is non-nil, select the newly created window.
1154
- If MAJOR- MODE is non-nil enabled it for the popup buffer."
1155
- (with-current-buffer (cider-make-popup-buffer name major- mode)
1154
+ If major MODE is non-nil, enable it for the popup buffer."
1155
+ (with-current-buffer (cider-make-popup-buffer name mode)
1156
1156
(cider-popup-buffer-display (current-buffer ) select)))
1157
1157
1158
1158
(defun cider-popup-buffer-display (popup-buffer &optional select )
@@ -1171,14 +1171,14 @@ If prefix argument KILL-BUFFER-P is non-nil, kill the buffer instead of burying
1171
1171
(interactive )
1172
1172
(quit-window kill-buffer-p (selected-window )))
1173
1173
1174
- (defun cider-make-popup-buffer (name &optional major- mode )
1175
- " Create a temporary buffer called NAME using MAJOR-mode (if specified)."
1174
+ (defun cider-make-popup-buffer (name &optional mode )
1175
+ " Create a temporary buffer called NAME using major MODE (if specified)."
1176
1176
(with-current-buffer (get-buffer-create name)
1177
1177
(kill-all-local-variables )
1178
1178
(setq buffer-read-only nil )
1179
1179
(erase-buffer )
1180
- (when major- mode
1181
- (funcall major- mode))
1180
+ (when mode
1181
+ (funcall mode))
1182
1182
(setq-local cider-popup-output-marker (point-marker ))
1183
1183
(cider-popup-buffer-mode 1 )
1184
1184
(setq buffer-read-only t )
0 commit comments