Checkdoc fixes

* avy.el (avy-keys-alist): command into quotes
(avy-styles-alist): command into quotes and indent
This commit is contained in:
Jeremy Bryant 2024-07-09 21:24:04 +01:00 committed by Oleh Krehel
parent be612110cb
commit 933d1f36cc

48
avy.el
View File

@ -26,22 +26,22 @@
;;; Commentary: ;;; Commentary:
;; ;;
;; With Avy, you can move point to any position in Emacs even in a ;; With Avy, you can move point to any position in Emacs even in a
;; different window using very few keystrokes. For this, you look at ;; different window using very few keystrokes. For this, you look at
;; the position where you want point to be, invoke Avy, and then enter ;; the position where you want point to be, invoke Avy, and then enter
;; the sequence of characters displayed at that position. ;; the sequence of characters displayed at that position.
;; ;;
;; If the position you want to jump to can be determined after only ;; If the position you want to jump to can be determined after only
;; issuing a single keystroke, point is moved to the desired position ;; issuing a single keystroke, point is moved to the desired position
;; immediately after that keystroke. In case this isn't possible, the ;; immediately after that keystroke. In case this isn't possible, the
;; sequence of keystrokes you need to enter is comprised of more than ;; sequence of keystrokes you need to enter is comprised of more than
;; one character. Avy uses a decision tree where each candidate position ;; one character. Avy uses a decision tree where each candidate position
;; is a leaf and each edge is described by a character which is distinct ;; is a leaf and each edge is described by a character which is distinct
;; per level of the tree. By entering those characters, you navigate the ;; per level of the tree. By entering those characters, you navigate the
;; tree, quickly arriving at the desired candidate position, such that ;; tree, quickly arriving at the desired candidate position, such that
;; Avy can move point to it. ;; Avy can move point to it.
;; ;;
;; Note that this only makes sense for positions you are able to see ;; Note that this only makes sense for positions you are able to see
;; when invoking Avy. These kinds of positions are supported: ;; when invoking Avy. These kinds of positions are supported:
;; ;;
;; * character positions ;; * character positions
;; * word or subword start positions ;; * word or subword start positions
@ -99,7 +99,7 @@ keys different than the following: a, e, i, o, u, y"
(function :tag "Other command"))) (function :tag "Other command")))
(defcustom avy-keys-alist nil (defcustom avy-keys-alist nil
"Alist of avy-jump commands to `avy-keys' overriding the default `avy-keys'." "Alist of `avy-jump' commands to `avy-keys' overriding the default `avy-keys'."
:type `(alist :type `(alist
:key-type ,avy--key-type :key-type ,avy--key-type
:value-type (repeat :tag "Keys" character))) :value-type (repeat :tag "Keys" character)))
@ -156,27 +156,27 @@ Use `avy-styles-alist' to customize this per-command."
(const :tag "Words" words))) (const :tag "Words" words)))
(defcustom avy-styles-alist nil (defcustom avy-styles-alist nil
"Alist of avy-jump commands to the style for each command. "Alist of `avy-jump' commands to the style for each command.
If the commands isn't on the list, `avy-style' is used." If the commands isn't on the list, `avy-style' is used."
:type '(alist :type '(alist
:key-type (choice :tag "Command" :key-type (choice :tag "Command"
(const avy-goto-char) (const avy-goto-char)
(const avy-goto-char-2) (const avy-goto-char-2)
(const avy-isearch) (const avy-isearch)
(const avy-goto-line) (const avy-goto-line)
(const avy-goto-subword-0) (const avy-goto-subword-0)
(const avy-goto-subword-1) (const avy-goto-subword-1)
(const avy-goto-word-0) (const avy-goto-word-0)
(const avy-goto-word-1) (const avy-goto-word-1)
(const avy-copy-line) (const avy-copy-line)
(const avy-copy-region) (const avy-copy-region)
(const avy-move-line) (const avy-move-line)
(const avy-move-region) (const avy-move-region)
(const avy-kill-whole-line) (const avy-kill-whole-line)
(const avy-kill-region) (const avy-kill-region)
(const avy-kill-ring-save-whole-line) (const avy-kill-ring-save-whole-line)
(const avy-kill-ring-save-region) (const avy-kill-ring-save-region)
(function :tag "Other command")) (function :tag "Other command"))
:value-type (choice :value-type (choice
(const :tag "Pre" pre) (const :tag "Pre" pre)
(const :tag "At" at) (const :tag "At" at)