From 6237b9fa39c6ab3283c50b96520b990c8612abc1 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 11 Nov 2015 22:59:35 +0100 Subject: edit: Honor $VISUAL. Suggested by Andreas Enge . * guix/scripts/edit.scm (%editor): Honor 'VISUAL' before 'EDITOR'. (show-help): Adjust accordingly. * doc/guix.texi (Invoking guix edit): Likewise. --- guix/scripts/edit.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'guix') diff --git a/guix/scripts/edit.scm b/guix/scripts/edit.scm index 0509148c4d..73a5bb78d2 100644 --- a/guix/scripts/edit.scm +++ b/guix/scripts/edit.scm @@ -38,7 +38,7 @@ (define %options (define (show-help) (display (_ "Usage: guix edit PACKAGE... -Start $EDITOR to edit the definitions of PACKAGE...\n")) +Start $VISUAL or $EDITOR to edit the definitions of PACKAGE...\n")) (newline) (display (_ " -h, --help display this help and exit")) @@ -48,7 +48,8 @@ (define (show-help) (show-bug-report-information)) (define %editor - (make-parameter (or (getenv "EDITOR") "emacsclient"))) + (make-parameter (or (getenv "VISUAL") (getenv "EDITOR") + "emacsclient"))) (define (search-path* path file) "Like 'search-path' but exit if FILE is not found." -- cgit v1.2.3