# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 736400267 0
# Node ID 1e3d854828fc2d4cd9d4dc1671ea20c202e06794
# Parent  47cf3a3875308b0a20fff02cea8b1637007cafe6
	* 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.

diff -r 47cf3a387530 -r 1e3d854828fc lisp/emacs-lisp/lucid.el
--- a/lisp/emacs-lisp/lucid.el	Mon May 03 03:37:22 1993 +0000
+++ b/lisp/emacs-lisp/lucid.el	Mon May 03 03:37:47 1993 +0000
@@ -117,7 +117,14 @@
       (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 @@
 ;; (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 @@
 (defalias 'x-create-screen 'x-create-frame)
 (defalias 'x-new-screen 'new-frame)
 
+(provide 'lucid)
+
 ;;; end of lucid.el