/[emacs]/emacs/lisp/whitespace.el
ViewVC logotype

Diff of /emacs/lisp/whitespace.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32 by monnier, Fri Apr 8 14:40:57 2005 UTC revision 1.33 by rms, Mon Apr 11 18:38:56 2005 UTC
# Line 733  Also with whitespaces whose testing has Line 733  Also with whitespaces whose testing has
733    "Highlight the current line, unhighlighting a previously jumped to line."    "Highlight the current line, unhighlighting a previously jumped to line."
734    (if whitespace-display-spaces-in-color    (if whitespace-display-spaces-in-color
735        (let ((ol (whitespace-make-overlay b e)))        (let ((ol (whitespace-make-overlay b e)))
         (whitespace-unhighlight-the-space)  
736          (push ol whitespace-highlighted-space)          (push ol whitespace-highlighted-space)
737          (whitespace-overlay-put ol 'face 'whitespace-highlight-face))))          (whitespace-overlay-put ol 'face 'whitespace-highlight-face))))
738  ;;  (add-hook 'pre-command-hook 'whitespace-unhighlight-the-space))  ;;  (add-hook 'pre-command-hook 'whitespace-unhighlight-the-space))
739    
740  (defun whitespace-unhighlight-the-space ()  (defun whitespace-unhighlight-the-space()
741    "Unhighlight the currently highlight line."    "Unhighlight the currently highlight line."
742    (if (and whitespace-display-spaces-in-color whitespace-highlighted-space)    (if (and whitespace-display-spaces-in-color whitespace-highlighted-space)
743        (progn        (progn

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26