Re: find-alternate-file and kill-buffer-query-functions

[Stefan Monnier]

>     (unless (eq (current-buffer) obuf)
>       ;; We already asked; don't ask again.
>       (save-excursion
>         ;; switch to buffer before shadowing query functions, in case
>         ;; they are buffer-local
>         (set-buffer obuf)
>         (let ((kill-buffer-query-functions nil))
>           (kill-buffer obuf))))

Sounds right, except that I'd recommend `with-current-buffer'
in place of `save-excursion' + `set-buffer'.


        Stefan