[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: find-alternate-file and kill-buffer-query-functions
From: |
Stefan Monnier |
Subject: |
Re: find-alternate-file and kill-buffer-query-functions |
Date: |
Tue, 27 Aug 2002 14:02:44 -0400 |
> (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