Skip to content

Commit ab1b205

Browse files
committed
Move a function definition before its first usage
1 parent 5bb105d commit ab1b205

File tree

1 file changed

+9
-9
lines changed

1 file changed

+9
-9
lines changed

clojure-mode.el

Lines changed: 9 additions & 9 deletions
Original file line numberDiff line numberDiff 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'.
588588
It is simply `clojure-docstring-fill-prefix-width' number of spaces."

0 commit comments

Comments
 (0)