From: Po Lu <luangruo@yahoo.com>
Date: Tue, 4 Jan 2022 11:15:07 +0000 (+0000)
Subject: Make `x-file-dialog' arity match documentation on Haiku
X-Git-Tag: emacs-29.0.90~3262
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4309679742a89fbd1b56a1bdf601e85887d1eadc;p=emacs.git

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 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)