Mercurial > emacs

changeset 22224:5ba263ae6443

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make-frame-on-display): Check for nonsense display name.
author Richard M. Stallman <rms@gnu.org>
date Mon, 25 May 1998 07:18:31 +0000
parents 5d15aed3a37c
children 6f56af1aab96
files lisp/frame.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/frame.el	Mon May 25 04:20:12 1998 +0000
+++ b/lisp/frame.el	Mon May 25 07:18:31 1998 +0000
@@ -414,6 +414,8 @@
   "Make a frame on display DISPLAY.
 The optional second argument PARAMETERS specifies additional frame parameters."
   (interactive "sMake frame on display: ")
+  (or (string-match "\\`[^:]+:[0-9]+\\(:[0-9]+\\)?\\'" display)
+      (error "Invalid display, not HOST:SERVER or HOST:SERVER:SCREEN"))
   (make-frame (cons (cons 'display display) parameters)))
 
 (defun make-frame-command ()