diff options
| author | Philip <pipcet@gmail.com> | 2015-08-17T06·40+0000 |
|---|---|---|
| committer | Philip <pipcet@gmail.com> | 2015-08-17T06·40+0000 |
| commit | 43b00d2f0fefd39ceddb62be792634aabc9e23ca (patch) | |
| tree | dadbdba0283c9dae4119ec75b86961d6357191d8 | |
| parent | 15ad591d978836b753839014f3c7ce67111763c1 (diff) | |
fix buffer renaming
per https://github.com/ch11ng/exwm/pull/30
| -rw-r--r-- | exwm-workspace.el | 6 |
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 |