[Emacs-diffs] /srv/bzr/emacs/trunk r111423: * epg.el: Silence byte-compiler warnings.

[Daiki Ueno]

------------------------------------------------------------
revno: 111423
committer: Daiki Ueno <address@hidden>
branch nick: trunk
timestamp: Sat 2013-01-05 07:54:08 +0900
message:
  * epg.el: Silence byte-compiler warnings.
modified:
  lisp/ChangeLog
  lisp/epg.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-01-04 22:51:52 +0000
+++ b/lisp/ChangeLog    2013-01-04 22:54:08 +0000
@@ -1,5 +1,11 @@
 2013-01-04  Daiki Ueno  <address@hidden>
 
+       * 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  <address@hidden>
+
        * epg.el (epg--start): Don't call "tty" program on W32 platforms.
        Suggested by Eli Zaretskii  <address@hidden>.
 

=== modified file 'lisp/epg.el'
--- a/lisp/epg.el       2013-01-04 22:51:52 +0000
+++ b/lisp/epg.el       2013-01-04 22:54:08 +0000
@@ -1170,7 +1170,7 @@
       (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 @@
             (> (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))))