# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1191598854 0
# Node ID 467771c10c11ff0d04da4a6b653526db55c09a30
# Parent  c1992d0da9b05c470241361f259a1d3f715895bd
(bs-mode): Make sure global-font-lock-mode doesn't activate
font-locking in the *buffer-selection* buffer.
(bs-show-sorted): Doc fix.

diff -r c1992d0da9b0 -r 467771c10c11 lisp/bs.el
--- a/lisp/bs.el	Fri Oct 05 11:37:21 2007 +0000
+++ b/lisp/bs.el	Fri Oct 05 15:40:54 2007 +0000
@@ -652,12 +652,14 @@
   (use-local-map bs-mode-map)
   (make-local-variable 'font-lock-defaults)
   (make-local-variable 'font-lock-verbose)
+  (make-local-variable 'font-lock-global-modes)
   (buffer-disable-undo)
   (setq major-mode 'bs-mode
 	mode-name "Buffer-Selection-Menu"
 	buffer-read-only t
 	truncate-lines t
 	show-trailing-whitespace nil
+	font-lock-global-modes '(not bs-mode)
 	font-lock-defaults '(bs-mode-font-lock-keywords t)
 	font-lock-verbose nil)
   (run-mode-hooks 'bs-mode-hook))
@@ -929,7 +931,7 @@
       (bs-up 1))))
 
 (defun bs-show-sorted ()
-  "Show buffer list sorted by buffer name."
+  "Show buffer list sorted by next sort aspect."
   (interactive)
   (setq bs--current-sort-function
 	(bs-next-config-aux (car bs--current-sort-function)