From: morioka <morioka>
Date: Tue, 20 Jul 1999 04:55:25 +0000 (+0000)
Subject: (detect-paragraph-cited-prefix): Use `if' instead of `when'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9489fee19a3cdbff272535654ca022cfd9b814dd;p=elisp%2Fmu-cite.git

(detect-paragraph-cited-prefix): Use `if' instead of `when'.
---

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 "")))))