summaryrefslogtreecommitdiff
path: root/emacs
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2014-11-10 15:29:04 +0300
committerAlex Kost <alezost@gmail.com>2014-11-10 16:13:41 +0300
commite718f6cc8fcfaddc730423b7fe4acbd4b85101f8 (patch)
tree81730d83ec935be27671a1b14cd11d5c6061551b /emacs
parent7be25d4af08226ab684e69d4f5b694910d81e452 (diff)
emacs: Add 'guix-find-file'.
* emacs/guix-utils.el (guix-find-file): New procedure. * emacs/guix-info.el (guix-file): Use it.
Diffstat (limited to 'emacs')
-rw-r--r--emacs/guix-info.el2
-rw-r--r--emacs/guix-utils.el6
2 files changed, 7 insertions, 1 deletions
diff --git a/emacs/guix-info.el b/emacs/guix-info.el
index edb44506ea..70ae39c970 100644
--- a/emacs/guix-info.el
+++ b/emacs/guix-info.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
diff --git a/emacs/guix-utils.el b/emacs/guix-utils.el
index 77ccb67532..823c646610 100644
--- a/emacs/guix-utils.el
+++ b/emacs/guix-utils.el
@@ -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