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

[Po Lu]

branch: master
commit 4309679742a89fbd1b56a1bdf601e85887d1eadc
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>

    Make `x-file-dialog' arity match documentation on Haiku
    
    * lisp/term/haiku-win.el (x-file-dialog): Fix arity.
---
 lisp/term/haiku-win.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/term/haiku-win.el b/lisp/term/haiku-win.el
index f3c94db6a3..ffd67e9cf0 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)