Skip to content

Commit ae76510

Browse files
committed
Use dolist for docstring position property assignments
Replace nine identical put calls with a single dolist loop.
1 parent 5a0693f commit ae76510

1 file changed

Lines changed: 3 additions & 9 deletions

File tree

clojure-mode.el

Lines changed: 3 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -1408,15 +1408,9 @@ point) to check."
14081408
found))
14091409

14101410
;; Docstring positions
1411-
(put 'ns 'clojure-doc-string-elt 2)
1412-
(put 'def 'clojure-doc-string-elt 2)
1413-
(put 'defn 'clojure-doc-string-elt 2)
1414-
(put 'defn- 'clojure-doc-string-elt 2)
1415-
(put 'defmulti 'clojure-doc-string-elt 2)
1416-
(put 'defmacro 'clojure-doc-string-elt 2)
1417-
(put 'definline 'clojure-doc-string-elt 2)
1418-
(put 'defprotocol 'clojure-doc-string-elt 2)
1419-
(put 'deftask 'clojure-doc-string-elt 2) ;; common Boot macro
1411+
(dolist (sym '(ns def defn defn- defmulti defmacro definline defprotocol
1412+
deftask)) ;; deftask is a common Boot macro
1413+
(put sym 'clojure-doc-string-elt 2))
14201414

14211415
;;; Vertical alignment
14221416
(defcustom clojure-align-forms-automatically nil

0 commit comments

Comments
 (0)