John Mastro <john.b.mastro@gmail.com> wrote:
(defun open-buffer-directory (buffer)
(interactive
(if current-prefix-arg
(read-buffer "Open buffer directory: " nil t)
(list (current-buffer))))
(with-current-buffer buffer
(let ((file (buffer-file-name)))
(if file
(w32-open-file (file-name-directory file))
(user-error "Buffer `%s' is not visiting a file" (buffer-name))))))
Oops, bad `interactive' spec. That should be:
(defun open-buffer-directory (buffer)
(interactive
(list (if current-prefix-arg
(read-buffer "Open buffer directory: " nil t)
(current-buffer))))
(with-current-buffer buffer
(let ((file (buffer-file-name)))
(if file
(w32-open-file (file-name-directory file))
(user-error "Buffer `%s' is not visiting a file" (buffer-name))))))