diff options
| author | Po Lu <luangruo@yahoo.com> | 2022-01-04 11:15:07 +0000 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2022-01-04 11:18:15 +0000 |
| commit | 4309679742a89fbd1b56a1bdf601e85887d1eadc (patch) | |
| tree | 8e67714df2062e269adc066a4f5fbfa8b5afdc4c /lisp | |
| parent | 2d4b2e296b5c13a8b8481e7c0d0c26f52d2de257 (diff) | |
| download | emacs-4309679742a89fbd1b56a1bdf601e85887d1eadc.tar.gz emacs-4309679742a89fbd1b56a1bdf601e85887d1eadc.tar.bz2 emacs-4309679742a89fbd1b56a1bdf601e85887d1eadc.zip | |
Make `x-file-dialog' arity match documentation on Haiku
* lisp/term/haiku-win.el (x-file-dialog): Fix arity.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/term/haiku-win.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/term/haiku-win.el b/lisp/term/haiku-win.el index f3c94db6a36..ffd67e9cf06 100644 --- a/lisp/term/haiku-win.el +++ b/lisp/term/haiku-win.el @@ -111,17 +111,17 @@ If TYPE is nil, return \"text/plain\"." (declare-function haiku-read-file-name "haikufns.c") -(defun x-file-dialog (prompt dir default_filename mustmatch only_dir_p) +(defun x-file-dialog (prompt dir &optional default-filename mustmatch only-dir-p) "SKIP: real doc in xfns.c." (if (eq (framep-on-display (selected-frame)) 'haiku) (haiku-read-file-name (if (not (string-suffix-p ": " prompt)) prompt (substring prompt 0 (- (length prompt) 2))) (selected-frame) - (or dir (and default_filename - (file-name-directory default_filename))) - mustmatch only_dir_p - (file-name-nondirectory default_filename)) + (or dir (and default-filename + (file-name-directory default-filename))) + mustmatch only-dir-p + (file-name-nondirectory default-filename)) (error "x-file-dialog on a tty frame"))) (defun haiku-dnd-handle-drag-n-drop-event (event) |