dotemacs

My Emacs configuration
git clone git://git.entf.net/dotemacs
Log | Files | Refs | LICENSE

commit acd8522f5b527aff5b1db80c0754b3d2d89e9b1e
parent b4a5d5d654e2be4f6a48a6279a091e8686357f3f
Author: Lukas Henkel <lh@entf.net>
Date:   Fri, 12 May 2023 19:05:04 +0200

Function for showing diff of unsaved changes

Diffstat:
Minit.el | 14++++++++++++++
1 file changed, 14 insertions(+), 0 deletions(-)

diff --git a/init.el b/init.el @@ -49,6 +49,20 @@ (when (> (org-current-level) 1) (save-excursion (org-end-of-subtree t)))) +(defun lh/diff-file-changes () + (interactive) + (let ((file-name (make-temp-file "emacs-diff-")) + (original-file-name (buffer-file-name))) + (unwind-protect + (progn + (unwind-protect + (progn + (set-visited-file-name file-name) + (save-buffer)) + (set-visited-file-name original-file-name)) + (diff original-file-name file-name nil t)) + (delete-file file-name)))) + (defmacro lh/global-set-keys (keys-alist) `(progn ,@(seq-map