[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r118012: * lisp/frame.el: Use lexical-binding.
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] trunk r118012: * lisp/frame.el: Use lexical-binding. |
Date: |
Thu, 02 Oct 2014 13:26:29 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 118012
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=18598
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Thu 2014-10-02 09:26:23 -0400
message:
* 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.
modified:
lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432
lisp/frame.el frame.el-20091113204419-o5vbwnq5f7feedwu-275
lisp/startup.el startup.el-20091113204419-o5vbwnq5f7feedwu-260
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2014-10-02 03:19:32 +0000
+++ b/lisp/ChangeLog 2014-10-02 13:26:23 +0000
@@ -1,5 +1,9 @@
2014-10-02 Stefan Monnier <address@hidden>
+ * 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.
=== modified file 'lisp/frame.el'
--- a/lisp/frame.el 2014-10-01 22:13:11 +0000
+++ b/lisp/frame.el 2014-10-02 13:26:23 +0000
@@ -1,4 +1,4 @@
-;;; 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 @@
;; 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)
=== modified file 'lisp/startup.el'
--- a/lisp/startup.el 2014-10-01 22:13:11 +0000
+++ b/lisp/startup.el 2014-10-02 13:26:23 +0000
@@ -954,8 +954,7 @@
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r118012: * lisp/frame.el: Use lexical-binding.,
Stefan Monnier <=