From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 3 Oct 2007 11:12:20 +0000 (+0000)
Subject: Don't defvar `fontlock-verbose'.
X-Git-Tag: emacs-pretest-22.1.90~694
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e0d0133a4a72d98f91f6db990899f077243de711;p=emacs.git

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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index 179e0e628e4..dd11dc0236e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,11 @@
-2007-10-02  Adam Hupp <adam@hupp.org>  (tiny change)
+2007-10-03  Juanma Barranquero  <lekktu@gmail.com>
+
+	* bs.el: 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.
+
+2007-10-02  Adam Hupp  <adam@hupp.org>  (tiny change)
 
 	* progmodes/gdb-ui.el (pdb): Specify file for gud-break.
 
@@ -29,7 +36,7 @@
 
 2007-09-29  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
 
-	* term/x-win.el (x-gtk-stock-map): Version is 22.2
+	* term/x-win.el (x-gtk-stock-map): Version is 22.2.
 
 2007-09-29  Martin Rudalics  <rudalics@gmx.at>
 
diff --git a/lisp/bs.el b/lisp/bs.el
index 9d89eb17b2d..e7a5e59b2fa 100644
--- a/lisp/bs.el
+++ b/lisp/bs.el
@@ -131,8 +131,6 @@
 
 ;;; Code:
 
-(defvar font-lock-verbose)
-
 ;; ----------------------------------------------------------------------
 ;; Globals for customization
 ;; ----------------------------------------------------------------------
@@ -658,6 +656,7 @@ to show always.
 	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 @@ A value of nil means BUFFER belongs to a file."
 ;; ----------------------------------------------------------------------
 
 (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 @@ ALIGN is one of the symbols `left', `middle', or `right'."
 
 (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'."