File tree Expand file tree Collapse file tree 1 file changed +13
-13
lines changed Expand file tree Collapse file tree 1 file changed +13
-13
lines changed Original file line number Diff line number Diff line change @@ -186,21 +186,21 @@ Inherits from `emacs-lisp-mode-syntax-table'.")
186
186
" Prevent paredit from inserting useless spaces.
187
187
See `paredit-space-for-delimiter-predicates' for the meaning of
188
188
ENDP and DELIM."
189
- (if (or (derived-mode-p 'clojure-mode )
190
- (derived-mode-p 'cider-repl-mode ))
189
+ (or endp
190
+ (not (memq delim '(?\" ?{ ?\( )))
191
+ (not (or (derived-mode-p 'clojure-mode )
192
+ (derived-mode-p 'cider-repl-mode )))
191
193
(save-excursion
192
194
(backward-char )
193
- (if (and (or (char-equal delim ?\( )
194
- (char-equal delim ?\" )
195
- (char-equal delim ?{ ))
196
- (not endp))
197
- (if (char-equal (char-after ) ?# )
198
- (and (not (bobp ))
199
- (or (char-equal ?w (char-syntax (char-before )))
200
- (char-equal ?_ (char-syntax (char-before )))))
201
- t )
202
- t ))
203
- t ))
195
+ (cond ((eq (char-after ) ?# )
196
+ (and (not (bobp ))
197
+ (or (char-equal ?w (char-syntax (char-before )))
198
+ (char-equal ?_ (char-syntax (char-before ))))))
199
+ ((and (eq delim ?\( )
200
+ (eq (char-after ) ?? )
201
+ (eq (char-before ) ?# ))
202
+ nil )
203
+ (t )))))
204
204
205
205
(defun clojure-no-space-after-tag (endp delimiter )
206
206
" Prevent inserting a space after a reader-literal tag?
You can’t perform that action at this time.
0 commit comments