From 5e43bbf9ff4641159cbcc6c0a84bc1cba4cbe6a4 Mon Sep 17 00:00:00 2001 From: trungtq Date: Tue, 12 Oct 2021 03:37:44 +0800 Subject: [PATCH] get buffer by buffer-id --- eaf.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/eaf.el b/eaf.el index 05184d4df..d69e7ee8b 100644 --- a/eaf.el +++ b/eaf.el @@ -1091,6 +1091,14 @@ of `eaf--buffer-app-name' inside the EAF buffer." (select-window buffer-window))) (throw 'found-eaf t))))) +(defun eaf-get-buffer (buffer-id) + "Find the buffer given the BUFFER-ID." + (catch 'found-eaf + (eaf-for-each-eaf-buffer + (when (string= eaf--buffer-id buffer-id) + (throw 'found-eaf buffer)) + nil))) + (defun eaf--show-message (format-string) "A wrapper around `message' that prepend [EAF/app-name] before FORMAT-STRING." (let ((fmt (if eaf--buffer-app-name