[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 70b58d3eb4: * lisp/repeat.el (repeat<defgroup>): New customizatio
From: |
Juri Linkov |
Subject: |
master 70b58d3eb4: * lisp/repeat.el (repeat<defgroup>): New customization group. |
Date: |
Sun, 2 Oct 2022 14:15:07 -0400 (EDT) |
branch: master
commit 70b58d3eb46a9044818f8184cf27d1c5a4097d24
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>
* lisp/repeat.el (repeat<defgroup>): New customization group.
(repeat-too-dangerous, repeat-on-final-keystroke)
(repeat-exit-key, repeat-exit-timeout, repeat-keep-prefix)
(repeat-check-key, repeat-echo-function, repeat-mode):
Change group to 'repeat'.
---
lisp/repeat.el | 22 ++++++++++++++--------
1 file changed, 14 insertions(+), 8 deletions(-)
diff --git a/lisp/repeat.el b/lisp/repeat.el
index a32f3a4c50..2181bc0e2a 100644
--- a/lisp/repeat.el
+++ b/lisp/repeat.el
@@ -89,9 +89,15 @@
;;;;; ************************* USER OPTIONS ************************** ;;;;;
+(defgroup repeat nil
+ "Convenient way to repeat previous commands."
+ :prefix "repeat-"
+ :version "29.1"
+ :group 'convenience)
+
(defcustom repeat-too-dangerous '(kill-this-buffer)
"Commands too dangerous to repeat with \\[repeat]."
- :group 'convenience
+ :group 'repeat
:type '(repeat function))
;; If the last command was self-insert-command, the char to be inserted was
@@ -120,7 +126,7 @@ if `repeat' is bound to C-x z, typing C-x z z z repeats the
previous command
3 times. If this variable is a sequence of characters, then re-execution
only occurs if the final character by which `repeat' was invoked is a
member of that sequence. If this variable is nil, no re-execution occurs."
- :group 'convenience
+ :group 'repeat
:type '(choice (const :tag "Repeat for all keys" t)
(const :tag "Don't repeat" nil)
(sexp :tag "Repeat for specific keys")))
@@ -339,7 +345,7 @@ recently executed command not bound to an input event\"."
For example, you can set it to <return> like `isearch-exit'."
:type '(choice (const :tag "No special key to exit repeating sequence" nil)
(key-sequence :tag "Key that exits repeating sequence"))
- :group 'convenience
+ :group 'repeat
:version "28.1")
(defcustom repeat-exit-timeout nil
@@ -350,7 +356,7 @@ You can also set the property `repeat-exit-timeout' on the
command symbol.
This property can override the value of this variable."
:type '(choice (const :tag "No timeout to exit repeating sequence" nil)
(number :tag "Timeout in seconds to exit repeating"))
- :group 'convenience
+ :group 'repeat
:version "28.1")
(defvar repeat-exit-timer nil
@@ -359,7 +365,7 @@ This property can override the value of this variable."
(defcustom repeat-keep-prefix nil
"Whether to keep the prefix arg of the previous command when repeating."
:type 'boolean
- :group 'convenience
+ :group 'repeat
:version "28.1")
(defcustom repeat-check-key t
@@ -377,7 +383,7 @@ When the variable value is non-nil, but the property value
is `no',
then don't check the last key. Also when the variable value is nil,
but the property value is `t', then check the last key."
:type 'boolean
- :group 'convenience
+ :group 'repeat
:version "28.1")
(defcustom repeat-echo-function #'repeat-echo-message
@@ -390,7 +396,7 @@ a repeating map, or nil after deactivating the transient
repeating mode."
repeat-echo-mode-line)
(const :tag "No visual feedback" ignore)
(function :tag "Function"))
- :group 'convenience
+ :group 'repeat
:version "28.1")
(defvar repeat-in-progress nil
@@ -408,7 +414,7 @@ the map can't be set on the command symbol property
`repeat-map'.")
When Repeat mode is enabled, and the command symbol has the property named
`repeat-map', this map is activated temporarily for the next command.
See `describe-repeat-maps' for a list of all repeatable commands."
- :global t :group 'convenience
+ :global t :group 'repeat
(if (not repeat-mode)
(remove-hook 'post-command-hook 'repeat-post-hook)
(add-hook 'post-command-hook 'repeat-post-hook)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 70b58d3eb4: * lisp/repeat.el (repeat<defgroup>): New customization group.,
Juri Linkov <=