Re: Horrible File menu

[Robert Pluim <rpluim@gmail.com>]

>>>>> On Mon, 31 Jan 2022 21:16:54 +0800, Po Lu <luangruo@yahoo.com> said:

    Po> Stefan Monnier <monnier@iro.umontreal.ca> writes:
    >>> If anything needs deleting from that menu, itʼs 'Make frame on
    >>> display'.  Thatʼs useful to a vanishingly small percentage of users,
    >>> and I doubt they'd use the menu to do it.
    >> 
    >> But that's also a nice way to advertise this feature that's obviously
    >> not shared by very many applications.

    Po> It could use some clarification of what consistutes a "display", though,
    Po> since these days most computer users expect that to mean "monitor".

Would it make sense to say "remote display"? And since weʼre at it,
how about filling in some sensible defaults?

diff --git a/lisp/frame.el b/lisp/frame.el
index 86c52dc438..49f18f8522 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -702,7 +702,9 @@ make-frame-on-display
 The optional argument PARAMETERS specifies additional frame parameters."
   (interactive (if (fboundp 'x-display-list)
                    (list (completing-read "Make frame on display: "
-                                          (x-display-list)))
+                                          (x-display-list) nil
+                                          nil (car (x-display-list))
+                                          nil (car (x-display-list))))
                  (user-error "This Emacs build does not support X displays")))
   (make-frame (cons (cons 'display display) parameters)))
 
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 849d400be6..3040103eb6 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -121,7 +121,7 @@ menu-bar-file-menu
                   :visible (fboundp 'make-frame-on-monitor)
                   :help "Open a new frame on another monitor"))
     (bindings--define-key menu [make-frame-on-display]
-      '(menu-item "New Frame on Display..." make-frame-on-display
+      '(menu-item "New Frame on Remote Display..." make-frame-on-display
                   :visible (fboundp 'make-frame-on-display)
                   :help "Open a new frame on another display"))
     (bindings--define-key menu [make-frame]

Robert
--