diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2006-02-09 01:36:22 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2006-02-09 01:36:22 +0000 |
| commit | ddd1e91e60b58cfcc553236f75f4cbadef71244c (patch) | |
| tree | 25e3c831591f995c00c561a3a6ab870e28c08b22 /lisp/hilit-chg.el | |
| parent | d5905ab9153b05107c63731053cf97681d4c61e7 (diff) | |
| download | emacs-ddd1e91e60b58cfcc553236f75f4cbadef71244c.tar.gz | |
(hilit-chg-update-all-buffers): Use `mapc' instead of `mapcar'; return nil.
Diffstat (limited to 'lisp/hilit-chg.el')
| -rw-r--r-- | lisp/hilit-chg.el | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/lisp/hilit-chg.el b/lisp/hilit-chg.el index a68e20cf6de..6bea0ad4b4b 100644 --- a/lisp/hilit-chg.el +++ b/lisp/hilit-chg.el @@ -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. |