Commit 5a25a895 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

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

font-locking in the *buffer-selection* buffer.
(bs-show-sorted): Doc fix.
parent 8e9dfc38
2007-10-05 Juanma Barranquero <lekktu@gmail.com> 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.el (bs--get-marked-string, bs--get-modified-string)
(bs--get-readonly-string, bs--get-size-string, bs--get-name) (bs--get-readonly-string, bs--get-size-string, bs--get-name)
(bs--get-mode-name, bs-mode): Fix typos in docstrings. (bs--get-mode-name, bs-mode): Fix typos in docstrings.
...@@ -652,12 +652,14 @@ to show always. ...@@ -652,12 +652,14 @@ to show always.
(use-local-map bs-mode-map) (use-local-map bs-mode-map)
(make-local-variable 'font-lock-defaults) (make-local-variable 'font-lock-defaults)
(make-local-variable 'font-lock-verbose) (make-local-variable 'font-lock-verbose)
(make-local-variable 'font-lock-global-modes)
(buffer-disable-undo) (buffer-disable-undo)
(setq major-mode 'bs-mode (setq major-mode 'bs-mode
mode-name "Buffer-Selection-Menu" mode-name "Buffer-Selection-Menu"
buffer-read-only t buffer-read-only t
truncate-lines t truncate-lines t
show-trailing-whitespace nil show-trailing-whitespace nil
font-lock-global-modes '(not bs-mode)
font-lock-defaults '(bs-mode-font-lock-keywords t) font-lock-defaults '(bs-mode-font-lock-keywords t)
font-lock-verbose nil) font-lock-verbose nil)
(run-mode-hooks 'bs-mode-hook)) (run-mode-hooks 'bs-mode-hook))
...@@ -929,7 +931,7 @@ WHAT is a value of nil, `never', or `always'." ...@@ -929,7 +931,7 @@ WHAT is a value of nil, `never', or `always'."
(bs-up 1)))) (bs-up 1))))
(defun bs-show-sorted () (defun bs-show-sorted ()
"Show buffer list sorted by buffer name." "Show buffer list sorted by next sort aspect."
(interactive) (interactive)
(setq bs--current-sort-function (setq bs--current-sort-function
(bs-next-config-aux (car bs--current-sort-function) (bs-next-config-aux (car bs--current-sort-function)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment