mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

* epg.el: Silence byte-compiler warnings.

Browse Source
This commit is contained in:
Daiki Ueno 2013-01-05 07:54:08 +09:00
parent 00cd4c1cbd
commit 1bd71e9fe1
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2013-01-04 Daiki Ueno <ueno@gnu.org>
* epg.el: Silence byte-compiler warnings.
(epg--start): Use delete-char instead of delete-backward-char.
(epg-wait-for-completion): Pass FRAME arg to redraw-frame.
2013-01-04 Daiki Ueno <ueno@gnu.org>
* epg.el (epg--start): Don't call "tty" program on W32 platforms.

4
lisp/epg.el
View File

@ -1170,7 +1170,7 @@ This function is for internal use only."
(with-temp-buffer
(condition-case nil
(when (= (call-process "tty" "/dev/fd/0" t) 0)
(delete-backward-char 1)
(delete-char -1)
(setq terminal-name (buffer-string)))
(file-error))))
(when terminal-name
@ -1300,7 +1300,7 @@ This function is for internal use only."
(> (float-time (or (nth 5 (file-attributes epg-agent-file))
'(0 0 0 0)))
(float-time epg-agent-mtime))))
(redraw-frame))
(redraw-frame (selected-frame)))
(epg-context-set-result-for
context 'error
(nreverse (epg-context-result-for context 'error))))