about summary refs log tree commit diff
diff options
context:
space:
mode:
authorPhilip <pipcet@gmail.com>2015-08-17T06·40+0000
committerPhilip <pipcet@gmail.com>2015-08-17T06·40+0000
commit43b00d2f0fefd39ceddb62be792634aabc9e23ca (patch)
treedadbdba0283c9dae4119ec75b86961d6357191d8
parent15ad591d978836b753839014f3c7ce67111763c1 (diff)
fix buffer renaming
per https://github.com/ch11ng/exwm/pull/30
-rw-r--r--exwm-workspace.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/exwm-workspace.el b/exwm-workspace.el
index 00f73261ec5c..7ac1fecb755f 100644
--- a/exwm-workspace.el
+++ b/exwm-workspace.el
@@ -171,9 +171,11 @@ The optional FORCE option is for internal use only."
   (with-current-buffer (exwm--id->buffer id)
     (let ((frame (elt exwm-workspace--list index)))
       (when (not (equal exwm--frame frame))
+        (let ((name (replace-regexp-in-string "^\\s-*" "" (buffer-name))))
+          (exwm-workspace-rename-buffer (if (= index exwm-workspace-current-index)
+                                            name
+                                          (concat " " name))))
         (setq exwm--frame frame)
-        (exwm-workspace-rename-buffer
-         (concat " " (replace-regexp-in-string "^\\s-*" "" (buffer-name))))
         (if exwm--floating-frame
             ;; Move the floating frame is enough
             (progn