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'.")
186186 " Prevent paredit from inserting useless spaces.
187187See `paredit-space-for-delimiter-predicates' for the meaning of
188188ENDP 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 )))
191193 (save-excursion
192194 (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 )))))
204204
205205(defun clojure-no-space-after-tag (endp delimiter )
206206 " Prevent inserting a space after a reader-literal tag?
You can’t perform that action at this time.
0 commit comments