Re: define tab for dired-buffer selection

[Fabian Braennstroem <f.braennstroem@gmx.de>]

Hi Mathias,

sorry for the late response!

Mathias Dahl schrieb am 09/12/2007 03:53 PM:
> Fabian Braennstroem <f.braennstroem@gmx.de> writes:
> 
> 
>> My first approach was:
>> (defun dired-change-window()
>>   "Change to the other buffer"
>>   (interactive)
>>   (if (eq major-mode 'dired-mode) (other-window 1)
>>   (while (not (eq major-mode 'dired-mode)) (other-window 1))
>>        ))
> 
> This seems to work:
> 
> (defun dired-change-window()
>   "Change to the other buffer"
>   (interactive)
>   (if (eq major-mode 'dired-mode)
>       (select-window
>        (get-window-with-predicate
>         (lambda (x) 
>           (eq
>            (save-excursion (set-buffer (window-buffer x))
>                            major-mode)
>            'dired-mode))))))
> 
> I cannot say exactly why your code does not work though. Maybe the
> major-mode does not change because you never really changes buffers.

Thanks, it works well!
Fabian