Mercurial > emacs
changeset 2718:c91b18333f58
* x-win.el: Since we require faces.el, there's no point in setting
frame-creation-function to x-create-frame - just set it directly
to x-create-frame-with-faces.
* x-win.el: (require 'faces), too. Move (require 'select) to top,
with the other requires.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sun, 09 May 1993 23:54:12 +0000 |
| parents | 67f34b0bc2d1 |
| children | 340d7c6c8790 |
| files | lisp/term/x-win.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/x-win.el Sun May 09 23:53:56 1993 +0000 +++ b/lisp/term/x-win.el Sun May 09 23:54:12 1993 +0000 @@ -70,6 +70,8 @@ (require 'frame) (require 'mouse) (require 'scroll-bar) +(require 'faces) +(require 'select) (setq command-switch-alist (append '(("-bw" . x-handle-numeric-switch) @@ -503,14 +505,12 @@ (x-open-connection (or x-display-name (setq x-display-name (getenv "DISPLAY")))) -(setq frame-creation-function 'x-create-frame) +(setq frame-creation-function 'x-create-frame-with-faces) (defun x-win-suspend-error () (error "Suspending an emacs running under X makes no sense")) (add-hook 'suspend-hook 'x-win-suspend-error) -(require 'select) - ;;; Arrange for the kill and yank functions to set and check the clipboard. (setq interprogram-cut-function 'x-select-text) (setq interprogram-paste-function 'x-cut-buffer-or-selection-value)