Re: How do I highlight word at point?

[htbest2000]

On 10月19日, 上午10时16分, Wei Weng <ww...@acedsl.com> wrote:
> The title pretty much said it. :)
>
> Thanks
> Wei

place the following code into your .emacs file and

; code begin
(defvar my-highlight-current-word-color-index 0 "the color index
increaser")
(defvar my-highlight-current-word-color-list
  (list 'hi-yellow 'hi-pink 'hi-blue 'hi-green 'hi-red)
  "color list")

(defun my-highlight-current-word ()
  "highlight current word"
  (interactive)
  (highlight-regexp (current-word)
                    (nth my-highlight-current-word-color-index
                         my-highlight-current-word-color-list))
  (incf my-highlight-current-word-color-index)
  (when (= my-highlight-current-word-color-index 4)
    (setq my-highlight-current-word-color-index 0)))

(defun my-unhighlight-current-word ()
  "un-highlight current word"
  (interactive)
  (unhighlight-regexp (current-word)))

;ESC-C-f8 to highlight
;ESC-ESC-C-f8 to unhighlight
(global-set-key (quote [27 C-f8]) (quote ht-highlight-current-word))
(global-set-key (quote [27 27 C-f8]) (quote ht-unhighlight-current-
word))
; code end

ESC-C-f8 or M-x my-highlight-current-word to highlight word in cursor,
ESC-ESC-C-f8 or M-x my-unhighlight-current-word to un-highlight

the color will be varied if you repeat highlight operate.