[mew-dist 29157] アニメーション GIF
Hideyuki SHIRAI (白井秀行) <[email protected]>
| Newsgroups | gmane.mail.mew.general.japanese |
|---|---|
| Organization | Resident at Meadowy farm. |
| Message-ID | <[email protected]> |
白井です。 Emacs の trunk がアニメーション GIF に対応したので(簡単な)パッチ です。mew-demo もちょっと改造しないとちゃんと出ませんが動きます。 -- 白井秀行 (mailto:[email protected])
mew-animate-gif.diff
(text/x-patch, 1.9 KB)
Index: mew-demo.el
===================================================================
RCS file: /cvsroot/shirai/mew/mew/mew-demo.el,v
retrieving revision 1.28
diff -u -r1.28 mew-demo.el
--- mew-demo.el 14 Mar 2010 03:41:06 -0000 1.28
+++ mew-demo.el 14 Mar 2010 03:41:39 -0000
@@ -66,7 +66,7 @@
(fboundp 'image-type-available-p)
(image-type-available-p 'png))
(goto-char (point-max))
- (setq mew-logo (create-image
+ (setq mew-logo (mew-create-image
(expand-file-name mew-icon-mew mew-icon-directory)))
(setq indent (/ (- (window-width)
(truncate (car (image-size mew-logo)))) 2))
Index: mew-env.el
===================================================================
RCS file: /cvsroot/shirai/mew/mew/mew-env.el,v
retrieving revision 1.80
diff -u -r1.80 mew-env.el
--- mew-env.el 14 Mar 2010 03:41:06 -0000 1.80
+++ mew-env.el 14 Mar 2010 03:41:39 -0000
@@ -272,6 +272,10 @@
nil
str))))
+(if (fboundp 'create-animated-image)
+ (defalias 'mew-create-image 'create-animated-image)
+ (defalias 'mew-create-image 'create-image))
+
(provide 'mew-env)
;;; Copyright Notice:
Index: mew-gemacs.el
===================================================================
RCS file: /cvsroot/shirai/mew/mew/mew-gemacs.el,v
retrieving revision 1.55
diff -u -r1.55 mew-gemacs.el
--- mew-gemacs.el 14 Mar 2010 03:41:06 -0000 1.55
+++ mew-gemacs.el 14 Mar 2010 03:41:39 -0000
@@ -307,7 +307,7 @@
(setq image (mew-buffer-substring (point-min) (point-max)))))
(mew-elet
(condition-case nil
- (insert-image (create-image image format t))
+ (insert-image (mew-create-image image format t))
(error ()))))
(goto-char (point-min))
(message "Loading image...done"))
@@ -326,7 +326,7 @@
;;;
(defun mew-x-face-create ()
- (create-image
+ (mew-create-image
(string-as-unibyte (mew-buffer-substring (point-min) (point-max)))
nil t))