[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/dicom 25de1439d1 3/5: Add revert button
|
From: |
ELPA Syncer |
|
Subject: |
[elpa] externals/dicom 25de1439d1 3/5: Add revert button |
|
Date: |
Sat, 21 Dec 2024 12:57:54 -0500 (EST) |
branch: externals/dicom
commit 25de1439d1d6a350f7c4e4628d031f993f217d43
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Add revert button
---
dicom.el | 2 ++
1 file changed, 2 insertions(+)
diff --git a/dicom.el b/dicom.el
index aadb668918..d8575fbdb9 100644
--- a/dicom.el
+++ b/dicom.el
@@ -132,6 +132,7 @@ progress:${percent-pos}%'"
(easy-menu-define dicom-mode-menu dicom-mode-map
"Menu for `dicom-mode'."
'("DICOM"
+ ["Revert" revert-buffer]
["Larger" dicom-larger]
["Smaller" dicom-smaller]
["Rotate" dicom-rotate]
@@ -229,6 +230,7 @@ progress:${percent-pos}%'"
"Insert large image."
(pcase-let ((`(,dst . ,tmp) (dicom--cache-name (concat "large"
dicom--file))))
(insert "\n")
+ (dicom--button "REVERT" #'revert-buffer)
(dicom--button "LARGER" #'dicom-larger)
(dicom--button "SMALLER" #'dicom-smaller)
(dicom--button "ROTATE" #'dicom-rotate)