Mercurial > emacs
changeset 2631:1e3d854828fc
* 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.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Mon, 03 May 1993 03:37:47 +0000 |
| parents | 47cf3a387530 |
| children | f63bcaae7cd0 |
| files | lisp/emacs-lisp/lucid.el |
| diffstat | 1 files changed, 11 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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