Report file name, delta bytes

elisp-public/gmjWhoShurnkTheOrgFiles.org

@@ -29,7 +29,7 @@ With some help from Xah Lee
 (http://xahlee.info/emacs/emacs/elisp_basics.html), here's the final
 version that works:
 
-#+begin_src emacs-lisp :exports code
+#+begin_src emacs-lisp :exports code :results none
 
   ;; ;; Copyright © 2023 by George Jones
 
@@ -61,7 +61,7 @@ version that works:
   (when (string-match check-buffer-shrinkage-name (buffer-file-name))
     (let ((delta (- buffer-saved-size (buffer-size))))
       (when (> delta check-buffer-shrinkage-delta)
-        (when (not (yes-or-no-p "Buffer shrunk, save changes? "))
+        (when (not (yes-or-no-p (format "%s Buffer shrunk %d bytes, save changes? " (buffer-file-name) delta)))
           (set-buffer-modified-p nil)
           (error "Save Aborted"))))))
 (add-hook 'before-save-hook 'check-buffer-shrinkage-save-hook)