From c040c4fcc903028101a5806832bc75fd11e2222a Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 20 Jul 1999 04:56:03 +0000 Subject: [PATCH] (fill-cited-region): Use `if' instead of `when'. --- mu-cite.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/mu-cite.el b/mu-cite.el index ec059be..87ec6ed 100644 --- a/mu-cite.el +++ b/mu-cite.el @@ -429,12 +429,12 @@ TABLE defaults to the current buffer's category table." (let ((b (match-beginning 0)) (e (match-end 0))) (delete-region b e) - (when (and (> b (point-min)) - (let ((cat (char-category - (char-before b)))) - (or (string-match "a" cat) - (string-match "l" cat)))) - (insert " ")))) + (if (and (> b (point-min)) + (let ((cat (char-category + (char-before b)))) + (or (string-match "a" cat) + (string-match "l" cat)))) + (insert " ")))) (goto-char (point-min)) (fill-region (point-min) (point-max)))))) -- 1.7.10.4