File tree Expand file tree Collapse file tree 1 file changed +9
-9
lines changed Expand file tree Collapse file tree 1 file changed +9
-9
lines changed Original file line number Diff line number Diff line change @@ -523,6 +523,15 @@ replacement for `cljr-expand-let`."
523
523
(setq-local prettify-symbols-alist clojure--prettify-symbols-alist)
524
524
(setq-local open-paren-in-column-0-is-defun-start nil ))
525
525
526
+ (defsubst clojure-in-docstring-p ()
527
+ " Check whether point is in a docstring."
528
+ (let ((ppss (syntax-ppss )))
529
+ ; ; are we in a string?
530
+ (when (nth 3 ppss)
531
+ ; ; check font lock at the start of the string
532
+ (eq (get-text-property (nth 8 ppss) 'face )
533
+ 'font-lock-doc-face ))))
534
+
526
535
;;;### autoload
527
536
(define-derived-mode clojure-mode prog-mode " Clojure"
528
537
" Major mode for editing Clojure code.
@@ -574,15 +583,6 @@ This could cause problems.
574
583
575
584
(add-hook 'clojure-mode-hook #'clojure--check-wrong-major-mode )
576
585
577
- (defsubst clojure-in-docstring-p ()
578
- " Check whether point is in a docstring."
579
- (let ((ppss (syntax-ppss )))
580
- ; ; are we in a string?
581
- (when (nth 3 ppss)
582
- ; ; check font lock at the start of the string
583
- (eq (get-text-property (nth 8 ppss) 'face )
584
- 'font-lock-doc-face ))))
585
-
586
586
(defsubst clojure-docstring-fill-prefix ()
587
587
" The prefix string used by `clojure-fill-paragraph' .
588
588
It is simply `clojure-docstring-fill-prefix-width' number of spaces."
You can’t perform that action at this time.
0 commit comments