Commit 804edf03 authored by Glenn Morris's avatar Glenn Morris
Browse files

(sc-attribs-filter-namelist): Use mapc rather than mapcar.

parent 75a8734b
......@@ -1038,12 +1038,12 @@ supplied, is used instead of the line point is on in the current buffer."
(let ((elements (length namelist))
(position -1)
keepers filtered-list)
(mapcar
(mapc
(function
(lambda (name)
(setq position (1+ position))
(let ((keep-p t))
(mapcar
(mapc
(function
(lambda (filter)
(let ((regexp (car filter))
......@@ -1061,7 +1061,7 @@ supplied, is used instead of the line point is on in the current buffer."
(setq keepers (cons position keepers)))
)))
namelist)
(mapcar
(mapc
(function
(lambda (position)
(setq filtered-list (cons (nth position namelist) filtered-list))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment