mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

* epg.el (epg--start): Don't call "tty" program on W32 platforms.

Browse source
This commit is contained in:
Daiki Ueno 2013-01-05 07:51:52 +09:00
parent 0f668a4db4
commit 00cd4c1cbd
2 changed files with 12 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2013-01-04 Daiki Ueno <ueno@gnu.org>
* epg.el (epg--start): Don't call "tty" program on W32 platforms.
Suggested by Eli Zaretskii <eliz@gnu.org>.
2013-01-04 Michael Albinus <michael.albinus@gmx.de>
* net/tramp-sh.el (tramp-set-file-uid-gid): UID and GID must be

13
lisp/epg.el
View file

@ -1166,12 +1166,13 @@ This function is for internal use only."
;; Set GPG_TTY and TERM for pinentry-curses. Note that we can't
;; use `terminal-name' here to get the real pty name for the child
;; process, though /dev/fd/0" is not portable.
(with-temp-buffer
(condition-case nil
(when (= (call-process "tty" "/dev/fd/0" t) 0)
(delete-backward-char 1)
(setq terminal-name (buffer-string)))
(file-error)))
(unless (memq system-type '(ms-dos windows-nt))
(with-temp-buffer
(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)