# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1191409787 0
# Node ID 569e6cbc4c706a7ea3f882715d870dae56d4f7b0
# Parent  54ce7f4cf913c51b11e2d3fc87c6a0c05990fe2e
Don't defvar `fontlock-verbose'.
(bs-config-clear): Fix typo in docstring.
(bs--show-header): Use `dolist' instead of `mapcar'.
(bs-mode): Set `show-trailing-whitespace' to nil.

diff -r 54ce7f4cf913 -r 569e6cbc4c70 lisp/bs.el
--- a/lisp/bs.el	Tue Oct 02 19:26:50 2007 +0000
+++ b/lisp/bs.el	Wed Oct 03 11:09:47 2007 +0000
@@ -131,8 +131,6 @@
 
 ;;; Code:
 
-(defvar font-lock-verbose)
-
 ;; ----------------------------------------------------------------------
 ;; Globals for customization
 ;; ----------------------------------------------------------------------
@@ -658,6 +656,7 @@
 	mode-name "Buffer-Selection-Menu"
 	buffer-read-only t
 	truncate-lines t
+	show-trailing-whitespace nil
 	font-lock-defaults '(bs-mode-font-lock-keywords t)
 	font-lock-verbose nil)
   (run-mode-hooks 'bs-mode-hook))
@@ -1034,7 +1033,7 @@
 ;; ----------------------------------------------------------------------
 
 (defun bs-config-clear ()
-  "*Reset all variables which specify a configuration.
+  "Reset all variables which specify a configuration.
 These variables are `bs-dont-show-regexp', `bs-must-show-regexp',
 `bs-dont-show-function', `bs-must-show-function' and
 `bs-buffer-sort-function'."
@@ -1383,9 +1382,8 @@
 
 (defun bs--show-header ()
   "Insert header for Buffer Selection Menu in current buffer."
-  (mapcar '(lambda (string)
-	     (insert string "\n"))
-	  (bs--create-header)))
+  (dolist (string (bs--create-header))
+    (insert string "\n")))
 
 (defun bs--get-name-length ()
   "Return value of `bs--name-entry-length'."