summaryrefslogtreecommitdiff
path: root/lisp/epg.el
diff options
context:
space:
mode:
authorDaiki Ueno <ueno@debian>2013-01-05 07:54:08 +0900
committerDaiki Ueno <ueno@debian>2013-01-05 07:54:08 +0900
commit1bd71e9fe16541bc48868a00ff372018961380b0 (patch)
tree8cbeff430fe14401d38fb6a5b3a6b6931e6016eb /lisp/epg.el
parent00cd4c1cbd961403ae8e07fca4ffdbc26f84f5db (diff)
downloademacs-1bd71e9fe16541bc48868a00ff372018961380b0.tar.gz
* epg.el: Silence byte-compiler warnings.
Diffstat (limited to 'lisp/epg.el')
-rw-r--r--lisp/epg.el4
1 files changed, 2 insertions, 2 deletions
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))))