[elpa] externals/dicom 977a04d9cf 14/15: Generalize dicom-open-at-point

[ELPA Syncer]

branch: externals/dicom
commit 977a04d9cf064fd9d4a36cc4a292d411c7f10308
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Generalize dicom-open-at-point
    
    Can be used in Dired for example.
---
 dicom.el | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/dicom.el b/dicom.el
index 09b3bd9bb6..96c69ff768 100644
--- a/dicom.el
+++ b/dicom.el
@@ -259,17 +259,19 @@ progress:${percent-pos}%'"
           (push (sort alist (lambda (x y) (string< (car x) (car y)))) items))))
     (nreverse items)))
 
+;;;###autoload
 (defun dicom-open-at-point ()
-  "Open image at point."
-  (declare (completion ignore))
+  "Open DICOM at point."
   (interactive)
   (if-let ((file
             (if (mouse-event-p last-input-event)
-                (mouse-posn-property (event-start last-input-event)
-                                     'dicom--file)
-              (get-text-property (point) 'dicom--file))))
+                (or (mouse-posn-property (event-start last-input-event)
+                                         'dicom--file)
+                    (thing-at-mouse last-input-event 'filename))
+              (or (get-text-property (point) 'dicom--file)
+                  (thing-at-point 'filename)))))
       (dicom-open file (and (not last-prefix-arg) "*dicom image*"))
-    (user-error "DICOM: No image at point")))
+    (user-error "DICOM: No DICOM file at point")))
 
 (defun dicom--image-buffer ()
   "Return image buffer or throw an error."
@@ -279,7 +281,7 @@ progress:${percent-pos}%'"
     (current-buffer)))
 
 (defun dicom-rotate ()
-  "Rotate image."
+  "Rotate image by 90°."
   (interactive nil dicom-mode)
   (dicom--modify-image
    (lambda (image)