diff options
| author | Philip Kaludercic <philip.kaludercic@fau.de> | 2023-07-21 07:49:24 +0000 |
|---|---|---|
| committer | Philip Kaludercic <philip.kaludercic@fau.de> | 2023-07-21 07:49:24 +0000 |
| commit | 5c36d999aaed7655db8149a8d29b453caddc0ffd (patch) | |
| tree | 508fcda5e38bb4644c21860b2dbcb362edb428db | |
| parent | b6d819a0005a70eeb383b4e03c2869e2b7d2666e (diff) | |
Reorder action variables/user-option to reflect their priority
| -rw-r--r-- | do-at-point.el | 29 |
1 files changed, 15 insertions, 14 deletions
diff --git a/do-at-point.el b/do-at-point.el index 402c49b..6a7f76f 100644 --- a/do-at-point.el +++ b/do-at-point.el @@ -5,7 +5,7 @@ ;; Author: Philip Kaludercic <philipk@posteo.net> ;; Maintainer: Philip Kaludercic <philipk@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) |