* epg.el: Silence byte-compiler warnings.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 60b25d5..5b54d34 100644 (file)
--- 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 01f7210..3f04aa2 100644 (file)
--- 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))))