branch: externals/filechooser
commit 7ccb253b0a6f16e129cb886a144199dce015b07c
Author: Rahguzar <rahgu...@mailbox.org>
Commit: Rahguzar <rahgu...@mailbox.org>
Pass arguments to filechooser-choose-directory
A bug caught by byte compiler.
Goes to show that I still haven't tested the save files.
---
filechooser.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/filechooser.el b/filechooser.el
index 1bc9e3bee4..c8a9c8ed5b 100644
--- a/filechooser.el
+++ b/filechooser.el
@@ -2,10 +2,10 @@
;; Copyright (C) 2024 Free Software Foundation, Inc.
-;; Author: rahguzar <rahgu...@zohomail.eu>
-;; Maintainer: rahguzar <rahgu...@zohomail.eu>
+;; Author: rahguzar <rahgu...@mailbox.org>
+;; Maintainer: rahguzar <rahgu...@mailbox.org>
;; Created: May 20, 2023
-;; Version: 0.2.1
+;; Version: 0.2.2
;; Keywords: convenience files tools unix
;; Homepage: https://codeberg.org/rahguzar/filechooser
;; Package-Requires: ((emacs "28.1") (compat "29.1"))
@@ -634,9 +634,9 @@ buffer. FILTERS are used to restrict selection to a subset
of files."
filechooser-choose-directory
(format "%s: " title)
(dbus-byte-array-to-string
- (butlast (caar (alist-get "current_folder" opts nil nil #'equal)))
- (mapcar (lambda (file) (dbus-byte-array-to-string (butlast file)))
- (caar (alist-get "files" opts nil nil #'equal)))))))
+ (butlast (caar (alist-get "current_folder" opts nil nil #'equal))))
+ (mapcar (lambda (file) (dbus-byte-array-to-string (butlast file)))
+ (caar (alist-get "files" opts nil nil #'equal))))))
;;; Starting Service
;;;###autoload
