diff options
Diffstat (limited to 'lisp/epg.el')
| -rw-r--r-- | lisp/epg.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/epg.el b/lisp/epg.el index 6be3ba15a97..ff32661ada9 100644 --- a/lisp/epg.el +++ b/lisp/epg.el @@ -1167,9 +1167,11 @@ This function is for internal use only." ;; use `terminal-name' here to get the real pty name for the child ;; process, though /dev/fd/0" is not portable. (with-temp-buffer - (when (= (call-process "tty" "/dev/fd/0" t) 0) - (delete-backward-char 1) - (setq terminal-name (buffer-string)))) + (condition-case nil + (when (= (call-process "tty" "/dev/fd/0" t) 0) + (delete-backward-char 1) + (setq terminal-name (buffer-string))) + (file-error))) (when terminal-name (setq process-environment (cons (concat "GPG_TTY=" terminal-name) |