diff options
| author | Bill Wohler <wohler@newt.com> | 2011-07-09 13:19:10 -0700 |
|---|---|---|
| committer | Bill Wohler <wohler@newt.com> | 2011-07-09 13:19:10 -0700 |
| commit | 5a47220aaa77a27bf26e082789efe3c2da7fec9d (patch) | |
| tree | 52e7135166a45c13e0e55e9201805b5f2d3ec359 | |
| parent | c0a7f30097617435ab8520b78cb135e9255d8f51 (diff) | |
| download | emacs-5a47220aaa77a27bf26e082789efe3c2da7fec9d.tar.gz | |
* mh-xface.el (mh-face-to-png, mh-uncompface)
(mh-picon-file-contents): Only call set-buffer-multibyte if it exists,
which it doesn't in XEmacs.
| -rw-r--r-- | lisp/mh-e/mh-xface.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/mh-e/mh-xface.el b/lisp/mh-e/mh-xface.el index 027d79a948a..1c7531b59d1 100644 --- a/lisp/mh-e/mh-xface.el +++ b/lisp/mh-e/mh-xface.el @@ -125,7 +125,8 @@ in this order is used." (defun mh-face-to-png (data) "Convert base64 encoded DATA to png image." (with-temp-buffer - (set-buffer-multibyte nil) + (if (fboundp 'set-buffer-multibyte) + (set-buffer-multibyte nil)) (insert data) (ignore-errors (base64-decode-region (point-min) (point-max))) (buffer-string))) @@ -133,7 +134,8 @@ in this order is used." (defun mh-uncompface (data) "Run DATA through `uncompface' to generate bitmap." (with-temp-buffer - (set-buffer-multibyte nil) + (if (fboundp 'set-buffer-multibyte) + (set-buffer-multibyte nil)) (insert data) (when (and mh-uncompface-executable (equal (call-process-region (point-min) (point-max) @@ -271,7 +273,8 @@ file contents as a string is returned. If FILE is nil, then both elements of the list are nil." (if (stringp file) (with-temp-buffer - (set-buffer-multibyte nil) + (if (fboundp 'set-buffer-multibyte) + (set-buffer-multibyte nil)) (let ((type (and (string-match ".*\\.\\(...\\)$" file) (intern (match-string 1 file))))) (insert-file-contents-literally file) |