Commit e0d0133a authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

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.
parent 87ef8938
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>
 
......@@ -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'."
......
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