From e718f6cc8fcfaddc730423b7fe4acbd4b85101f8 Mon Sep 17 00:00:00 2001
From: Alex Kost <alezost@gmail.com>
Date: Mon, 10 Nov 2014 15:29:04 +0300
Subject: emacs: Add 'guix-find-file'.

* emacs/guix-utils.el (guix-find-file): New procedure.
* emacs/guix-info.el (guix-file): Use it.
---
 emacs/guix-utils.el | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'emacs/guix-utils.el')

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
 
-- 
cgit v1.2.3