diff options
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 86b1aa27069..ceb0fe4a63e 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -603,15 +603,7 @@ If HISTORY is nil, `regexp-history' is used." (append suggestions (list - ;; Regexp for tag at point. - (let* ((tagf (or find-tag-default-function - (get major-mode 'find-tag-default-function) - 'find-tag-default)) - (tag (funcall tagf))) - (cond ((not tag) "") - ((eq tagf 'find-tag-default) - (format "\\_<%s\\_>" (regexp-quote tag))) - (t (regexp-quote tag)))) + (find-tag-default-as-regexp) (car regexp-search-ring) (regexp-quote (or (car search-ring) "")) (car (symbol-value query-replace-from-history-variable))))) |