Fix indentation for many autodef setters

This commit is contained in:
Henrik Lissner 2018-06-22 01:30:27 +02:00
parent 22c145105d
commit 5531d7115a
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
9 changed files with 9 additions and 3 deletions

View file

@ -17,6 +17,7 @@ Examples:
(set-company-backend! 'js2-mode
'(:separate company-irony-c-headers company-irony))
(set-company-backend! 'sh-mode nil)"
(declare (indent defun))
(dolist (mode (doom-enlist modes))
(let ((hook (intern (format "%s-hook" mode)))
(fn (intern (format "+company|init-%s" mode))))

View file

@ -8,7 +8,7 @@
(cl-defun set-rotate-patterns! (modes &key symbols words patterns)
"Declare :symbols, :words or :patterns (all lists of strings) that
`rotate-text' will cycle through."
(declare (indent 1))
(declare (indent defun))
(dolist (mode (doom-enlist modes))
(let ((fn-name (intern (format "+rotate-text|init-%s" mode))))
(fset fn-name

View file

@ -4,7 +4,7 @@
(defun set-electric! (modes &rest plist)
"Declare :words (list of strings) or :chars (lists of chars) in MODES that
trigger electric indentation."
(declare (indent 1))
(declare (indent defun))
(dolist (mode (doom-enlist modes))
(let ((hook (intern (format "%s-hook" mode)))
(fn (intern (format "+electric|init-%s" mode))))

View file

@ -42,6 +42,7 @@ function that creates and returns the REPL buffer."
(quickrun-add-command MODE COMMAND :mode MODE).
4. If MODE is not a string and COMMANd is a symbol, add it to
`+eval-runners', which is used by `+eval/region'."
(declare (indent defun))
(cond ((symbolp command)
(push (cons mode command) +eval-runners))
((stringp command)

View file

@ -4,6 +4,7 @@
;;;###autodef
(defun set-evil-initial-state! (modes state)
"Set the initialize STATE of MODES using `evil-set-initial-state'."
(declare (indent defun))
(after! evil
(if (listp modes)
(dolist (mode (doom-enlist modes))

View file

@ -27,6 +27,7 @@ these properties:
:ignore BOOL
If non-nil, don't expand any template for this file and don't test any other
file template rule against this buffer."
(declare (indent defun))
(after! (:when (boundp '+file-templates-alist))
(+file-templates--set pred plist)))

View file

@ -13,6 +13,7 @@
symbol or a list of them).
Used by `+lookup/in-docsets' and `+lookup/documentation'."
(declare (indent defun))
(dolist (mode (doom-enlist modes))
(let ((fn (intern (format "+lookup|init-docsets--%s" mode)))
(hook (intern (format "%s-hook" mode))))

View file

@ -29,6 +29,7 @@ properties:
:xref-backend FN
Defines an xref backend for a major-mode. If you define :definition and
:references along with :xref-backend, those will have higher precedence."
(declare (indent defun))
(dolist (mode (doom-enlist modes))
(let ((hook (intern (format "%s-hook" mode)))
(fn (intern (format "+lookup|init-%s" mode))))

View file

@ -319,7 +319,7 @@ assicated with :lambda in `+pretty-code-symbols'.
Pretty symbols can be unset for emacs-lisp-mode with:
(set-pretty-symbols! 'emacs-lisp-mode nil)"
(declare (indent 1))
(declare (indent defun))
(dolist (mode (doom-enlist modes))
(let ((hook (intern (format "%s-hook" mode)))
(fn (intern (format "+pretty-code|init-%s" mode))))