(bs-mode): Make sure global-font-lock-mode doesn't activate

font-locking in the *buffer-selection* buffer.
(bs-show-sorted): Doc fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 558afa6d8be1f92712ff26747a6e1e5bb3daee96..5cd9c870df1ab0be1b60111457175b738d0a9751 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2007-10-05  Juanma Barranquero  <lekktu@gmail.com>
 
+       * bs.el (bs-mode): Make sure global-font-lock-mode doesn't
+       activate font-locking in the *buffer-selection* buffer.
+       (bs-show-sorted): Doc fix.
+
        * bs.el (bs--get-marked-string, bs--get-modified-string)
        (bs--get-readonly-string, bs--get-size-string, bs--get-name)
        (bs--get-mode-name, bs-mode): Fix typos in docstrings.

diff --git a/lisp/bs.el b/lisp/bs.el
index 29e5e40687a84d03ab2980db605c7dc20bb71325..4d13c97c2fd64547702e9766435b8e3bc8307d92 100644 (file)
--- a/lisp/bs.el
+++ b/lisp/bs.el
@@ -652,12 +652,14 @@ to show always.
   (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 @@ WHAT is a value of nil, `never', or `always'."
       (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)