branch: externals/do-at-point
commit 5c36d999aaed7655db8149a8d29b453caddc0ffd
Author: Philip Kaludercic <philip.kaluder...@fau.de>
Commit: Philip Kaludercic <philip.kaluder...@fau.de>
Reorder action variables/user-option to reflect their priority
---
do-at-point.el | 29 +++++++++++++++--------------
1 file changed, 15 insertions(+), 14 deletions(-)
diff --git a/do-at-point.el b/do-at-point.el
index 402c49b6f5..6a7f76fe92 100644
--- a/do-at-point.el
+++ b/do-at-point.el
@@ -5,7 +5,7 @@
;; Author: Philip Kaludercic <phil...@posteo.net>
;; Maintainer: Philip Kaludercic <phil...@posteo.net>
;; URL: https://wwwcip.cs.fau.de/~oj14ozun/src+etc/do-at-point.el
-;; Version: $Id: do-at-point.el,v 1.28 2023/07/21 07:47:21 oj14ozun Exp
oj14ozun $
+;; Version: $Id: do-at-point.el,v 1.29 2023/07/21 07:48:52 oj14ozun Exp
oj14ozun $
;; Package-Version: 1
;; Package-Requires: ((emacs "26.1"))
;; Keywords: convenience
@@ -74,6 +74,20 @@
:key-type symbol)
"User option type for `do-at-point' actions.")
+
+(defcustom do-at-point-user-actions '()
+ "Custom association of things and their respective actions.
+Refer to the user option `do-at-point-actions' for details on the
+structure of the values of this user option."
+ :type do-at-point--actions-type)
+
+(defvar-local do-at-point-local-actions '()
+ "Actions that can be added by a major or minor mode.
+These are prioritised to the user option `do-at-point-actions',
+but not `do-at-point-user-actions'. Refer to the user option
+`do-at-point-actions' for details on the structure of the values
+of this variable.")
+
(defcustom do-at-point-actions
`((region
(?\s "Mark" ,(lambda (start end)
@@ -137,25 +151,12 @@ variable `do-at-point-local-actions' take precedence over
this
user option."
:type do-at-point--actions-type)
-(defcustom do-at-point-user-actions '()
- "Custom association of things and their respective actions.
-Refer to the user option `do-at-point-actions' for details on the
-structure of the values of this user option."
- :type do-at-point--actions-type)
-
(defcustom do-at-point-quick-bindings t
"Non-nil means that quick bindings are enabled.
Quick bindings allow for the user to operate on a selection
without having to have confirmed the first."
:type 'boolean)
-(defvar-local do-at-point-local-actions '()
- "Actions that can be added by a major or minor mode.
-These are prioritised to the user option `do-at-point-actions',
-but not `do-at-point-user-actions'. Refer to the user option
-`do-at-point-actions' for details on the structure of the values
-of this variable.")
-
(defvar do-at-point--quick-map (make-sparse-keymap))
(defun do-at-point--actions (thing)
