Mercurial > emacs
diff lisp/obsolete/hilit19.el @ 91041:bdb3fe0ba9fa
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 866-879)
- Merge multi-tty branch
- Update from CVS
- Merge from emacs--rel--22
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-257
author | Miles Bader <miles@gnu.org> |
---|---|
date | Thu, 11 Oct 2007 16:22:07 +0000 |
parents | f55f9811f5d7 0306d3c580c6 |
children | d38543a1c0f9 |
line wrap: on
line diff
--- a/lisp/obsolete/hilit19.el Thu Oct 11 16:14:00 2007 +0000 +++ b/lisp/obsolete/hilit19.el Thu Oct 11 16:22:07 2007 +0000 @@ -665,9 +665,9 @@ (or quietly hilit-quietly (message "Unhighlighting")) (let ((lstart 0)) (while (and start (> start lstart) (< start end)) - (mapcar (function (lambda (ovr) - (and (overlay-get ovr 'hilit) (delete-overlay ovr)))) - (overlays-at start)) + (mapc (function (lambda (ovr) + (and (overlay-get ovr 'hilit) (delete-overlay ovr)))) + (overlays-at start)) (setq lstart start start (next-overlay-change start)))) (or quietly hilit-quietly (message "Done unhighlighting"))) @@ -1023,11 +1023,11 @@ Takes optional arguments PARSE-FN and CASE-FOLD." ;; change pattern - (mapcar (function (lambda (p) - (and (stringp (car p)) - (null (nth 1 p)) - (setcar (cdr p) 0)))) - patterns) + (mapc (function (lambda (p) + (and (stringp (car p)) + (null (nth 1 p)) + (setcar (cdr p) 0)))) + patterns) (setq patterns (cons case-fold patterns)) (or (consp modelist) (setq modelist (list modelist)))