From 1bd71e9fe16541bc48868a00ff372018961380b0 Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Sat, 5 Jan 2013 07:54:08 +0900 Subject: [PATCH] * epg.el: Silence byte-compiler warnings. --- lisp/ChangeLog | 6 ++++++ lisp/epg.el | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 60b25d5ff66..5b54d34743c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2013-01-04 Daiki Ueno + + * 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 * epg.el (epg--start): Don't call "tty" program on W32 platforms. diff --git a/lisp/epg.el b/lisp/epg.el index 01f7210c9a9..3f04aa2e07a 100644 --- a/lisp/epg.el +++ b/lisp/epg.el @@ -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)))) -- 2.39.5