Re: define tab for dired-buffer selection

[Mathias Dahl]

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.

/Mathias