Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

w3m-ems.el (w3m-create-image): Fix last change.

w3m.el (w3m-resize-inline-image-internal): Use w3m-image-animate.
w3m-xmas.el (w3m-image-animate): Alias to identity.
  • Loading branch information...
commit bbff9f108d86ea3b364d132f975c0347fa4dd3c6 1 parent 4d59999
yamaoka authored
Showing with 11 additions and 6 deletions.
  1. +4 −0 ChangeLog
  2. +2 −4 w3m-ems.el
  3. +3 −1 w3m-xmas.el
  4. +2 −1  w3m.el
View
4 ChangeLog
@@ -5,6 +5,10 @@
(w3m-image-animate): New function.
(w3m-create-image): Use it.
+ * w3m.el (w3m-resize-inline-image-internal): Use w3m-image-animate.
+
+ * w3m-xmas.el (w3m-image-animate): Alias to identity.
+
2012-12-10 Katsumi Yamaoka <yamaoka@jpl.org>
* w3m.el (w3m-decode-anchor-string): Decode url used to next/prev/...
View
6 w3m-ems.el
@@ -312,10 +312,8 @@ and its cdr element is used as height."
(plist-get (cdr image) :data)
(car set-size)(cdr set-size)
handler))
- (if resized (plist-put (cdr image) :data resized))
- image))
- (w3m-image-animate image)))
- (w3m-image-animate image)))))))
+ (if resized (plist-put (cdr image) :data resized)))))))
+ (w3m-image-animate image))))))
(defun w3m-create-resized-image (url rate &optional referer size handler)
"Resize an cached image object.
View
4 w3m-xmas.el
@@ -1,6 +1,6 @@
;;; w3m-xmas.el --- XEmacs stuff for emacs-w3m
-;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009, 2010
+;; Copyright (C) 2001-2010, 2012
;; TSUCHIYA Masatoshi <tsuchiya@namazu.org>
;; Authors: Yuuichi Teranishi <teranisi@gohome.org>,
@@ -531,6 +531,8 @@ A buffer string between BEG and END are replaced with IMAGE."
(and (device-on-window-system-p)
(featurep image-type)))
+(defalias 'w3m-image-animate 'identity)
+
;;; Toolbar:
(defcustom w3m-use-toolbar (and (featurep 'toolbar) t)
"Non-nil activates toolbar of w3m."
View
3  w3m.el
@@ -4132,7 +4132,8 @@ You are retrieving non-secure image(s). Continue? ")
(let ((inhibit-read-only t))
(w3m-static-when (featurep 'xemacs)
(w3m-remove-image start end))
- (w3m-insert-image start end image iurl))
+ (w3m-insert-image start end image iurl)
+ (w3m-image-animate image))
;; Redisplay
(when w3m-force-redisplay
(sit-for 0)))
Please sign in to comment.
Something went wrong with that request. Please try again.