mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-30 19:53:09 +00:00
Code Issues Releases Activity

(ns-display-name): Remove declaration.

Browse Source 
(make-frame-on-display): Use x-display-name instead
ns-display-name.  Use unless.
This commit is contained in:
Dan Nicolaescu 2008-07-21 17:43:33 +00:00
parent 3000e3f4e4
commit 5f2aebc0e6
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,5 +1,9 @@
2008-07-21 Dan Nicolaescu <dann@ics.uci.edu>
* frame.el (ns-display-name): Remove declaration.
(make-frame-on-display): Use x-display-name instead
ns-display-name. Use unless.
* startup.el (command-line-1): Fix indentation.
* term/ns-win.el (up-one, down-one, left-one, right-one): Remove,

7
lisp/frame.el
View File

@ -606,7 +606,6 @@ is not considered (see `next-frame')."
(declare-function x-initialize-window-system "term/x-win" ())
(declare-function ns-initialize-window-system "term/ns-win" ())
(defvar x-display-name) ; term/x-win
(defvar ns-display-name) ; term/ns-win
(defun make-frame-on-display (display &optional parameters)
"Make a frame on X display DISPLAY.
@ -615,12 +614,12 @@ The optional second argument PARAMETERS specifies additional frame parameters."
(if (featurep 'ns-windowing)
(progn
(when (and (boundp 'ns-initialized) (not ns-initialized))
(setq ns-display-name display)
(setq x-display-name display)
(ns-initialize-window-system))
(make-frame `((window-system . ns) (display . ,display) . ,parameters)))
(progn
(or (string-match "\\`[^:]*:[0-9]+\\(\\.[0-9]+\\)?\\'" display)
(error "Invalid display, not HOST:SERVER or HOST:SERVER.SCREEN"))
(unless (string-match "\\`[^:]*:[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)
(x-initialize-window-system))