If you like to have a f6 and shift f6 to switch from buffer to buffer
create a lisp file (ex. circula-buffer.el) where it says cut here and load it
in your .emacs. (load "circula-buffer")
It works fine.
cut here
----------------
; detectar se � buffer do w3. funcao ancora
;por Daniel PC
(defvar circula-buffers-ignorar "^ *\\*" "Express�o regular que indica os
buffers que devem ser ignorados por circula-buffer e circula-buffer-inverso")
(defun circula-buffer ()
"Coloca o buffer actual no fim da lista, e mostra outro buffer na janela
actual
Se for chamado v�rias vezes seguidas, permite dar a volta a lista de buffers
Ignora os buffers que come�am com \"*\" (s�o colocados no fim)"
(interactive)
(let (x)
(setq x (buffer-list))
(while (progn
(bury-buffer (car x))
(setq x (cdr x))
(string-match circula-buffers-ignorar (buffer-name (car x)) )
)
)
(switch-to-buffer (car x))
)
)
(defun circula-buffer-inverso ()
"O mesmo que circula-buffer, mas circula na ordem inversa."
(interactive)
(let (x)
(setq x (reverse (cdr (buffer-list))))
(while (string-match circula-buffers-ignorar (buffer-name (car x)) )
(switch-to-buffer (car x))
(setq x (cdr x))
)
(switch-to-buffer (car x))
)
)
(global-set-key [(meta shift f6)] 'circula-buffer-inverso)
(global-set-key [(meta f6)] 'circula-buffer)
; Exemplo. Sendo A,*B,C e D buffers, *B tempor�rio
; circula-buffer e circula-buffer-inverso rodam a lista de buffers para um
lado ou para o outro, n�o alteram ordem. Ignoram temporarios
; (circula-buffer)
; -> -> ->
; A C D A
; *B D A *B
; C A *B C
; D *B C D
; <- <- <-
; (circula-buffer-inverso)
;
------------------
cut here
[EMAIL PROTECTED] wrote:
In Xemacs I use bury-buffer. Bound to ctrl-tab it works quite well.
Matt
-----Original Message-----
From: Jesper Nordenberg [SMTP:[EMAIL PROTECTED]]
Sent: 17 December 1999 08:45
To: JDE
Subject: Buffer forward/backward
Is there an easy way to goto the next and previous buffer in Emacs?
I
cant find any function that does this. I would like to bind keys to
these functions...
--
| Jesper Nordenberg, M.Sc. in C.S.E. NNL Technology AB
| E-mail: [EMAIL PROTECTED] Teknikringen 1A
| Phone: +46 13 211400 S-583 30 Link�ping
| Internet: www.nnl.se, wap.nnl.se SWEDEN
------------------------------------------------------------------------
This email, its content and any files transmitted with it are intended
solely for the addressee(s) and may be legally privileged and/or
confidential. Access by any other party is unauthorised without the
express written permission of the sender. If you have received this
email in error you may not copy or use the contents, attachments or
information in any way. Please destroy it and contact the sender on
the number printed above, via the Dresdner Kleinwort Benson
switchboard on +44 171 623 8000 or via e-mail return. Internet
communications are not secure unless protected using strong
cryptography. This email has been prepared using information believed
by the author to be reliable and accurate, but Dresdner Kleinwort
Benson makes no warranty as to accuracy or completeness. In particular
Dresdner Kleinwort Benson does not accept responsibility for changes
made to this email after it was sent. Any opinions expressed in this
document are those of the author and do not necessarily reflect the
opinions of the Bank or its affiliates. They may be subject to change
without notice.
------------------------------------------------------------------------
____________________________________________________________________
Get free email and a permanent address at http://www.netaddress.com/?N=1
