* font-lock.el (font-lock-maximum-decoration): Mention what numeric levels mean.

[gnu-emacs] / lisp / emulation / tpu-edt.el

diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el
index f86d3be0fc0ae632a32c37838c2beb54019efc09..b4bf47a65044ca59846f4c086aee0ee19fcd37a9 100644 (file)
--- a/lisp/emulation/tpu-edt.el
+++ b/lisp/emulation/tpu-edt.el
@@ -1278,9 +1278,9 @@ kill modified buffers without asking."
 
 (defun tpu-make-file-buffer-list (buffer-list)
   "Return names from BUFFER-LIST excluding those beginning with a space or star."
-  (delq nil (mapcar '(lambda (b)
-                       (if (or (= (aref (buffer-name b) 0) ? )
-                               (= (aref (buffer-name b) 0) ?*)) nil b))
+  (delq nil (mapcar (lambda (b)
+                      (if (or (= (aref (buffer-name b) 0) ?\s)
+                              (= (aref (buffer-name b) 0) ?*)) nil b))
                     buffer-list)))
 
 (defun tpu-next-window nil