diff options
| author | Philip Kaludercic <philip.kaludercic@fau.de> | 2023-07-18 07:18:43 +0000 |
|---|---|---|
| committer | Philip Kaludercic <philip.kaludercic@fau.de> | 2023-07-18 07:18:43 +0000 |
| commit | 1bf742ffafafe4eecd4af80dda8dbe102f7e10bf (patch) | |
| tree | 185948169d9777c339f682b4c74e1f9b80f64f68 | |
| parent | 363aeaea135bde17699f5fddbebca3de8a6e9138 (diff) | |
Pass proper input to 'read-multiple-choice'
| -rw-r--r-- | do-at-point.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/do-at-point.el b/do-at-point.el index da76883..b034161 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.9 2023/07/18 07:07:17 oj14ozun Exp oj14ozun $ +;; Version: $Id: do-at-point.el,v 1.10 2023/07/18 07:09:53 oj14ozun Exp oj14ozun $ ;; Package-Version: 1 ;; Package-Requires: ((emacs "26.1")) ;; Keywords: convenience @@ -56,6 +56,7 @@ ;;; Code: +(eval-when-compile (require 'pcase)) (require 'seq) (defgroup do-at-point '() @@ -200,7 +201,10 @@ action is selected." ((assq last-command-event options)) ((read-multiple-choice (format "Action on %s" thing) - options)))) + (mapcar + (pcase-lambda (`(,key ,short ,_func ,long)) + (list key short long)) + options))))) (func (cadr (alist-get (car choice) options))) (bound (cons (overlay-start do-at-point--overlay) (overlay-end do-at-point--overlay)))) |