From 24477e9e828e77ebb7d3adbb755bf68bbc5d68e6 Mon Sep 17 00:00:00 2001 From: lawlist Date: Mon, 20 Jan 2014 10:22:12 -0800 Subject: [PATCH] Update init-tabbar.el --- init-tabbar.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/init-tabbar.el b/init-tabbar.el index c823e52..c0c23a9 100644 --- a/init-tabbar.el +++ b/init-tabbar.el @@ -261,6 +261,7 @@ (throw 'matched t))))))) ;; http://www.emacswiki.org/emacs/frame-fns.el +;; author: Drew Adams (defun get-frame-name (&optional frame) "Return the string that names FRAME (a frame). Default is selected frame." (unless frame (setq frame (selected-frame))) @@ -269,6 +270,7 @@ (error "Function `get-frame-name': Argument not a frame: `%s'" frame))) ;; http://www.emacswiki.org/emacs/frame-fns.el +;; author: Drew Adams (defun get-frame (frame) "Return a frame, if any, named FRAME (a frame or a string). If none, return nil. @@ -296,6 +298,7 @@ (setq frames (cdr frames)))))))) ;; https://github.com/alpaker/Frame-Bufs +;; NOTES: Al Parker wrote the Frame-Bufs, and @lawlist has modified a few functions. (defun lawlist-buffer-list (frame) ;; Remove dead buffers. (set-frame-parameter frame 'lawlist-buffer-list @@ -305,12 +308,14 @@ (frame-parameter frame 'lawlist-buffer-list) ) ;; https://github.com/alpaker/Frame-Bufs +;; NOTES: Al Parker wrote the Frame-Bufs, and @lawlist has modified a few functions. (defun lawlist-remove-buffer (buf frame) "Remove BUF from FRAME's associated-buffer list." (set-frame-parameter frame 'lawlist-buffer-list (delq buf (frame-parameter frame 'lawlist-buffer-list)))) ;; https://github.com/alpaker/Frame-Bufs +;; NOTES: Al Parker wrote the Frame-Bufs, and @lawlist has modified a few functions. (defun lawlist-add-buffer (buf frame) "Add BUF to FRAME's associated-buffer list if not already present." (unless (bufferp buf) @@ -322,11 +327,13 @@ (tabbar-display-update))) ;; https://github.com/alpaker/Frame-Bufs +;; NOTES: Al Parker wrote the Frame-Bufs, and @lawlist has modified a few functions. (defun associate-current-buffer () (interactive) (lawlist-add-buffer (get-buffer (current-buffer)) (selected-frame))) ;; https://github.com/alpaker/Frame-Bufs +;; NOTES: Al Parker wrote the Frame-Bufs, and @lawlist has modified a few functions. (defun disassociate-current-buffer (&optional buf frame) (interactive) (unless buf (setq buf (current-buffer))) @@ -342,6 +349,7 @@ (switch-to-buffer (format "%s" (car (lawlist-buffer-list (selected-frame))))))) ;; https://github.com/alpaker/Frame-Bufs +;; NOTES: Al Parker wrote the Frame-Bufs, and @lawlist has modified a few functions. (defun lawlist-buffer-list-reset () "Wipe the entire slate clean for the selected frame." (interactive)