Mercurial > emacs

changeset 11482:d81023e5f033

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tags-search, tags-query-replace): Put (quote ...) around args inserted into forms to be evalled.
author Roland McGrath <roland@gnu.org>
date Tue, 18 Apr 1995 18:29:05 +0000
parents af7833ecb551
children 089f81a81ba6
files lisp/progmodes/etags.el
diffstat 1 files changed, 6 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/etags.el	Tue Apr 18 18:13:13 1995 +0000
+++ b/lisp/progmodes/etags.el	Tue Apr 18 18:29:05 1995 +0000
@@ -1365,7 +1365,7 @@
       ;; Continue last tags-search as if by M-,.
       (tags-loop-continue nil)
     (setq tags-loop-scan
-	  (list 're-search-forward regexp nil t)
+	  (list 're-search-forward (list 'quote regexp) nil t)
 	  tags-loop-operate nil)
     (tags-loop-continue (or file-list-form t))))
 
@@ -1379,12 +1379,15 @@
 See documentation of variable `tags-file-name'."
   (interactive (query-replace-read-args "Tags query replace (regexp)" t))
   (setq tags-loop-scan (list 'prog1
-			     (list 'if (list 're-search-forward from nil t)
+			     (list 'if (list 're-search-forward
+					     (list 'quote from) nil t)
 				   ;; When we find a match, move back
 				   ;; to the beginning of it so perform-replace
 				   ;; will see it.
 				   '(goto-char (match-beginning 0))))
-	tags-loop-operate (list 'perform-replace from to t t delimited))
+	tags-loop-operate (list 'perform-replace
+				(list 'quote from) (list 'quote to)
+				t t (list 'quote delimited)))
   (tags-loop-continue (or file-list-form t)))
 
 ;;;###autoload