Function: clojure-font-lock-extend-region-def

clojure-font-lock-extend-region-def is a byte-compiled function defined in clojure-mode.el.

Signature

(clojure-font-lock-extend-region-def)

Documentation

Set region boundaries to include the first four elements of def* forms.

Source Code

;; Defined in ~/.emacs.d/elpa/clojure-mode-20260325.811/clojure-mode.el
(defun clojure-font-lock-extend-region-def ()
  "Set region boundaries to include the first four elements of def* forms."
  (let* ((changed nil)
         (def-beg-region (clojure-font-lock-def-at-point font-lock-beg))
         (def-end-region (clojure-font-lock-def-at-point font-lock-end)))
    (when def-beg-region
      (cl-destructuring-bind (def-beg . def-end) def-beg-region
        (when (and (< def-beg font-lock-beg)
                   (< font-lock-beg def-end))
          (setq font-lock-beg def-beg
                changed t))))
    (when def-end-region
      (cl-destructuring-bind (def-beg . def-end) def-end-region
        (when (and (< def-beg font-lock-end)
                   (< font-lock-end def-end))
          (setq font-lock-end def-end
                changed t))))
    changed))