From 4e9a0bee7dc3d8a83275c49c6dacb1a967f5b623 Mon Sep 17 00:00:00 2001 From: teranisi Date: Tue, 4 Jul 2000 12:12:35 +0000 Subject: [PATCH] (mime-image-insert) [XEmacs]: Insert `string' only if it is non-nil. --- mime-image.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/mime-image.el b/mime-image.el index 48e1230..76c2335 100644 --- a/mime-image.el +++ b/mime-image.el @@ -96,7 +96,10 @@ glyph))) (defun mime-image-insert (image &optional string area) - (let ((extent (make-extent (point) (progn (insert string)(point))))) + (let ((extent (make-extent (point) + (progn (and string + (insert string)) + (point))))) (set-extent-property extent 'invisible t) (set-extent-end-glyph extent image)))) (condition-case nil -- 1.7.10.4