From 289e68f079882fbcb0a17e412da5a545021c32b7 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Wed, 9 Jun 2004 12:08:46 +0000 Subject: [PATCH] (message-text-with-property): Remove useless progn. --- lisp/message.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/lisp/message.el b/lisp/message.el index c02b7686b..4da7bba44 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -3493,12 +3493,11 @@ not have PROP." (setq end (point-max))) (let (next regions) (if reverse - (progn - (while (and start - (setq start (text-property-any start end prop nil))) - (setq next (next-single-property-change start prop nil end)) - (push (cons start (or next end)) regions) - (setq start next))) + (while (and start + (setq start (text-property-any start end prop nil))) + (setq next (next-single-property-change start prop nil end)) + (push (cons start (or next end)) regions) + (setq start next)) (while (and start (or (get-text-property start prop) (and (setq start (next-single-property-change -- 2.25.1