Fix underscores in argument names in ns-win

* lisp/term/ns-win.el (x-file-dialog): Don't use underscores in
argument names.

diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el
index 56aca2bd83e48a3fc5aca27909e4f026152b58fe..82b6281eb6975620502c0f50df7dbfd9d54039b7 100644 (file)
--- a/lisp/term/ns-win.el
+++ b/lisp/term/ns-win.el
@@ -435,14 +435,14 @@ Lines are highlighted according to `ns-input-line'."
 ;; nsterm.m
 
 (declare-function ns-read-file-name "nsfns.m"
-                 (prompt &optional dir mustmatch init dir_only_p))
+                 (prompt &optional dir mustmatch init dir-only-p))
 
 ;;;; File handling.
 
-(defun x-file-dialog (prompt dir &optional 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."
-  (ns-read-file-name prompt dir mustmatch default_filename only_dir_p))
+  (ns-read-file-name prompt dir mustmatch default-filename only-dir-p))
 
 (defun ns-open-file-using-panel ()
   "Pop up open-file panel, and load the result in a buffer."