whitespace mode delete the last of buffer char(space) will dump

[donaldsdlo]

detail info :

Debugger entered--Lisp error: (args-out-of-range #<buffer 工作日志2024年09 月.org> 4909 5672)
call-process-region(4909 5672 "aspell" nil #<buffer flyspell-region> nil "list" "-d" "en_US" "-p" "d:/home/.emacs.d/etc/.aspell.en.pws" "--sug-mode=ultra" "--lang=en_US" "--run-together" "--run-together-limit=16" "--encoding=utf-8")
apply(call-process-region (4909 5672 "aspell" nil #<buffer flyspell-region> nil "list" "-d" "en_US" "-p" "d:/home/.emacs.d/etc/.aspell.en.pws" "--sug-mode=ultra" "--lang=en_US" "--run-together" "--run-together-limit=16" "--encoding=utf-8"))
ispell-call-process-region(4909 5672 "aspell" nil #<buffer flyspell-region> nil "list" "-d" "en_US" "-p" "d:/home/.emacs.d/etc/.aspell.en.pws" "--sug-mode=ultra" "--lang=en_US" "--run-together" "--run-together-limit=16" "--encoding=utf-8")
apply(ispell-call-process-region 4909 5672 "aspell" nil #<buffer flyspell-region> nil "list" ("-d" "en_US" "-p" "d:/home/.emacs.d/etc/.aspell.en.pws" "--sug-mode=ultra" "--lang=en_US" "--run-together" "--run-together-limit=16" "--encoding=utf-8"))
flyspell-large-region(4909 5672)
flyspell-region(4909 5672)
wucuo-spell-check-visible-region()
wucuo-spell-check-internal()
wucuo-spell-check-buffer()
run-hooks(after-save-hook)
basic-save-buffer(nil)
save-buffer()
(progn (save-buffer))
(if (and buffer-file-name (buffer-modified-p (current-buffer)) (file-writable-p buffer-file-name) (if (file-remote-p buffer-file-name) super-save-remote-files t)) (progn (save-buffer)))
(let ((buf (car tail))) (set-buffer buf) (if (and buffer-file-name (buffer-modified-p (current-buffer)) (file-writable-p buffer-file-name) (if (file-remote-p buffer-file-name) super-save-remote-files t)) (progn (save-buffer))) (setq tail (cdr tail)))
(while tail (let ((buf (car tail))) (set-buffer buf) (if (and buffer-file-name (buffer-modified-p (current-buffer)) (file-writable-p buffer-file-name) (if (file-remote-p buffer-file-name) super-save-remote-files t)) (progn (save-buffer))) (setq tail (cdr tail))))
(let ((tail (buffer-list))) (while tail (let ((buf (car tail))) (set-buffer buf) (if (and buffer-file-name (buffer-modified-p (current-buffer)) (file-writable-p buffer-file-name) (if (file-remote-p buffer-file-name) super-save-remote-files t)) (progn (save-buffer))) (setq tail (cdr tail)))))
(save-excursion (let ((tail (buffer-list))) (while tail (let ((buf (car tail))) (set-buffer buf) (if (and buffer-file-name (buffer-modified-p (current-buffer)) (file-writable-p buffer-file-name) (if (file-remote-p buffer-file-name) super-save-remote-files t)) (progn (save-buffer))) (setq tail (cdr tail))))))
super-save/save-all-buffers()
apply(super-save/save-all-buffers nil)
super-save-command()
apply(super-save-command nil)
timer-event-handler([t 0 60 0 t super-save-command nil idle 0 nil])

[redguardtoo]

351997d #21 fixed a crash (Chen Bin)