mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(whitespace-highlight-the-space):

Browse Source 
Don't call whitespace-unhighlight-the-space here.
This commit is contained in:
Richard M. Stallman 2005-04-11 18:39:13 +00:00
parent 713c902086
commit 7dbe67a412
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2005-04-11 Richard M. Stallman <rms@gnu.org>
* whitespace.el (whitespace-highlight-the-space):
Don't call whitespace-unhighlight-the-space here.
* simple.el (undo): Record t in undo-equiv-table
for the redo record made by an undo-in-region.

3
lisp/whitespace.el
View File

@ -733,12 +733,11 @@ Also with whitespaces whose testing has been turned off."
"Highlight the current line, unhighlighting a previously jumped to line."
(if whitespace-display-spaces-in-color
(let ((ol (whitespace-make-overlay b e)))
(whitespace-unhighlight-the-space)
(push ol whitespace-highlighted-space)
(whitespace-overlay-put ol 'face 'whitespace-highlight-face))))
;; (add-hook 'pre-command-hook 'whitespace-unhighlight-the-space))
(defun whitespace-unhighlight-the-space ()
(defun whitespace-unhighlight-the-space()
"Unhighlight the currently highlight line."
(if (and whitespace-display-spaces-in-color whitespace-highlighted-space)
(progn