# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1190766600 0
# Node ID 85483f68777e5fcf15b7a5c726e90d2059d1f4ad
# Parent  1b6b77d0f75a9a3cdfbe065682a1fc2b10ca0bd1
(vhdl-set-style, vhdl-regress-line): Use `mapc' rather than `mapcar'.

diff -r 1b6b77d0f75a -r 85483f68777e lisp/progmodes/vhdl-mode.el
--- a/lisp/progmodes/vhdl-mode.el	Wed Sep 26 00:28:25 2007 +0000
+++ b/lisp/progmodes/vhdl-mode.el	Wed Sep 26 00:30:00 2007 +0000
@@ -2811,7 +2811,7 @@
 
 ;; set up electric character functions to work with
 ;; `delete-selection-mode' (Emacs) and `pending-delete-mode' (XEmacs)
-(mapcar
+(mapc
  (function
   (lambda (sym)
     (put sym 'delete-selection t)	; for `delete-selection-mode' (Emacs)
@@ -5296,7 +5296,7 @@
     (or vars
 	(error "ERROR:  Invalid VHDL indentation style `%s'" style))
     ;; set all the variables
-    (mapcar
+    (mapc
      (function
       (lambda (varentry)
 	(let ((var (car varentry))
@@ -7148,7 +7148,7 @@
 	(actual (vhdl-get-syntactic-context))
 	(expurgated))
     ;; remove the library unit symbols
-    (mapcar
+    (mapc
      (function
       (lambda (elt)
 	(if (memq (car elt) '(entity configuration package