mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 13:52:16 -08:00
Code Issues Projects Releases Packages Wiki Activity

New function to search & replace through the ECL project using regexp.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-06-07 23:50:58 +02:00
parent 235a587cc6
commit f062b726cc
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/util/emacs.el
View file

@ -43,6 +43,17 @@
(perform-replace from-string to-string t nil delimited nil nil
start end))))
(defun query-replace-regexp-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)))
(query-replace-regexp from-string to-string delimited start end))))
(defun search-ecl (string)
(interactive "sString: ")
(setq ecl-search-string string)