* lucid.el (switch-to-other-buffer): Build the list of acceptable

	buffers properly.

1 files changed, 3 insertions, 3 deletions

diff --git a/lisp/emacs-lisp/lucid.el b/lisp/emacs-lisp/lucid.el
index 35404b967e6..7a8ff4789ba 100644
--- a/lisp/emacs-lisp/lucid.el
+++ b/lisp/emacs-lisp/lucid.el
@@ -121,10 +121,10 @@ bottom of the buffer stack."
           (apply 'nconc
                  (mapcar
                   (lambda (buf)
-                    (if (= (string-to-char (buffer-name (car (cdr tail))))
-                           ?\ )
+                    (if (= ?\  (string-to-char (buffer-name buf)))
                         nil
-                      (list buf)))))))))
+                      (list buf)))
+                  (buffer-list)))))))
 
 (defalias 'find-face 'internal-find-face)
 (defalias 'get-face 'internal-get-face)