From 137dd5a75f3f357b1a4590a28a3abe6cae04edf4 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20Dj=C3=A4rv?= Date: Fri, 2 Apr 2010 17:02:58 +0200 Subject: [PATCH] Add README.TABS, declare lisp functions. --- README.TABS | 32 ++++++++++++++++++++++++++++++++ lisp/native-tabs.el | 4 ++++ 2 files changed, 36 insertions(+) create mode 100644 README.TABS diff --git a/README.TABS b/README.TABS new file mode 100644 index 00000000000..64a7cc8d964 --- /dev/null +++ b/README.TABS @@ -0,0 +1,32 @@ +You can drag tabs to reorder them, drop them on another frame to move it there +and drop on the root window to create a new frame. + +Lisp code is in native-tabs.el. Keybindings are: + + (global-set-key "\C-x7\C-f" 'find-file-new-tab) + (global-set-key "\C-x70" 'tab-delete) + (global-set-key "\C-x71" 'tab-delete-other) + (global-set-key "\C-x72" 'tab-new) + (global-set-key "\C-x73" 'switch-to-buffer-tab) + (global-set-key "\C-x7b" 'switch-to-buffer-other-tab) + (global-set-key "\C-x7f" 'find-file-new-tab) + (global-set-key "\C-x7o" 'tab-next) + (global-set-key "\C-x7n" 'tab<-next) + (global-set-key "\C-x7p" 'tab-previous))) + + +The lisp interface is mostly in xfns.c: + +(find-file-new-tab FILENAME &optional WILDCARDS) +(tab-new &optional LABEL FRAME) +(tab-delete &optional KEY FRAME) +(tab-delete-other &optional FRAME) +(tab-set-label LABEL &optional FRAME) +(tab-next &optional FRAME) +(tab-previous &optional FRAME) +(tab-nr-of-tabs &optional FRAME) +(tab-configuration &optional FRAME) +(tab-current &optional FRAME) +(tab-show KEY FRAME) +(switch-to-buffer-tab BUFFER-OR-NAME &optional FRAME) +(switch-to-buffer-other-tab BUFFER-OR-NAME &optional NORECORD) diff --git a/lisp/native-tabs.el b/lisp/native-tabs.el index fffcd156d2e..2471d873ee5 100644 --- a/lisp/native-tabs.el +++ b/lisp/native-tabs.el @@ -34,6 +34,10 @@ (declare-function tab-delete-other "xfns.c" ()) (declare-function tab-next "xfns.c" ()) (declare-function tab-previous "xfns.c" ()) +(declare-function tab-nr-of-tabs "xfns.c" ()) +(declare-function tab-configuration "xfns.c" ()) +(declare-function tab-current "xfns.c" ()) +(declare-function tab-show "xfns.c" ()) (defun find-file-new-tab (filename &optional wildcards) "Edit file FILENAME, in a new tab. -- 2.39.5