2010年3月14日

[mew-dist 29157] アニメーション GIF

白井です。

Emacs の trunk がアニメーション GIF に対応したので(簡単な)パッチ
です。mew-demo もちょっと改造しないとちゃんと出ませんが動きます。

--
白井秀行 (mailto:shirai@xxxxx)

Content-Disposition: inline; filename="mew-animate-gif.diff"

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))

投稿者 xml-rpc : 2010年3月14日 12:44
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(0)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/94134
トラックバック
コメント
コメントする




画像の中に見える文字を入力してください。