projects
/
elisp
/
semi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(mime-raw-play-entity): Refer 'mime-view-find-every-acting-situation.
[elisp/semi.git]
/
mime-image.el
diff --git
a/mime-image.el
b/mime-image.el
index
05bbd92
..
a405a4a
100644
(file)
--- a/
mime-image.el
+++ b/
mime-image.el
@@
-116,8
+116,7
@@
(list (cons 'type type)(cons 'subtype subtype)
'(body . visible)
'(body-presentation-method . with-filter)
(list (cons 'type type)(cons 'subtype subtype)
'(body . visible)
'(body-presentation-method . with-filter)
- (cons 'body-filter
- #'mime-view-filter-for-image)
+ (cons 'body-filter #'mime-preview-filter-for-image)
(cons 'image-format format))
)))))
'((image jpeg jpeg)
(cons 'image-format format))
)))))
'((image jpeg jpeg)
@@
-137,7
+136,7
@@
;;;
;; (for XEmacs 19.12 or later)
;;;
;; (for XEmacs 19.12 or later)
-(defun mime-view-filter-for-image (situation)
+(defun mime-preview-filter-for-image (situation)
(let ((beg (point-min))
(end (point-max)))
(remove-text-properties beg end '(face nil))
(let ((beg (point-min))
(end (point-max)))
(remove-text-properties beg end '(face nil))
@@
-181,7
+180,7
@@
;; (defvar mime-view-ps-to-gif-command "pstogif")
;; (defvar mime-view-ps-to-gif-command "pstogif")
-;; (defun mime-view-filter-for-application/postscript (ctype params encoding)
+;; (defun mime-preview-filter-for-application/postscript (ctype params encoding)
;; (let* ((beg (point-min)) (end (point-max))
;; (file-base
;; (make-temp-name (expand-file-name "tm" mime-temp-directory)))
;; (let* ((beg (point-min)) (end (point-max))
;; (file-base
;; (make-temp-name (expand-file-name "tm" mime-temp-directory)))
@@
-207,7
+206,7
@@
;; (set-alist 'mime-view-content-filter-alist
;; "application/postscript"
;; (set-alist 'mime-view-content-filter-alist
;; "application/postscript"
-;; (function mime-view-filter-for-application/postscript))
+;; (function mime-preview-filter-for-application/postscript))
;; (if (featurep 'gif)
;; (add-to-list
;; (if (featurep 'gif)
;; (add-to-list