diff options
| author | Richard M. Stallman | 1998-05-25 07:18:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-05-25 07:18:31 +0000 |
| commit | 8a38e7724619830db952cf05d81713412c0fd461 (patch) | |
| tree | a6afbfd5f6abe57229714e769cfd81f8f0293e45 | |
| parent | c520265ed4cf880773715c2065be66b1e024ea06 (diff) | |
| download | emacs-8a38e7724619830db952cf05d81713412c0fd461.tar.gz emacs-8a38e7724619830db952cf05d81713412c0fd461.zip | |
(make-frame-on-display): Check for nonsense display name.
| -rw-r--r-- | lisp/frame.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index 326677339ae..b6fcf8ab7fe 100644 --- a/lisp/frame.el +++ b/lisp/frame.el | |||
| @@ -414,6 +414,8 @@ These supersede the values given in `default-frame-alist'." | |||
| 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) | ||
| 418 | (error "Invalid display, not HOST:SERVER or HOST:SERVER:SCREEN")) | ||
| 417 | (make-frame (cons (cons 'display display) parameters))) | 419 | (make-frame (cons (cons 'display display) parameters))) |
| 418 | 420 | ||
| 419 | (defun make-frame-command () | 421 | (defun make-frame-command () |