diff lisp/replace.el @ 5473:ac37a5f7e5be

Merge with trunk.
author Mats Lidell <matsl@xemacs.org>
date Thu, 17 Mar 2011 23:42:59 +0100
parents 308d34e9f07d f00192e1cd49
children c6b1500299a7
line wrap: on
line diff
--- a/lisp/replace.el	Tue Feb 22 22:56:02 2011 +0100
+++ b/lisp/replace.el	Thu Mar 17 23:42:59 2011 +0100
@@ -151,7 +151,7 @@
   (let (replacements)
     (if (listp to-strings)
 	(setq replacements to-strings)
-      (while (/= (length to-strings) 0)
+      (while (not (eql (length to-strings) 0))
 	(if (string-match " " to-strings)
 	    (setq replacements
 		  (append replacements