diff options
| author | Robert Pluim <rpluim@gmail.com> | 2022-02-01 12:01:14 +0100 |
|---|---|---|
| committer | Robert Pluim <rpluim@gmail.com> | 2022-02-08 17:09:15 +0100 |
| commit | 1ea2993e83ad43bb9e93eb95fe858d2d90011a9e (patch) | |
| tree | 5758deae40e019f5d0a07696d070240444429741 | |
| parent | 57df45749259e2b6fd5f629107a868f0df9725cb (diff) | |
| download | emacs-1ea2993e83ad43bb9e93eb95fe858d2d90011a9e.tar.gz emacs-1ea2993e83ad43bb9e93eb95fe858d2d90011a9e.tar.bz2 emacs-1ea2993e83ad43bb9e93eb95fe858d2d90011a9e.zip | |
Improve make-frame-on-display initial values
* doc/emacs/frames.texi (Multiple Displays): Add index entry for
'display server'.
* lisp/frame.el (make-frame-on-display): Specify sensible initial
values when reading display name.
* lisp/menu-bar.el (menu-bar-file-menu): Use 'display server' rather
than 'display' to avoid monitor<->display confusion.
| -rw-r--r-- | doc/emacs/frames.texi | 1 | ||||
| -rw-r--r-- | lisp/frame.el | 4 | ||||
| -rw-r--r-- | lisp/menu-bar.el | 4 |
3 files changed, 6 insertions, 3 deletions
diff --git a/doc/emacs/frames.texi b/doc/emacs/frames.texi index 29edbe98633..e3cfe5f8441 100644 --- a/doc/emacs/frames.texi +++ b/doc/emacs/frames.texi @@ -949,6 +949,7 @@ Speedbar,,speedbar, Speedbar Manual}. @node Multiple Displays @section Multiple Displays @cindex multiple displays +@cindex display server A single Emacs can talk to more than one X display. Initially, Emacs uses just one display---the one specified with the @env{DISPLAY} diff --git a/lisp/frame.el b/lisp/frame.el index e9c88adc7cc..b681a971aa3 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -702,7 +702,9 @@ Return nil if we don't know how to interpret 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 7678b1ece66..e26355293f3 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -131,9 +131,9 @@ :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 Display Server..." make-frame-on-display :visible (fboundp 'make-frame-on-display) - :help "Open a new frame on another display")) + :help "Open a new frame on a display server")) (bindings--define-key menu [make-frame] '(menu-item "New Frame" make-frame-command :visible (fboundp 'make-frame-command) |