5757
5858; ;; Code:
5959
60+
6061(defvar calculate-lisp-indent-last-sexp )
6162(defvar delete-pair-blink-delay )
6263(defvar font-lock-beg )
@@ -716,7 +717,7 @@ If JUSTIFY is non-nil, justify as well as fill the paragraph."
716717 (fill-prefix (clojure-adaptive-fill-function)))
717718 (do-auto-fill )))))
718719
719-
720+
720721; ;; #_ comments font-locking
721722; ; Code heavily borrowed from Slime.
722723; ; https://github.com/slime/slime/blob/master/contrib/slime-fontifying-fu.el#L186
@@ -1888,7 +1889,7 @@ work). To set it from Lisp code, use
18881889 (go-loop 1 )
18891890 (thread 0 ))
18901891
1891-
1892+
18921893
18931894; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
18941895; ;
@@ -1943,7 +1944,7 @@ nil."
19431944 (delete-region begin (point ))
19441945 result)))
19451946
1946-
1947+
19471948
19481949(defcustom clojure-cache-project-dir t
19491950 " Whether to cache the results of `clojure-project-dir' ."
@@ -1987,7 +1988,7 @@ Return nil if not inside a project."
19871988 " Denormalize PATH by making it relative to the project root."
19881989 (file-relative-name path (clojure-project-dir)))
19891990
1990-
1991+
19911992; ;; ns manipulation
19921993(defun clojure-expected-ns (&optional path )
19931994 " Return the namespace matching PATH.
@@ -2222,7 +2223,7 @@ Returns a list pair, e.g. (\"defn\" \"abc\") or (\"deftest\" \"some-test\")."
22222223 (list (match-string-no-properties 1 )
22232224 (match-string-no-properties 2 )))))
22242225
2225-
2226+
22262227; ;; Sexp navigation
22272228
22282229(defun clojure--looking-at-non-logical-sexp ()
@@ -3183,7 +3184,7 @@ Assumes cursor is at beginning of function."
31833184 (clojure--add-arity-reify-internal)))
31843185 (indent-region beg end-marker))))
31853186
3186-
3187+
31873188; ;; Toggle Ignore forms
31883189
31893190(defun clojure--toggle-ignore-next-sexp (&optional n )
0 commit comments