Re: How to get the list of buffers currently displayed in tabs?

Stephen J. Turnbull wrote: In case anyone is interested, here's what I did. It's not exactly the solution to the original problem, and it's not efficient, but it's working well enough for me. ================================================================ (defun enumerated-format-buffers-tab-line (buffer) "To be used as a value for buffers-tab-format-buffer-line-function. The text returned is buffer name prefixed with a number indicating buffers position in the list of currently displayed buffer tabs." (format "(%d) %s" (position buffer (my-buffers-tab-items)) (buffer-name buffer))) (setq buffers-tab-format-buffer-line-function 'enumerated-format-buffers-tab-line) (defun switch-to-nth-buffer-tab (n) (switch-to-buffer (nth n (my-buffers-tab-items)))) ================================================================ And now I bind those switches starting from 1, because 0 will always be the buffer which is currently displayed, so there's no need to bind it (which is nice, considering its position on the keyboard). (global-set-key [(super ?1)] (lambda () (interactive) (switch-to-nth-buffer-tab 1))) (global-set-key [(super ?2)] (lambda () (interactive) (switch-to-nth-buffer-tab 2))) ... Note that I use function my-buffers-tab-items. This function is a copy&paste of buffers-tab-items from gutter-items.el, with only difference that it returns a list of buffers instead of calling (build-buffers-tab-internal buffers) and returning that. When I get the time, maybe I'll take a shot at refactoring buffers-tab-items a bit to avoid this copy/paste. _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta