From 9489fee19a3cdbff272535654ca022cfd9b814dd Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 20 Jul 1999 04:55:25 +0000 Subject: [PATCH] (detect-paragraph-cited-prefix): 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 7d30ae9..ec059be 100644 --- a/mu-cite.el +++ b/mu-cite.el @@ -314,8 +314,8 @@ function according to the agreed upon standard." (let ((last-point (point)) (top (mu-cite-eval-format mu-cite-top-format)) (prefix (mu-cite-eval-format mu-cite-prefix-format))) - (when (re-search-forward "^-*$" nil nil) - (forward-line 1)) + (if (re-search-forward "^-*$" nil nil) + (forward-line 1)) (widen) (delete-region last-point (point)) (insert top) @@ -396,8 +396,8 @@ TABLE defaults to the current buffer's category table." (concat "[" citation-mark-chars "]") nil t) (progn (goto-char (match-end 0)) - (when (looking-at "[ \t]+") - (goto-char (match-end 0))) + (if (looking-at "[ \t]+") + (goto-char (match-end 0))) (buffer-substring (point-min)(point))) prefix))) ((progn @@ -407,8 +407,8 @@ TABLE defaults to the current buffer's category table." (re-search-backward (concat "[" citation-mark-chars "]") nil t)) (goto-char (match-end 0)) - (when (looking-at "[ \t]+") - (goto-char (match-end 0))) + (if (looking-at "[ \t]+") + (goto-char (match-end 0))) (buffer-substring (point-min)(point))) (t ""))))) -- 1.7.10.4