Mercurial > hg > xemacs-beta
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