(when (and (> (current-column) 0)
(> (car (image-size image t)) 400))
(insert "\n"))
- (insert-image image (or alt "*")))
+ (insert-image image (or alt "*"))
+ (when (image-animated-p image)
+ (image-animate image nil 60)))
image)
(insert alt)))
:width window-width
:ascent 100)
image)))
- (when (and (fboundp 'create-animated-image)
- (eq (image-type data nil t) 'gif))
- (setq image (create-animated-image data 'gif t
- :ascent 100)))
image)))
;; url-cache-extract autoloads url-cache.
(defun shr-tag-script (cont)
)
+(defun shr-tag-comment (cont)
+ )
+
(defun shr-tag-sup (cont)
(let ((start (point)))
(shr-generic cont)