From a2416e212f9105c8e39834ad46fe9bbfe9683f39 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Tue, 18 Apr 1995 18:29:05 +0000 Subject: [PATCH] (tags-search, tags-query-replace): Put (quote ...) around args inserted into forms to be evalled. --- lisp/progmodes/etags.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 68d56bca5d3..073bf862bb5 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -1365,7 +1365,7 @@ See documentation of variable `tags-file-name'." ;; 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 @@ with the command \\[tags-loop-continue]. 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 -- 2.39.5