mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-24 15:22:26 -07:00
Code Issues Projects Releases Wiki Activity

(hi-lock-line-face-buffer, hi-lock-face-buffer)

Browse source 
(hi-lock-face-phrase-buffer): Use `(car regexp-history)'
as the second arg of `read-regexp'.
This commit is contained in:
Juri Linkov 2008-07-29 14:45:01 +00:00
parent 714da75728
commit 8677dea3af
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/hi-lock.el
View file

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