From b1d05ceee17137266c8a4729bb0180fe265baae4 Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 12 Apr 2006 07:22:50 +0000 Subject: [PATCH] Fixed. --- epg-file.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/epg-file.el b/epg-file.el index fc2123f..856af40 100644 --- a/epg-file.el +++ b/epg-file.el @@ -32,7 +32,8 @@ with GnuPG." (epg-file-run-real-handler 'write-region (list start end "/")) (file-error (if (boundp 'last-coding-system-used) - last-coding-system-used)))) + last-coding-system-used + buffer-file-coding-system)))) ;; start and end are normally buffer positions ;; specifying the part of the buffer to write. ;; If start is nil, that means to use the entire buffer contents. @@ -85,8 +86,8 @@ with GnuPG." (when (or (eq visit t) (stringp visit)) (setq buffer-file-name filename) (set-visited-file-modtime)) - (when (stringp visit) - (setq buffer-file-name visit)) + (if (stringp visit) + (setq buffer-file-name visit)) (when (or (eq visit t) (eq visit nil) (stringp visit)) (message "Wrote %s" visit-file)) (if (boundp 'last-coding-system-used) -- 1.7.10.4