Commit 1c142556 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/frame.el: Use lexical-binding.

(make-frame): Use t rather than nil for tty's window-system.
* lisp/startup.el (command-line): Use gui-method.

Fixes: debbugs:18598
parent 4ea7bee0
2014-10-02 Stefan Monnier <monnier@iro.umontreal.ca>
 
* frame.el: Use lexical-binding (bug#18598).
(make-frame): Use t rather than nil for tty's window-system.
* startup.el (command-line): Use gui-method.
Consolidate management/ownership of selections.
* select.el (gui-get-selection-alist): New method.
(gui-get-selection): Use it. Rename from x-get-selection.
......
;;; frame.el --- multi-frame management independent of window systems
;;; frame.el --- multi-frame management independent of window systems -*- lexical-binding:t -*-
;; Copyright (C) 1993-1994, 1996-1997, 2000-2014 Free Software Foundation, Inc.
......@@ -680,7 +680,7 @@ the new frame according to its own rules."
;; Now make the frame.
(run-hooks 'before-make-frame-hook)
(setq frame
(funcall (gui-method frame-creation-function w) params))
(funcall (gui-method frame-creation-function (or w t)) params))
(normal-erase-is-backspace-setup-frame frame)
;; Inherit the original frame's parameters.
(dolist (param frame-inherited-parameters)
......
......@@ -954,8 +954,7 @@ please check its value")
command-line-args))
;; Initialize the window system. (Open connection, etc.)
(funcall
(or (cdr (assq initial-window-system window-system-initialization-alist))
(error "Unsupported window system `%s'" initial-window-system)))
(gui-method window-system-initialization (or initial-window-system t)))
(put initial-window-system 'window-system-initialized t))
;; If there was an error, print the error message and exit.
(error
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment