02/03: edit: Don't assume that an emacs daemon is running.

[Mathieu Lirzin]

mthl pushed a commit to branch master
in repository guix.

commit cd08fe4259f72815a4b096b2a5ce325e9b445da4
Author: Mathieu Lirzin <address@hidden>
Date:   Sat Nov 21 15:05:07 2015 +0100

    edit: Don't assume that an emacs daemon is running.
    
    * guix/scripts/edit.scm (%editor): Use Emacs as a default value.
---
 guix/scripts/edit.scm |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/guix/scripts/edit.scm b/guix/scripts/edit.scm
index 660bd57..ce3ac41 100644
--- a/guix/scripts/edit.scm
+++ b/guix/scripts/edit.scm
@@ -49,8 +49,10 @@ Start $VISUAL or $EDITOR to edit the definitions of 
PACKAGE...\n"))
   (show-bug-report-information))
 
 (define %editor
-  (make-parameter (or (getenv "VISUAL") (getenv "EDITOR")
-                      "emacsclient")))
+  ;; XXX: It would be better to default to something more likely to be
+  ;; pre-installed on an average GNU system.  Since Nano is not suited for
+  ;; editing Scheme, Emacs is used instead.
+  (make-parameter (or (getenv "VISUAL") (getenv "EDITOR") "emacs")))
 
 (define (search-path* path file)
   "Like 'search-path' but exit if FILE is not found."