branch: externals/beframe
commit 878cc6a890207f73349f32e375cd772c472f9c04
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Rename private functions for consistency
---
framed-buffers.el | 26 +++++++++++++-------------
1 file changed, 13 insertions(+), 13 deletions(-)
diff --git a/framed-buffers.el b/framed-buffers.el
index 93735a39e2..d9973b8b47 100644
--- a/framed-buffers.el
+++ b/framed-buffers.el
@@ -58,7 +58,7 @@ Otherwise framed buffers are limited to the frame that uses
them."
(get-buffer name))
framed-buffers-global-buffers))
-(defun framed-buffers-buffer-list (&optional frame)
+(defun framed-buffers--buffer-list (&optional frame)
"Return list of buffers that are used by the current frame.
With optional FRAME as an object that satisfies `framep', return
the list of buffers that are used by FRAME.
@@ -68,6 +68,14 @@ Include `framed-buffers-global-buffers' in the list."
(append (framed-buffers--frame-buffer-list frame)
(framed-buffers--global-buffer-list))))
+(defun framed-buffers--buffer-names (&optional frame)
+ "Return list of names of `framed-buffers--buffer-list' as strings.
+With optional FRAME, do it for the given frame name."
+ (mapcar
+ (lambda (buf)
+ (buffer-name buf))
+ (framed-buffers--buffer-list frame)))
+
(defun framed-buffers--read-buffer-p (buf &optional frame)
"Return non-nil if BUF belongs to the current FRAME.
BUF is a string or a cons cell, per `framed-buffers-read-buffer'.
@@ -93,14 +101,6 @@ per-frame filter."
'buffer-name-history
def))
-(defun framed-buffers--buffer-names (&optional frame)
- "Return list of names of `framed-buffers-buffer-list' as strings.
-With optional FRAME, do it for the given frame name."
- (mapcar
- (lambda (buf)
- (buffer-name buf))
- (framed-buffers-buffer-list frame)))
-
(defun framed-buffers--buffer-prompt (&optional frame)
"Prompt for buffer among `framed-buffers--buffer-names'.
@@ -204,8 +204,8 @@ Add this to `after-make-frame-functions'."
(defun framed-buffers--frame-parameter-p (buf)
"Return non-nil if BUF belongs to the current frame.
-BUF is a buffer object among `framed-buffers-buffer-list'."
- (memq buf (framed-buffers-buffer-list)))
+BUF is a buffer object among `framed-buffers--buffer-list'."
+ (memq buf (framed-buffers--buffer-list)))
(defun framed-buffers--frame-predicate (&optional frame)
"Set FRAME `buffer-predicate' parameter.
@@ -229,13 +229,13 @@ If FRAME is nil, use the current frame."
;; needed for `consult-buffer' and maybe others, but there may
;; be a better way.
;;
- ;; (advice-add #'buffer-list :override #'framed-buffers-buffer-list)
+ ;; (advice-add #'buffer-list :override #'framed-buffers--buffer-list)
)
(setq read-buffer-function framed-buffers--read-buffer-function
framed-buffers--read-buffer-function nil)
(remove-hook 'after-make-frame-functions #'framed-buffers--frame-predicate)
(remove-hook 'after-make-frame-functions #'framed-buffers--rename-frame)
- ;; (advice-remove #'buffer-list #'framed-buffers-buffer-list)
+ ;; (advice-remove #'buffer-list #'framed-buffers--buffer-list)
))
(provide 'framed-buffers)
