Mercurial > emacs
comparison lisp/gnus/gnus-ems.el @ 93725:2ca2b5f1a567
(gnus-x-splash): Avoid binding default-enable-multibyte-characters.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 05 Apr 2008 20:08:27 +0000 |
| parents | 107ccd98fa12 |
| children | 851c4b94b564 |
comparison
equal
deleted
inserted
replaced
| 93724:ed8dca79d6ab | 93725:2ca2b5f1a567 |
|---|---|
| 177 pixmap fcw fch width height fringes sbars left yoffset top ls) | 177 pixmap fcw fch width height fringes sbars left yoffset top ls) |
| 178 (erase-buffer) | 178 (erase-buffer) |
| 179 (sit-for 0) ;; Necessary for measuring the window size correctly. | 179 (sit-for 0) ;; Necessary for measuring the window size correctly. |
| 180 (when (and file | 180 (when (and file |
| 181 (ignore-errors | 181 (ignore-errors |
| 182 (let ((coding-system-for-read 'raw-text) | 182 (let ((coding-system-for-read 'raw-text)) |
| 183 default-enable-multibyte-characters) | |
| 184 (with-temp-buffer | 183 (with-temp-buffer |
| 184 (mm-disable-multibyte) | |
| 185 (insert-file-contents file) | 185 (insert-file-contents file) |
| 186 (goto-char (point-min)) | 186 (goto-char (point-min)) |
| 187 (setq pixmap (read (current-buffer))))))) | 187 (setq pixmap (read (current-buffer))))))) |
| 188 (setq fcw (float (frame-char-width)) | 188 (setq fcw (float (frame-char-width)) |
| 189 fch (float (frame-char-height)) | 189 fch (float (frame-char-height)) |