help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Problem with elscreen


From: Lam
Subject: Problem with elscreen
Date: Wed, 11 Aug 2004 16:22:25 +0200
User-agent: Gnus/5.110003 (No Gnus v0.3) Emacs/21.3.50 (gnu/linux)

hi
i have create en .el files to add some features to elscreen :

> (provide 'elscreen-buffers)
> (require 'alist)
> (require 'elscreen)


> (defconst elscreen-buffers-version "0.1")

> (defvar elscreen-buffer-alist nil
>   "*Alist that contains buffer list for each screen")


> (defun elscreen-attach-buffer ()
>   "Attach current buffer to current screen."
>     (interactive)
>     (let* ((screen (elscreen-get-current-screen))
>            (buffer (current-buffer))
>            (screen-buffers (get-alist screen elscreen-buffer-alist)))
>       (set-alist 'elscreen-buffer-alist
>                  screen
>                  (cons buffer screen-buffers))))


> (defun elscreen-detach-buffer ()
>   "Detach current buffer to current screen."
>   (interactive)
>   (let ((screen (elscreen-get-current-screen))
>         (buffer (current-buffer))
>         (screen-buffers (get-alist screen elscreen-buffer-alist)))
>     (set-alist 'elscreen-buffer-alist
>                screen
>                (delete buffer screen-buffers))))


> (defun elscreen-screen-buffers ()
>   "List buffers of current screen"
>   (interactive)
>   (if (require 'iswitchb nil t)
>       (let* ((screen (elscreen-get-current-screen))
>              (buffers (get-alist screen elscreen-buffer-alist))
>              (iswitchb-buffer-ignore (mapcar '(lambda (elt)
>                                                 (buffer-name elt))
>                                              (buffer-list))))
>         (mapc '(lambda (elt)
>                  (setq iswitchb-buffer-ignore
>                        (delete (buffer-name elt) iswitchb-buffer-ignore)))
>               buffers)
>         (iswitchb-buffer))
>       (message "iswitchb buffer could not be found")))


> (add-hook 'find-file-hooks 'elscreen-attach-buffer)
> (add-hook 'kill-buffer-hooks 'elscreen-detach-buffer)


if  i open files  foo1, foo2, foo3  on screen 1, and  files bar1,
bar2 on  screen2, with this  code when i do  elscreen-screen-buffers i
see only buffers of my current screen
it's ok

but i have a problem with files which have the same name:
if i open on screen2 another file foo1 when i do
elscreen-screen-buffers on screen i don't have foo1 on my list :(

does anybody know where is my pb ?






--
Lam


reply via email to

[Prev in Thread] Current Thread [Next in Thread]