diff options
| author | Juri Linkov <juri@jurta.org> | 2008-07-29 14:45:01 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2008-07-29 14:45:01 +0000 |
| commit | 8677dea3af74e8253bb85a00beb9dd4975946d63 (patch) | |
| tree | e23c3bf34e04b6b4941e3e7fd51415d7cffa27b8 /lisp/hi-lock.el | |
| parent | 714da7572890f8b56c65e405ad87017b4bbbe07f (diff) | |
| download | emacs-8677dea3af74e8253bb85a00beb9dd4975946d63.tar.gz | |
(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'.
Diffstat (limited to 'lisp/hi-lock.el')
| -rw-r--r-- | lisp/hi-lock.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index ca74d6f0a8d..da6bd441240 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el @@ -398,7 +398,8 @@ and \\[next-history-element] to retrieve default values. \(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 @@ and \\[next-history-element] to retrieve default values. \(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 @@ lower-case letters made case insensitive." (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)) |