diff options
| author | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2024-01-21 09:59:52 +0100 |
|---|---|---|
| committer | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2024-01-21 09:59:55 +0100 |
| commit | ff1ec930e5baa00b483f1ce43fa8bec18c797c03 (patch) | |
| tree | 1c102408d5d79e12b70fe81f97602d3856ed334e /guix/scripts/edit.scm | |
| parent | 60c97924e9519361494aaf0686e28eb831a42315 (diff) | |
| parent | c7f937cfdd9a08bad81705fe731e9fa5937cf562 (diff) | |
Merge branch 'master' into emacs-team
Diffstat (limited to 'guix/scripts/edit.scm')
| -rw-r--r-- | guix/scripts/edit.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/guix/scripts/edit.scm b/guix/scripts/edit.scm index ff2d529bcf..b7b4cd2514 100644 --- a/guix/scripts/edit.scm +++ b/guix/scripts/edit.scm @@ -64,7 +64,11 @@ Start $VISUAL or $EDITOR to edit the definitions of PACKAGE...\n")) (define (search-path* path file) "Like 'search-path' but exit if FILE is not found." - (let ((absolute-file-name (search-path path file))) + (let ((absolute-file-name (or (search-path path file) + ;; It could be that FILE is a relative name + ;; i.e., not relative to an element of PATH. + (and (file-exists? file) + file)))) (unless absolute-file-name ;; Shouldn't happen unless somebody fiddled with the 'location' field. (leave (G_ "file '~a' not found in search path ~s~%") |