diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-05-24 02:12:13 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-05-24 02:12:13 +0000 |
| commit | 0b9be2e709b2d9bce133f9819ee2266ec8228665 (patch) | |
| tree | 7cec510ee8695ad0947340468a1d890887fe5661 /lisp/emacs-lisp | |
| parent | 19fac29988dd48e291de46a47c6ec253f9072074 (diff) | |
| download | emacs-0b9be2e709b2d9bce133f9819ee2266ec8228665.tar.gz emacs-0b9be2e709b2d9bce133f9819ee2266ec8228665.tar.bz2 emacs-0b9be2e709b2d9bce133f9819ee2266ec8228665.zip | |
* lucid.el (switch-to-other-buffer): Build the list of acceptable
buffers properly.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/lucid.el | 6 |
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) |