Provide for customizing default regexp in hi-lock commands (Bug#13892).

* lisp/hi-lock.el (hi-lock-read-regexp-defaults-function): New var.
(hi-lock-read-regexp-defaults):	 New defun.
(hi-lock-line-face-buffer, hi-lock-face-buffer)
(hi-lock-face-phrase-buffer): Propagate above change.  Update
docstring.

* lisp/subr.el (find-tag-default-as-regexp): New defun.
* lisp/replace.el (read-regexp): Propagate above change.

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)))))