procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(hilit-unhighlight-region, hilit-set-mode-patterns):

Browse source 
Use `mapc' rather than `mapcar'.
This commit is contained in:
Juanma Barranquero 2007-09-26 00:22:15 +00:00
parent d590ea4d87
commit 3b0f9f6206
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/obsolete/hilit19.el
View file

@ -665,9 +665,9 @@ The optional 5th arg, PROP is a property to set instead of 'hilit."
(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 @@ See the variable hilit-mode-enable-list.
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)))