# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1217342701 0
# Node ID e4097ac146eee1d3b433117d75b9001ec9a30f4c
# Parent  922b39c63813f8e47b50d4d81b0f9d282be2b86c
(hi-lock-line-face-buffer, hi-lock-face-buffer)
(hi-lock-face-phrase-buffer): Use `(car regexp-history)'
as the second arg of `read-regexp'.

diff -r 922b39c63813 -r e4097ac146ee lisp/hi-lock.el
--- a/lisp/hi-lock.el	Tue Jul 29 14:44:35 2008 +0000
+++ b/lisp/hi-lock.el	Tue Jul 29 14:45:01 2008 +0000
@@ -398,7 +398,8 @@
 \(See info node `Minibuffer History'.)"
   (interactive
    (list
-    (hi-lock-regexp-okay (read-regexp "Regexp to highlight line"))
+    (hi-lock-regexp-okay
+     (read-regexp "Regexp to highlight line" (car regexp-history)))
     (hi-lock-read-face-name)))
   (or (facep face) (setq face 'hi-yellow))
   (unless hi-lock-mode (hi-lock-mode 1))
@@ -421,7 +422,8 @@
 \(See info node `Minibuffer History'.)"
   (interactive
    (list
-    (hi-lock-regexp-okay (read-regexp "Regexp to highlight"))
+    (hi-lock-regexp-okay
+     (read-regexp "Regexp to highlight" (car regexp-history)))
     (hi-lock-read-face-name)))
   (or (facep face) (setq face 'hi-yellow))
   (unless hi-lock-mode (hi-lock-mode 1))
@@ -439,7 +441,7 @@
    (list
     (hi-lock-regexp-okay
      (hi-lock-process-phrase
-      (read-regexp "Phrase to highlight")))
+      (read-regexp "Phrase to highlight" (car regexp-history))))
     (hi-lock-read-face-name)))
   (or (facep face) (setq face 'hi-yellow))
   (unless hi-lock-mode (hi-lock-mode 1))