mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-10 05:30:45 -08:00
Code Issues Projects Releases Wiki Activity

(hilit-chg-update-all-buffers): Use mapc' instead of mapcar'; return nil.

Browse source
This commit is contained in:
Juanma Barranquero 2006-02-09 01:36:22 +00:00
parent d5905ab915
commit ddd1e91e60
2 changed files with 14 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2006-02-09 Juanma Barranquero <lekktu@gmail.com>
* hilit-chg.el (hilit-chg-update-all-buffers): Use `mapc' instead of
`mapcar'; return nil.
2006-02-08 Chong Yidong <cyd@stupidchicken.com>
* mouse.el (mouse-drag-track): Don't change window if we rebind to

17
lisp/hilit-chg.el
View file

@ -521,7 +521,7 @@ the text properties of type `hilit-chg'."
This allows you to manually remove highlighting from uninteresting changes."
(interactive "r")
(let ((after-change-functions nil))
(remove-text-properties beg end '(hilit-chg nil))
(remove-text-properties beg end '(hilit-chg nil))
(hilit-chg-fixup beg end)))
(defun hilit-chg-set-face-on-change (beg end leng-before
@ -662,7 +662,7 @@ Hook variables:
;; an argument is given
((eq arg 'active)
'active)
((eq arg 'passive)
((eq arg 'passive)
'passive)
((> (prefix-numeric-value arg) 0)
'active)
@ -960,9 +960,9 @@ changes are made, so \\[highlight-changes-next-change] and
;; which calls this function as a hook
(defvar x) ;; placate the byte-compiler
(defvar y)
(setq e (current-buffer))
(setq e (current-buffer))
(let ((n 0) extent p va vb a b)
(setq x nil y nil) ;; x and y are bound by hilit-chg-get-diff-info
(setq x nil y nil) ;; x and y are bound by hilit-chg-get-diff-info
(while (< n ediff-number-of-differences)
(ediff-make-fine-diffs n)
(setq va (ediff-get-fine-diff-vector n 'A))
@ -1085,7 +1085,7 @@ variable `highlight-changes-global-changes-existing-buffers' is non-nil).
(progn
(if (eq arg 'active)
(setq highlight-changes-global-initial-state 'active)
(if (eq arg 'passive)
(if (eq arg 'passive)
(setq highlight-changes-global-initial-state 'passive)))
(setq global-highlight-changes t)
(message "Turning ON Global Highlight Changes mode in %s state"
@ -1131,7 +1131,7 @@ from `global-highlight-changes' when turning on global Highlight Changes mode."
(memq major-mode highlight-changes-global-modes)))
(t
(and
(not (string-match "^[ *]" (buffer-name)))
(not (string-match "^[ *]" (buffer-name)))
(buffer-file-name))))
(progn
(hilit-chg-set value)
@ -1146,14 +1146,15 @@ from `global-highlight-changes' when turning on global Highlight Changes mode."
(defun hilit-chg-update-all-buffers (value)
(mapcar
(mapc
(function (lambda (buffer)
(with-current-buffer buffer
(if value
(hilit-chg-turn-on-maybe value)
(hilit-chg-turn-off-maybe))
)))
(buffer-list)))
(buffer-list))
nil)
;;;; Desktop support.