Re: kill-buffer without asking for confirmation

["Andreas Röhler" <andreas.roehler@easy-emacs.de>]

(defun kill-buffer-unconditional (&optional buffer)
   "Kill buffer unconditional, kill buffer-process if existing.

Sometimes being queried sucks..."
   (interactive
    (list (current-buffer)))
   (let ((buffer (or (and (bufferp buffer) buffer)
             (get-buffer (current-buffer))))
     proc kill-buffer-query-functions)
     (if (buffer-live-p buffer)
         (progn
           (setq proc (get-buffer-process buffer))
           (and proc (kill-process proc))
           (set-buffer buffer)
           (set-buffer-modified-p 'nil)
           (kill-buffer (current-buffer)))
       (message "Can't see a buffer %s" buffer))))

Am 28.11.22 um 09:40 schrieb Peter Münster:
> Hi,
>
> When a buffer is modified, kill-buffer normally asks for confirmation
> ("Buffer modified; kill anyway?"). How can I avoid this confirmation
> please?
>
> This worked with version 28.X:
>
> (defun some-function-called-by-timer ()
>    "Send email to user."
>    (compose-mail user-mail-address "bla")
>    (insert "bla")
>    (funcall send-mail-function)
>    (cl-letf (((symbol-function 'yes-or-no-p) (lambda (_) t)))
>      (kill-buffer)))
>
> But unfortunately, it doesn't work any more with the latest 29.0.50.
>
> TIA for any help,