branch: externals/exwm
commit 43b00d2f0fefd39ceddb62be792634aabc9e23ca
Author: Philip <pip...@gmail.com>
Commit: Philip <pip...@gmail.com>
fix buffer renaming
per https://github.com/ch11ng/exwm/pull/30
---
exwm-workspace.el | 6 ++++--
1 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/exwm-workspace.el b/exwm-workspace.el
index 00f7326..7ac1fec 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
