branch: externals/beframe
commit 97f50f5c7e00b5d2f9408cf50881a365494312b7
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Fix and simplify framed-buffers--rename-frame
---
framed-buffers.el | 25 ++++++++++++-------------
1 file changed, 12 insertions(+), 13 deletions(-)
diff --git a/framed-buffers.el b/framed-buffers.el
index c6c154c989..ac10970265 100644
--- a/framed-buffers.el
+++ b/framed-buffers.el
@@ -158,19 +158,18 @@ Also see `framed-buffers-switch-buffer'."
(declare-function project-name "project")
-(defun framed-buffers--rename-frame ()
- "Rename the current frame WORK-IN-PROGRESS."
- (cond
- ;; ((and (featurep 'project)
- ;; (fboundp 'project-name)
- ;; (fboundp 'project-current))
- ;; (project-name (project-current nil default-directory)))
- ((and (not (minibufferp)) (buffer-file-name))
- (format "%s %s" (buffer-name) default-directory))
- ((not (minibufferp))
- (buffer-name))
- (t
- default-directory)))
+(defun framed-buffers--rename-frame (frame)
+ "Rename FRAME.
+Add this to `after-make-frame-functions'."
+ (select-frame frame)
+ (set-frame-name
+ (cond
+ ((and (not (minibufferp)) (buffer-file-name))
+ (format "%s %s" (buffer-name) default-directory))
+ ((not (minibufferp))
+ (buffer-name))
+ (t
+ default-directory))))
(defun framed-buffers--frame-parameter-p (buf)
"Return non-nil if BUF belongs to the current frame.
