From 0b9be2e709b2d9bce133f9819ee2266ec8228665 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Mon, 24 May 1993 02:12:13 +0000 Subject: * lucid.el (switch-to-other-buffer): Build the list of acceptable buffers properly. --- lisp/emacs-lisp/lucid.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp/emacs-lisp') 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) -- cgit v1.2.3