From: Glenn Morris <rgm@gnu.org>
Date: Fri, 12 Oct 2007 03:03:25 +0000 (+0000)
Subject: (c-postprocess-file-styles)
X-Git-Tag: emacs-pretest-23.0.90~10407
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d61ca8d5cc277f0b140fdbe7ecc0b7a19dd98fa8;p=emacs.git

(c-postprocess-file-styles)
(c-submit-bug-report): Use mapc rather than mapcar.
---

diff --git a/lisp/progmodes/cc-mode.el b/lisp/progmodes/cc-mode.el
index f234404e81d..00ec64a85a0 100644
--- a/lisp/progmodes/cc-mode.el
+++ b/lisp/progmodes/cc-mode.el
@@ -841,7 +841,7 @@ Note that the style variables are always made local to the buffer."
     (and c-file-style
 	 (c-set-style c-file-style))
     (and c-file-offsets
-	 (mapcar
+	 (mapc
 	  (lambda (langentry)
 	    (let ((langelem (car langentry))
 		  (offset (cdr langentry)))
@@ -1430,15 +1430,15 @@ Key bindings:
 		     adaptive-fill-mode
 		     adaptive-fill-regexp)
 		   nil)))
-	(mapcar (lambda (var) (unless (boundp var)
-				(setq vars (delq var vars))))
-		'(signal-error-on-buffer-boundary
-		  filladapt-mode
-		  defun-prompt-regexp
-		  font-lock-mode
-		  font-lock-maximum-decoration
-		  parse-sexp-lookup-properties
-		  lookup-syntax-properties))
+	(mapc (lambda (var) (unless (boundp var)
+			      (setq vars (delq var vars))))
+	      '(signal-error-on-buffer-boundary
+		filladapt-mode
+		defun-prompt-regexp
+		font-lock-mode
+		font-lock-maximum-decoration
+		parse-sexp-lookup-properties
+		lookup-syntax-properties))
 	vars)
       (lambda ()
 	(run-hooks 'c-prepare-bug-report-hooks)