From 74443f44963dcd6d461be0c1a480ec0e960be450 Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 29 Sep 1999 13:58:58 +0000 Subject: [PATCH] (mime-preview-play-current-entity): Use text-property `mime-view-situation' as the initial value of acting-situation to add major-mode. --- mime-play.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/mime-play.el b/mime-play.el index 0840304..b4a03a2 100644 --- a/mime-play.el +++ b/mime-play.el @@ -159,7 +159,15 @@ If MODE is specified, play as it. Default MODE is \"play\"." (interactive "P") (let ((entity (get-text-property (point) 'mime-view-entity))) (if entity - (let ((situation (list (cons 'mode (or mode "play"))))) + (let ((situation + (get-text-property (point) 'mime-view-situation))) + (or mode + (setq mode "play")) + (setq situation + (if (assq 'mode situation) + (put-alist 'mode mode (copy-alist situation)) + (cons (cons 'mode mode) + situation))) (if ignore-examples (setq situation (cons (cons 'ignore-examples ignore-examples) -- 1.7.10.4