[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/exwm f4d89d7 1/2: Minor fixes for past few commits
From: |
Chris Feng |
Subject: |
[elpa] externals/exwm f4d89d7 1/2: Minor fixes for past few commits |
Date: |
Mon, 25 Jul 2016 04:19:43 +0000 (UTC) |
branch: externals/exwm
commit f4d89d7e2f571d0b78a7242fc13c21ca0f46bebe
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>
Minor fixes for past few commits
* exwm-input.el (exwm-input--unread-event): Temporarily disable it
due to bug#23980.
* exwm-workspace.el (exwm-workspace--init): Set the default frame
internal border to 0.
* exwm-workspace.el (exwm-workspace--remove-frame-as-workspace):
Fix a typo.
---
exwm-input.el | 2 +-
exwm-workspace.el | 7 +++----
2 files changed, 4 insertions(+), 5 deletions(-)
diff --git a/exwm-input.el b/exwm-input.el
index fa7883f..62779c9 100644
--- a/exwm-input.el
+++ b/exwm-input.el
@@ -323,7 +323,7 @@ This value should always be overwritten.")
;; add it into (this-command-keys) there, we use `unread-command-events'
;; differently on Emacs 24 and 25.
(eval-and-compile
- (if (< emacs-major-version 25)
+ (if (< emacs-major-version 26)
(defsubst exwm-input--unread-event (event)
(setq unread-command-events
(append unread-command-events (list event))))
diff --git a/exwm-workspace.el b/exwm-workspace.el
index 01f5b50..08c9075 100644
--- a/exwm-workspace.el
+++ b/exwm-workspace.el
@@ -1203,7 +1203,7 @@ Please check `exwm-workspace--minibuffer-own-frame-p'
first."
(exwm--log "Removing frame `%s' as workspace" frame)
(when (= 1 (exwm-workspace--count))
;; The user managed to delete the last workspace, so create a new one.
- (exwm--log "Last worksapce deleted; create a new one")
+ (exwm--log "Last workspace deleted; create a new one")
(let ((exwm-workspace--create-silently t))
(make-frame)))
(let* ((index (exwm-workspace--position frame))
@@ -1289,6 +1289,8 @@ applied to all subsequently created X frames."
"Initialize workspace module."
;; Prevent unexpected exit
(setq confirm-kill-emacs #'exwm-workspace--confirm-kill-emacs)
+ (exwm-workspace--modify-all-x-frames-parameters
+ '((internal-border-width . 0)))
(let ((initial-workspaces (frame-list)))
(if (not (exwm-workspace--minibuffer-own-frame-p))
;; Initialize workspaces with minibuffers.
@@ -1309,7 +1311,6 @@ applied to all subsequently created X frames."
(make-frame '((window-system . x) (minibuffer . only)
(left . 10000) (right . 10000)
(width . 1) (height . 1)
- (internal-border-width . 0)
(client . nil))))
;; Remove/hide existing frames.
(dolist (f initial-workspaces)
@@ -1370,7 +1371,6 @@ applied to all subsequently created X frames."
(add-hook 'echo-area-clear-hook #'exwm-workspace--on-echo-area-clear)
;; Recreate one frame with the external minibuffer set.
(setq initial-workspaces (list (make-frame '((window-system . x)
- (internal-border-width . 0)
(client . nil)))))
;; The default behavior of `display-buffer' (indirectly called by
;; `minibuffer-completion-help') is not correct here.
@@ -1384,7 +1384,6 @@ applied to all subsequently created X frames."
;; Create remaining workspaces.
(dotimes (_ (- exwm-workspace-number (length initial-workspaces)))
(nconc initial-workspaces (list (make-frame '((window-system . x)
- (internal-border-width . 0)
(client . nil))))))
;; Configure workspaces
(dolist (i initial-workspaces)