From: Daiki Ueno <ueno@debian>
Date: Fri, 4 Jan 2013 22:54:08 +0000 (+0900)
Subject: * epg.el: Silence byte-compiler warnings.
X-Git-Tag: emacs-24.3.90~173^2~7^2~399
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1bd71e9fe16541bc48868a00ff372018961380b0;p=emacs.git

* epg.el: Silence byte-compiler warnings.
---

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