unofficial mirror of bug-guile@gnu.org 
 help / color / mirror / Atom feed
From: Mark H Weaver <mhw@netris.org>
To: David Michael <fedora.dm0@gmail.com>
Cc: 18439-done@debbugs.gnu.org
Subject: bug#18439: [PATCH] guile-readline: Use the current directory if HOME is unset
Date: Sun, 21 Sep 2014 23:26:38 -0400	[thread overview]
Message-ID: <87bnq8l4i9.fsf@yeeloong.lan> (raw)
In-Reply-To: <87r3z6qrna.fsf@gmail.com> (David Michael's message of "Sat, 20 Sep 2014 10:43:21 -0400")

severity 18439 wishlist
tags 18439 notabug
thanks

David Michael <fedora.dm0@gmail.com> writes:

> * guile-readline/ice-9/readline.scm (history-file): When the HOME
>   environment variable is unset, use the current directory instead.
> ---
>  guile-readline/ice-9/readline.scm | 3 ++-
>  1 file changed, 2 insertions(+), 1 deletion(-)
>
> diff --git a/guile-readline/ice-9/readline.scm b/guile-readline/ice-9/readline.scm
> index 02e68af..df2edaf 100644
> --- a/guile-readline/ice-9/readline.scm
> +++ b/guile-readline/ice-9/readline.scm
> @@ -119,7 +119,8 @@
>  (define-once the-readline-port #f)
>  
>  (define-once history-variable "GUILE_HISTORY")
> -(define-once history-file (string-append (getenv "HOME") "/.guile_history"))
> +(define-once history-file
> +  (string-append (or (getenv "HOME") ".") "/.guile_history"))
>  
>  (define-public readline-port
>    (let ((do (lambda (r/w)

Pushed to the stable-2.0 branch, commit
3a3316e200ac49f0e8e9004c233747efd9f54a04.
I'm closing this ticket now.

     Thanks!
       Mark





      reply	other threads:[~2014-09-22  3:26 UTC|newest]

Thread overview: 4+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2014-09-10  0:13 bug#18439: [PATCH] guile-readline: Use an empty string if HOME is unset David Michael
2014-09-20 14:09 ` Mark H Weaver
2014-09-20 14:43 ` bug#18439: [PATCH] guile-readline: Use the current directory " David Michael
2014-09-22  3:26   ` Mark H Weaver [this message]

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.gnu.org/software/guile/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=87bnq8l4i9.fsf@yeeloong.lan \
    --to=mhw@netris.org \
    --cc=18439-done@debbugs.gnu.org \
    --cc=fedora.dm0@gmail.com \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body. 
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).