2 files changed, 7 insertions(+), 1 deletions(-)

M emacs/guix-info.el
M emacs/guix-utils.el

@@ 334,7 334,7 @@ VAL is a list, call the function on each element of this list."
   'face 'guix-info-file-path
   'help-echo "Find file"
   'action (lambda (btn)
-            (find-file (button-label btn))))
+            (guix-find-file (button-label btn))))
 
 (define-button-type 'guix-url
   :supertype 'guix

@@ 154,6 154,12 @@ accessed with KEYS."
     (dolist (key keys val)
       (setq val (cdr (assq key val))))))
 
+(defun guix-find-file (file)
+  "Find FILE if it exists."
+  (if (file-exists-p file)
+      (find-file file)
+    (message "File '%s' does not exist." file)))
+
 
 ;;; Diff