From 45c6042fbc362a8a84dbab8022a69b372983123e Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Fri, 27 Jun 2003 10:22:39 +0000
Subject: [PATCH] Implement query-replace over the source tree

---
 src/util/emacs.el | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/src/util/emacs.el b/src/util/emacs.el
index 15fc9a49c..25074c4a0 100644
--- a/src/util/emacs.el
+++ b/src/util/emacs.el
@@ -31,6 +31,18 @@
 
 (defvar ecl-search-string)
 
+(defun query-replace-ecl (from-string to-string &optional delimited start end)
+  (interactive (query-replace-read-args "Query replace" nil))
+  (setq ecl-search-string from-string)
+  (let ((remaining (member (buffer-file-name (current-buffer)) ecl-files)))
+    (dolist (i (or remaining ecl-files))
+      (let ((b (find-buffer-visiting i)))
+	(unless (equal b (current-buffer))
+	  (switch-to-buffer b)
+	  (beginning-of-buffer)))
+      (perform-replace from-string to-string t nil delimited nil nil
+		       start end))))
+
 (defun search-ecl (string)
   (interactive "sString: ")
   (setq ecl-search-string string)
@@ -195,7 +207,6 @@
 "c/hash.d"
 "c/num_log.d"
 "c/structure.d"
-"c/clos.d"
 "c/num_pred.d"
 "c/symbol.d"
 "c/cmpaux.d"