From: yamaoka Date: Tue, 5 Nov 2002 14:53:45 +0000 (+0000) Subject: Synch with the semi-1_14 branch. X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3532faa7c8db1d613cd7605ce8eb92f7e9953554;p=elisp%2Fsemi.git Synch with the semi-1_14 branch. --- diff --git a/ChangeLog b/ChangeLog index 6eaab4c..3454c23 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2002-11-05 Yoichi NAKAYAMA + + * mime-view.el (mime-preview-find-boundary-info): Change the name of + the argument from get-mother to with-children along its effect. + 2002-11-03 Yoichi NAKAYAMA * mime-edit.el (mime-edit-decode-single-part-in-buffer): Decode text diff --git a/mime-view.el b/mime-view.el index 7dca53f..ac6acb5 100644 --- a/mime-view.el +++ b/mime-view.el @@ -1473,9 +1473,9 @@ button-2 Move to point under the mouse cursor ;;; @@ utility ;;; -(defun mime-preview-find-boundary-info (&optional get-mother) +(defun mime-preview-find-boundary-info (&optional with-children) "Return boundary information of current part. -If GET-MOTHER, refer boundary surrounding current part and its branches." +If WITH-CHILDREN, refer boundary surrounding current part and its branches." (let (entity p-beg p-end entity-node-id len) @@ -1504,7 +1504,7 @@ If GET-MOTHER, refer boundary surrounding current part and its branches." ((null entity-node-id) (setq p-end (point-max)) ) - (get-mother + (with-children (save-excursion (catch 'tag (let (e i)