Make `x-file-dialog' arity match documentation on Haiku

* lisp/term/haiku-win.el (x-file-dialog): Fix arity.

diff --git a/lisp/term/haiku-win.el b/lisp/term/haiku-win.el
index f3c94db6a367a68a7396581c74cf68e719ccd1af..ffd67e9cf0678933e13a56053e2d2deefe2cf0ef 100644 (file)
--- 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)