mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

* epg.el (epg--start): Ignore errors when /dev/fd/0 does not exist.

Browse Source
This commit is contained in:
Daiki Ueno 2013-01-04 08:56:51 +09:00
parent a8aa6c2d08
commit c2cf1829dd
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2013-01-03 Daiki Ueno <ueno@gnu.org>
* epg.el (epg--start): Ignore errors when /dev/fd/0 does not
exist. (Bug#13344)
2013-01-03 Glenn Morris <rgm@gnu.org>
* mail/rmail.el (rmail-set-header-1): Ignore case.

8
lisp/epg.el
View File

@ -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)