mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

* frame.el (make-frame-on-display): Use `string-match-p'.

Browse Source
This commit is contained in:
Juanma Barranquero 2008-11-07 14:52:02 +00:00
parent e589455f84
commit 69135f1297
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2008-11-07 Juanma Barranquero <lekktu@gmail.com>
* frame.el (make-frame-on-display): Use `string-match-p'.
2008-11-07 Glenn Morris <rgm@gnu.org>
* progmodes/cc-defs.el (cl-macroexpand-all): Fix declaration.

2
lisp/frame.el
View File

@ -620,7 +620,7 @@ The optional argument PARAMETERS specifies additional frame parameters."
;; On Windows, ignore DISPLAY.
(make-frame parameters))
(t
(unless (string-match "\\`[^:]*:[0-9]+\\(\\.[0-9]+\\)?\\'" display)
(unless (string-match-p "\\`[^:]*:[0-9]+\\(\\.[0-9]+\\)?\\'" display)
(error "Invalid display, not HOST:SERVER or HOST:SERVER.SCREEN"))
(when (and (boundp 'x-initialized) (not x-initialized))
(setq x-display-name display)