[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Horrible File menu

From: Robert Pluim
Subject: Re: Horrible File menu
Date: Mon, 31 Jan 2022 14:36:54 +0100

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


reply via email to

[Prev in Thread] Current Thread [Next in Thread]