Mercurial > emacs

comparison lisp/frame.el @ 22232:96217e8a9b7f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make-frame-on-display): Fix previous change.
author Richard M. Stallman <rms@gnu.org>
date Mon, 25 May 1998 16:45:33 +0000
parents 5ba263ae6443
children 43927e2a5899
comparison
equal deleted inserted replaced
22231:35af9a276272 22232:96217e8a9b7f
412 412
413 (defun make-frame-on-display (display &optional parameters) 413 (defun make-frame-on-display (display &optional parameters)
414 "Make a frame on display DISPLAY. 414 "Make a frame on display DISPLAY.
415 The optional second argument PARAMETERS specifies additional frame parameters." 415 The optional second argument PARAMETERS specifies additional frame parameters."
416 (interactive "sMake frame on display: ") 416 (interactive "sMake frame on display: ")
417 (or (string-match "\\`[^:]+:[0-9]+\\(:[0-9]+\\)?\\'" display) 417 (or (string-match "\\`[^:]*:[0-9]+\\(\\.[0-9]+\\)?\\'" display)
418 (error "Invalid display, not HOST:SERVER or HOST:SERVER:SCREEN")) 418 (error "Invalid display, not HOST:SERVER or HOST:SERVER.SCREEN"))
419 (make-frame (cons (cons 'display display) parameters))) 419 (make-frame (cons (cons 'display display) parameters)))
420 420
421 (defun make-frame-command () 421 (defun make-frame-command ()
422 "Make a new frame, and select it if the terminal displays only one frame." 422 "Make a new frame, and select it if the terminal displays only one frame."
423 (interactive) 423 (interactive)