# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 738209533 0
# Node ID 7274509e47a31c169de9c169a32cef389e1c186b
# Parent  c6c6e476d93dc019267f72125c8772e8f7706eba
	* lucid.el (switch-to-other-buffer): Build the list of acceptable
	buffers properly.

diff -r c6c6e476d93d -r 7274509e47a3 lisp/emacs-lisp/lucid.el
--- a/lisp/emacs-lisp/lucid.el	Mon May 24 01:58:58 1993 +0000
+++ b/lisp/emacs-lisp/lucid.el	Mon May 24 02:12:13 1993 +0000
@@ -121,10 +121,10 @@
 	  (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)