From 51b5ad576f72385d2a62baaedccaae04c78535ab Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 26 Sep 2007 00:30:00 +0000 Subject: [PATCH] (vhdl-set-style, vhdl-regress-line): Use `mapc' rather than `mapcar'. --- lisp/progmodes/vhdl-mode.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el index 0d909a4a3ff..60d30eb8a6d 100644 --- a/lisp/progmodes/vhdl-mode.el +++ b/lisp/progmodes/vhdl-mode.el @@ -2811,7 +2811,7 @@ STRING are replaced by `-' and substrings are converted to lower case." ;; 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 @@ argument. The styles are chosen from the `vhdl-style-alist' variable." (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 @@ ENDPOS is encountered." (actual (vhdl-get-syntactic-context)) (expurgated)) ;; remove the library unit symbols - (mapcar + (mapc (function (lambda (elt) (if (memq (car elt) '(entity configuration package -- 2.39.2