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`."
523523 (setq-local prettify-symbols-alist clojure--prettify-symbols-alist)
524524 (setq-local open-paren-in-column-0-is-defun-start nil ))
525525
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+
526535;;;### autoload
527536(define-derived-mode clojure-mode prog-mode " Clojure"
528537 " Major mode for editing Clojure code.
@@ -574,15 +583,6 @@ This could cause problems.
574583
575584(add-hook 'clojure-mode-hook #'clojure--check-wrong-major-mode )
576585
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-
586586(defsubst clojure-docstring-fill-prefix ()
587587 " The prefix string used by `clojure-fill-paragraph' .
588588It is simply `clojure-docstring-fill-prefix-width' number of spaces."
You can’t perform that action at this time.
0 commit comments