projects
/
elisp
/
semi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
031d643
)
Rename `mime-view-cinfo' -> `mime-view-entity-info'.
author
morioka
<morioka>
Fri, 13 Mar 1998 17:53:13 +0000
(17:53 +0000)
committer
morioka
<morioka>
Fri, 13 Mar 1998 17:53:13 +0000
(17:53 +0000)
mime-play.el
patch
|
blob
|
history
mime-view.el
patch
|
blob
|
history
diff --git
a/mime-play.el
b/mime-play.el
index
312d900
..
afc794c
100644
(file)
--- a/
mime-play.el
+++ b/
mime-play.el
@@
-45,7
+45,7
@@
If MODE is specified, play as it. Default MODE is \"play\"."
(or mode
(setq mode "play")
)
(or mode
(setq mode "play")
)
- (let ((cinfo (get-text-property (point) 'mime-view-cinfo)))
+ (let ((cinfo (get-text-property (point) 'mime-view-entity-info)))
(if cinfo
(let ((the-buf (current-buffer))
(raw-buffer (get-text-property (point) 'mime-view-raw-buffer))
(if cinfo
(let ((the-buf (current-buffer))
(raw-buffer (get-text-property (point) 'mime-view-raw-buffer))
diff --git
a/mime-view.el
b/mime-view.el
index
387b1a6
..
cc3176b
100644
(file)
--- a/
mime-view.el
+++ b/
mime-view.el
@@
-506,7
+506,7
@@
The compressed face will be piped to this command.")
(setq ne (point-max))
(widen)
(put-text-property nb ne 'mime-view-raw-buffer ibuf)
(setq ne (point-max))
(widen)
(put-text-property nb ne 'mime-view-raw-buffer ibuf)
- (put-text-property nb ne 'mime-view-cinfo content)
+ (put-text-property nb ne 'mime-view-entity-info content)
(goto-char ne)
))
(goto-char ne)
))
@@
-846,7
+846,7
@@
button-2 Move to point under the mouse cursor
(setq mime-mother-buffer mother)
))
(mime-view-define-keymap default-keymap-or-function)
(setq mime-mother-buffer mother)
))
(mime-view-define-keymap default-keymap-or-function)
- (let ((point (next-single-property-change (point-min) 'mime-view-cinfo)))
+ (let ((point (next-single-property-change (point-min) 'mime-view-entity-info)))
(if point
(goto-char point)
(goto-char (point-min))
(if point
(goto-char point)
(goto-char (point-min))
@@
-900,12
+900,12
@@
of the mother-buffer."
It calls following-method selected from variable
`mime-view-following-method-alist'."
(interactive)
It calls following-method selected from variable
`mime-view-following-method-alist'."
(interactive)
- (let ((root-cinfo (get-text-property (point-min) 'mime-view-cinfo))
+ (let ((root-cinfo (get-text-property (point-min) 'mime-view-entity-info))
cinfo)
cinfo)
- (while (null (setq cinfo (get-text-property (point) 'mime-view-cinfo)))
+ (while (null (setq cinfo (get-text-property (point) 'mime-view-entity-info)))
(backward-char)
)
(backward-char)
)
- (let* ((p-beg (previous-single-property-change (point) 'mime-view-cinfo))
+ (let* ((p-beg (previous-single-property-change (point) 'mime-view-entity-info))
p-end
(rcnum (mime-entity-info-reversed-number cinfo))
(len (length rcnum))
p-end
(rcnum (mime-entity-info-reversed-number cinfo))
(len (length rcnum))
@@
-913,16
+913,16
@@
It calls following-method selected from variable
(cond ((null p-beg)
(setq p-beg
(if (eq (next-single-property-change (point-min)
(cond ((null p-beg)
(setq p-beg
(if (eq (next-single-property-change (point-min)
- 'mime-view-cinfo)
+ 'mime-view-entity-info)
(point))
(point)
(point-min)))
)
(point))
(point)
(point-min)))
)
- ((eq (next-single-property-change p-beg 'mime-view-cinfo)
+ ((eq (next-single-property-change p-beg 'mime-view-entity-info)
(point))
(setq p-beg (point))
))
(point))
(setq p-beg (point))
))
- (setq p-end (next-single-property-change p-beg 'mime-view-cinfo))
+ (setq p-end (next-single-property-change p-beg 'mime-view-entity-info))
(cond ((null p-end)
(setq p-end (point-max))
)
(cond ((null p-end)
(setq p-end (point-max))
)
@@
-936,11
+936,11
@@
It calls following-method selected from variable
(let (e)
(while (setq e
(next-single-property-change
(let (e)
(while (setq e
(next-single-property-change
- (point) 'mime-view-cinfo))
+ (point) 'mime-view-entity-info))
(goto-char e)
(let ((rc (mime-entity-info-reversed-number
(get-text-property (point)
(goto-char e)
(let ((rc (mime-entity-info-reversed-number
(get-text-property (point)
- 'mime-view-cinfo))))
+ 'mime-view-entity-info))))
(or (equal rcnum (nthcdr (- (length rc) len) rc))
(throw 'tag nil)
))
(or (equal rcnum (nthcdr (- (length rc) len) rc))
(throw 'tag nil)
))
@@
-1050,18
+1050,18
@@
It calls following-method selected from variable
If there is no upper entity, call function `mime-preview-quit'."
(interactive)
(let (cinfo)
If there is no upper entity, call function `mime-preview-quit'."
(interactive)
(let (cinfo)
- (while (null (setq cinfo (get-text-property (point) 'mime-view-cinfo)))
+ (while (null (setq cinfo (get-text-property (point) 'mime-view-entity-info)))
(backward-char)
)
(let ((r (mime-raw-reversed-entity-number-to-entity-info
(cdr (mime-entity-info-reversed-number cinfo))
(backward-char)
)
(let ((r (mime-raw-reversed-entity-number-to-entity-info
(cdr (mime-entity-info-reversed-number cinfo))
- (get-text-property 1 'mime-view-cinfo)))
+ (get-text-property 1 'mime-view-entity-info)))
point)
(catch 'tag
(while (setq point (previous-single-property-change
point)
(catch 'tag
(while (setq point (previous-single-property-change
- (point) 'mime-view-cinfo))
+ (point) 'mime-view-entity-info))
(goto-char point)
(goto-char point)
- (if (eq r (get-text-property (point) 'mime-view-cinfo))
+ (if (eq r (get-text-property (point) 'mime-view-entity-info))
(throw 'tag t)
)
)
(throw 'tag t)
)
)
@@
-1073,10
+1073,10
@@
If there is no upper entity, call function `mime-preview-quit'."
If there is no previous entity, it calls function registered in
variable `mime-view-over-to-previous-method-alist'."
(interactive)
If there is no previous entity, it calls function registered in
variable `mime-view-over-to-previous-method-alist'."
(interactive)
- (while (null (get-text-property (point) 'mime-view-cinfo))
+ (while (null (get-text-property (point) 'mime-view-entity-info))
(backward-char)
)
(backward-char)
)
- (let ((point (previous-single-property-change (point) 'mime-view-cinfo)))
+ (let ((point (previous-single-property-change (point) 'mime-view-entity-info)))
(if point
(goto-char point)
(let ((f (assq mime-preview-original-major-mode
(if point
(goto-char point)
(let ((f (assq mime-preview-original-major-mode
@@
-1091,7
+1091,7
@@
variable `mime-view-over-to-previous-method-alist'."
If there is no previous entity, it calls function registered in
variable `mime-view-over-to-next-method-alist'."
(interactive)
If there is no previous entity, it calls function registered in
variable `mime-view-over-to-next-method-alist'."
(interactive)
- (let ((point (next-single-property-change (point) 'mime-view-cinfo)))
+ (let ((point (next-single-property-change (point) 'mime-view-entity-info)))
(if point
(goto-char point)
(let ((f (assq mime-preview-original-major-mode
(if point
(goto-char point)
(let ((f (assq mime-preview-original-major-mode
@@
-1116,7
+1116,7
@@
If reached to (point-max), it calls function registered in variable
(funcall (cdr f))
))
(let ((point
(funcall (cdr f))
))
(let ((point
- (or (next-single-property-change (point) 'mime-view-cinfo)
+ (or (next-single-property-change (point) 'mime-view-entity-info)
(point-max))))
(forward-line h)
(if (> (point) point)
(point-max))))
(forward-line h)
(if (> (point) point)
@@
-1144,7
+1144,7
@@
If reached to (point-min), it calls function registered in variable
(while (> (point) 1)
(if (setq point
(previous-single-property-change (point)
(while (> (point) 1)
(if (setq point
(previous-single-property-change (point)
- 'mime-view-cinfo))
+ 'mime-view-entity-info))
(throw 'tag t)
)
(backward-char)
(throw 'tag t)
)
(backward-char)