From 6ce5eef19032c71158828f41b2b64ab86b2f88ab Mon Sep 17 00:00:00 2001
From: Alexander Shukaev <projects@Alexander.Shukaev.name>
Date: Wed, 16 Jan 2019 00:10:53 +0100
Subject: Declare documentation strings

---
 evil-common.el | 1 +
 evil-core.el   | 2 ++
 evil-ex.el     | 1 +
 evil-macros.el | 4 ++++
 evil-states.el | 1 +
 evil-vars.el   | 1 +
 6 files changed, 10 insertions(+)

diff --git a/evil-common.el b/evil-common.el
index 263de7e..c43e196 100644
--- a/evil-common.el
+++ b/evil-common.el
@@ -300,6 +300,7 @@ sorting in between."
 
 \(fn COMMAND (ARGS...) DOC [[KEY VALUE]...] BODY...)"
   (declare (indent defun)
+           (doc-string 3)
            (debug (&define name
                            [&optional lambda-list]
                            [&optional stringp]
diff --git a/evil-core.el b/evil-core.el
index b25b866..4cac4a5 100644
--- a/evil-core.el
+++ b/evil-core.el
@@ -526,6 +526,7 @@ may be specified before the body code:
 
 \(fn KEYMAP DOC [[KEY VAL]...] BODY...)"
   (declare (indent defun)
+           (doc-string 2)
            (debug (&define name
                            [&optional stringp]
                            [&rest [keywordp sexp]]
@@ -1189,6 +1190,7 @@ the local keymap will be `evil-test-state-local-map', and so on.
 
 \(fn STATE DOC [[KEY VAL]...] BODY...)"
   (declare (indent defun)
+           (doc-string 2)
            (debug (&define name
                            [&optional stringp]
                            [&rest [keywordp sexp]]
diff --git a/evil-ex.el b/evil-ex.el
index edbdd79..95357ee 100644
--- a/evil-ex.el
+++ b/evil-ex.el
@@ -541,6 +541,7 @@ keywords and function:
   or 'update then ARG is the current value of this argument. If
   FLAG is 'stop then arg is nil."
   (declare (indent defun)
+           (doc-string 2)
            (debug (&define name
                            [&optional stringp]
                            [&rest [keywordp function-form]])))
diff --git a/evil-macros.el b/evil-macros.el
index 3af95d4..b553e9e 100644
--- a/evil-macros.el
+++ b/evil-macros.el
@@ -114,6 +114,7 @@ The return value is a list (BEG END TYPE)."
 
 \(fn MOTION (COUNT ARGS...) DOC [[KEY VALUE]...] BODY...)"
   (declare (indent defun)
+           (doc-string 3)
            (debug (&define name lambda-list
                            [&optional stringp]
                            [&rest keywordp sexp]
@@ -357,6 +358,7 @@ if COUNT is positive, and to the left of it if negative.
 
 \(fn OBJECT (COUNT) DOC [[KEY VALUE]...] BODY...)"
   (declare (indent defun)
+           (doc-string 3)
            (debug (&define name lambda-list
                            [&optional stringp]
                            [&rest keywordp sexp]
@@ -445,6 +447,7 @@ if COUNT is positive, and to the left of it if negative.
 
 \(fn OPERATOR (BEG END ARGS...) DOC [[KEY VALUE]...] BODY...)"
   (declare (indent defun)
+           (doc-string 3)
            (debug (&define name lambda-list
                            [&optional stringp]
                            [&rest keywordp sexp]
@@ -632,6 +635,7 @@ be transformations on buffer positions, like :expand and :contract.
 
 \(fn TYPE DOC [[KEY FUNC]...])"
   (declare (indent defun)
+           (doc-string 2)
            (debug (&define name
                            [&optional stringp]
                            [&rest [keywordp function-form]])))
diff --git a/evil-states.el b/evil-states.el
index 7d029b3..8db8a95 100644
--- a/evil-states.el
+++ b/evil-states.el
@@ -211,6 +211,7 @@ the selection is enabled.
 
 \(fn SELECTION DOC [[KEY VAL]...] BODY...)"
   (declare (indent defun)
+           (doc-string 2)
            (debug (&define name stringp
                            [&rest keywordp sexp]
                            def-body)))
diff --git a/evil-vars.el b/evil-vars.el
index d10a4a8..1a8e71f 100644
--- a/evil-vars.el
+++ b/evil-vars.el
@@ -1220,6 +1220,7 @@ like in Vim. This variable is read only on load."
 The parameters are the same as for `defvar', but the variable
 SYMBOL is made permanent buffer local."
   (declare (indent defun)
+           (doc-string 3)
            (debug (symbolp &optional form stringp)))
   `(progn
      (defvar ,symbol ,initvalue ,docstring)
-- 
cgit v1.0