Mercurial > emacs
changeset 78950:569e6cbc4c70
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.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 03 Oct 2007 11:09:47 +0000 |
| parents | 54ce7f4cf913 |
| children | 2285c45291ea |
| files | lisp/bs.el |
| diffstat | 1 files changed, 4 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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'."