diff options
| author | Rahguzar <rahguzar@mailbox.org> | 2025-09-10 20:10:30 +0500 |
|---|---|---|
| committer | Rahguzar <rahguzar@mailbox.org> | 2025-09-10 20:10:30 +0500 |
| commit | e55c5ea294bbb2c67ab5c51d9489922a83c22456 (patch) | |
| tree | 05861ef99571d0a3771f423da2d758f615600d0f | |
| parent | a404666dbe09fdfacb9321bd6cb5e4cd4078c4c3 (diff) | |
Minor refactor and update elpa versionexternals/filechooser
| -rw-r--r-- | filechooser.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/filechooser.el b/filechooser.el index 8932acb..68eecbd 100644 --- a/filechooser.el +++ b/filechooser.el @@ -5,7 +5,7 @@ ;; Author: rahguzar <rahguzar@mailbox.org> ;; Maintainer: rahguzar <rahguzar@mailbox.org> ;; Created: May 20, 2023 -;; Version: 0.2.3 +;; Version: 0.2.4 ;; Keywords: convenience files tools unix ;; Homepage: https://codeberg.org/rahguzar/filechooser ;; Package-Requires: ((emacs "28.1") (compat "29.1")) @@ -128,6 +128,10 @@ UI of choice: usually RET." (defvar filechooser--dired-selection nil) (defvar filechooser--dired-buffers nil) +(defvar-keymap filechooser--special-event-map + :parent special-event-map + "<delete-frame>" #'filechooser-abort) + ;;; Filters (defun filechooser--filters-group-fn (cand transform) "Group function for selecting filters. @@ -220,8 +224,7 @@ MINIBUFFER is the value of minibuffer frame paramter." "filechooser-miniframe" "filechooser-frame")) (minibuffer . ,minibuffer)))) - (special-event-map (define-keymap :parent special-event-map - "<delete-frame>" #'filechooser-abort))) + (special-event-map filechooser--special-event-map)) (unwind-protect (with-demoted-errors "%S" (with-selected-frame ,framevar |