Mercurial > emacs
changeset 97083:e4097ac146ee
(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'.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Tue, 29 Jul 2008 14:45:01 +0000 |
| parents | 922b39c63813 |
| children | fea0b97d4f6d |
| files | lisp/hi-lock.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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))