mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

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

Browse Source 
* lucid.el: (provide 'lucid).

	* lucid.el: (switch-to-other-buffer): Avoid buffers whose names
	start with a space.
This commit is contained in:
Jim Blandy 1993-05-03 03:37:47 +00:00
parent 28dbf5014a
commit e084483dea
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/emacs-lisp/lucid.el
View File

@ -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