Index: auctex/preview/preview.el
diff -u auctex/preview/preview.el:1.254 auctex/preview/preview.el:1.255
--- auctex/preview/preview.el:1.254 Wed Apr 27 16:16:38 2005
+++ auctex/preview/preview.el Wed Apr 27 18:24:09 2005
@@ -22,7 +22,7 @@
;;; Commentary:
-;; $Id: preview.el,v 1.254 2005/04/27 16:16:38 dak Exp $
+;; $Id: preview.el,v 1.255 2005/04/27 18:24:09 dak Exp $
;;
;; This style is for the "seamless" embedding of generated images
;; into LaTeX source code. Please see the README and INSTALL files
@@ -3388,10 +3388,12 @@
(setq TeX-sentinel-function 'preview-TeX-inline-sentinel)
(when (featurep 'mule)
(setq preview-coding-system
- (preview-buffer-recode-system
- (coding-system-base
- (with-current-buffer TeX-command-buffer
- buffer-file-coding-system))))
+ (with-current-buffer TeX-command-buffer
+ buffer-file-coding-system))
+ (when preview-coding-system
+ (setq preview-coding-system
+ (preview-buffer-recode-system
+ (coding-system-base preview-coding-system))))
(set-process-coding-system
process preview-coding-system))
(TeX-parse-reset)
@@ -3405,7 +3407,7 @@
(defconst preview-version (eval-when-compile
(let ((name "$Name: $")
- (rev "$Revision: 1.254 $"))
+ (rev "$Revision: 1.255 $"))
(or (if (string-match "\\`[$]Name: *\\([^ ]+\\) *[$]\\'" name)
(match-string 1 name))
(if (string-match "\\`[$]Revision: *\\([^ ]+\\) *[$]\\'" rev)
@@ -3416,7 +3418,7 @@
(defconst preview-release-date
(eval-when-compile
- (let ((date "$Date: 2005/04/27 16:16:38 $"))
+ (let ((date "$Date: 2005/04/27 18:24:09 $"))
(string-match
"\\`[$]Date: *\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)"
date)
_______________________________________________
auctex-diffs mailing list
[EMAIL PROTECTED]
http://lists.gnu.org/mailman/listinfo/auctex-diffs
