scip/dot-emacs
1
0
Fork 0
mirror of https://codeberg.org/scip/dot-emacs.git synced 2026-08-23 21:24:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

turn revert lambda into defun

Browse Source
This commit is contained in:
Thomas von Dein
2026-07-28 23:46:19 +02:00
parent 1b246af469
commit 3b0e07a3cd
1 changed files with 22 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
lisp/init-system.el
View File

@@ -79,17 +79,31 @@
;; F5 == reload file if it has been modified by another process, shift ;; F5 == reload file if it has been modified by another process, shift
;; because Xmonad ;; because Xmonad
(global-set-key (kbd "S-<f5>") ; re-read a buffer from disk (revert)
(lambda (&optional force-reverting) (defun tvd-buffer-reload(&optional force-reverting)
"Interactive call to revert-buffer. Ignoring the auto-save "Interactive call to revert-buffer. Ignoring the auto-save
file and not requesting for confirmation. When the current buffer file and not requesting for confirmation. When the current buffer
is modified, the command refuses to revert it, unless you specify is modified, the command refuses to revert it, unless you specify
the optional argument: force-reverting to true." the optional argument: force-reverting to true."
(interactive "P") (interactive "P")
;;(message "force-reverting value is %s" force-reverting) ;;(message "force-reverting value is %s" force-reverting)
(if (or force-reverting (not (buffer-modified-p))) (if (or force-reverting (not (buffer-modified-p)))
(revert-buffer :ignore-auto :noconfirm) (revert-buffer :ignore-auto :noconfirm)
(error "The buffer has been modified")))) (error "The buffer has been modified")))
;; re-read a buffer from disk (revert)
(global-set-key (kbd "S-<f5>") 'tvd-buffer-reload)
;; (lambda (&optional force-reverting)
;; "Interactive call to revert-buffer. Ignoring the auto-save
;; file and not requesting for confirmation. When the current buffer
;; is modified, the command refuses to revert it, unless you specify
;; the optional argument: force-reverting to true."
;; (interactive "P")
;; ;;(message "force-reverting value is %s" force-reverting)
;; (if (or force-reverting (not (buffer-modified-p)))
;; (revert-buffer :ignore-auto :noconfirm)
;; (error "The buffer has been modified"))))