changeset 3002:7274509e47a3

* lucid.el (switch-to-other-buffer): Build the list of acceptable buffers properly.
author Jim Blandy <jimb@redhat.com>
date Mon, 24 May 1993 02:12:13 +0000
parents c6c6e476d93d
children 5a73d384f45e
files lisp/emacs-lisp/lucid.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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)