Skip to content

Commit

Permalink
elisp/repl: Expand 'temporary-file-directory'
Browse files Browse the repository at this point in the history
Reported by mekeor on #guix.

This variable may be set by a user, i.e. it may contain "~", so it
should be expanded.

* elisp/guix-repl.el (guix-repl-socket-file-name): Expand
  'temporary-file-directory'.
  • Loading branch information
alezost committed Jan 18, 2017
1 parent 2794ab9 commit ee56264
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions elisp/guix-repl.el
@@ -1,6 +1,6 @@
;;; guix-repl.el --- Making and using Guix REPL

;; Copyright © 2014–2016 Alex Kost <alezost@gmail.com>
;; Copyright © 2014–2017 Alex Kost <alezost@gmail.com>

;; This file is part of Emacs-Guix.

Expand Down Expand Up @@ -225,7 +225,8 @@ If INTERNAL is non-nil, return the value for the internal Guix REPL."
(defun guix-repl-socket-file-name ()
"Return a name of a socket file used by Guix REPL."
(make-temp-name
(concat (file-name-as-directory temporary-file-directory)
(concat (file-name-as-directory
(expand-file-name temporary-file-directory))
"guix-repl-")))

(defun guix-repl-delete-socket-maybe ()
Expand Down

0 comments on commit ee56264

Please sign in to comment.