about summary refs log tree commit diff
diff options
context:
space:
mode:
authorChris Feng <chris.w.feng@gmail.com>2016-07-25T04·14+0800
committerChris Feng <chris.w.feng@gmail.com>2016-07-25T04·14+0800
commitf4d89d7e2f571d0b78a7242fc13c21ca0f46bebe (patch)
tree022ba38a28af35f44ea44586e03f315ab40d6f8e
parent5529790b039ec6bac3e5eb7da17931b1dec50c64 (diff)
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.
-rw-r--r--exwm-input.el2
-rw-r--r--exwm-workspace.el7
2 files changed, 4 insertions, 5 deletions
diff --git a/exwm-input.el b/exwm-input.el
index fa7883f32da5..62779c9e2be6 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 01f5b505fb29..08c90751dbbf 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)