* lucid.el: Comment out fset of set-screen-width properly.

	* lucid.el: (provide 'lucid).

	* lucid.el: (switch-to-other-buffer): Avoid buffers whose names
	start with a space.

1 files changed, 11 insertions, 2 deletions

diff --git a/lisp/emacs-lisp/lucid.el b/lisp/emacs-lisp/lucid.el
index 2138c13bf65..35404b967e6 100644
--- a/lisp/emacs-lisp/lucid.el
+++ b/lisp/emacs-lisp/lucid.el
@@ -117,7 +117,14 @@ bottom of the buffer stack."
       (bury-buffer (current-buffer)))
   (switch-to-buffer
    (if (<= arg 1) (other-buffer (current-buffer))
-     (nth (1+ arg) (buffer-list)))))
+     (nth (1+ arg)
+	  (apply 'nconc
+		 (mapcar
+		  (lambda (buf)
+		    (if (= (string-to-char (buffer-name (car (cdr tail))))
+			   ?\ )
+			nil
+		      (list buf)))))))))
 
 (defalias 'find-face 'internal-find-face)
 (defalias 'get-face 'internal-get-face)
@@ -165,7 +172,7 @@ bottom of the buffer stack."
 ;; (defalias 'set-screen-height 'set-frame-height)
 (defalias 'set-screen-position 'set-frame-position)
 (defalias 'set-screen-size 'set-frame-size)
-ll (defalias 'set-screen-width 'set-frame-width)
+;; (defalias 'set-screen-width 'set-frame-width)
 (defalias 'switch-to-buffer-new-screen 'switch-to-buffer-other-frame)
 ;; (defalias 'unfocus-screen 'unfocus-frame)
 (defalias 'visible-screen-list 'visible-frame-list)
@@ -173,4 +180,6 @@ ll (defalias 'set-screen-width 'set-frame-width)
 (defalias 'x-create-screen 'x-create-frame)
 (defalias 'x-new-screen 'new-frame)
 
+(provide 'lucid)
+
 ;;; end of lucid.el