Mercurial > emacs
comparison lisp/term/x-win.el @ 83416:4513d8dcdfd5
Reimplement and extend support for terminal-local environment variables.
* lisp/termdev.el: New file. Move terminal parameter-related functions
here from frame.el.
(terminal-getenv, with-terminal-environment): Reimplement and extend.
(terminal-setenv, terminal-setenv-internal): New functions.
* lisp/frame.el (make-frame-on-tty, framep-on-display, suspend-frame):
Extend doc string, update parameter names.
(terminal-id, terminal-parameter-alist, terminal-parameters)
(terminal-parameter-p, terminal-parameter, set-terminal-parameter)
(terminal-handle-delete-frame, terminal-getenv, terminal-getenv)
(with-terminal-environment): Move to termdev.el.
* lisp/loadup.el: Load termdev as well.
* lisp/Makefile.in (lisp, shortlisp): Add termdev.elc.
* lisp/makefile.MPW (shortlisp): Ditto.
* lisp/ebuff-menu.el (electric-buffer-menu-mode-map): Bind C-z to
`suspend-frame', not `suspend-emacs'.
* lisp/echistory.el (electric-history-map): Ditto.
* lisp/ebrowse.el (ebrowse-electric-list-mode-map): Ditto.
* lisp/ebrowse.el (ebrowse-electric-position-mode-map): Ditto.
* lisp/startup.el (normal-splash-screen): Use `save-buffers-kill-display'
instead of `save-buffers-kill-emacs'.
* lisp/x-win.el (x-initialize-window-system): Add 'global-ok option to
`terminal-getenv'.
* src/term.c (suspend-tty): Update doc string.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-456
| author | Karoly Lorentey <lorentey@elte.hu> |
|---|---|
| date | Thu, 22 Dec 2005 21:02:45 +0000 |
| parents | 51eb0aa362f3 |
| children | bb2edc915032 |
comparison
equal
deleted
inserted
replaced
| 83415:d2c799f58129 | 83416:4513d8dcdfd5 |
|---|---|
| 2405 ;; so as not to choke when we use it in X resource queries. | 2405 ;; so as not to choke when we use it in X resource queries. |
| 2406 (while (setq i (string-match "[.*]" x-resource-name)) | 2406 (while (setq i (string-match "[.*]" x-resource-name)) |
| 2407 (aset x-resource-name i ?-)))) | 2407 (aset x-resource-name i ?-)))) |
| 2408 | 2408 |
| 2409 (x-open-connection (or x-display-name | 2409 (x-open-connection (or x-display-name |
| 2410 (setq x-display-name (terminal-getenv "DISPLAY"))) | 2410 (setq x-display-name (terminal-getenv "DISPLAY" nil 'global-ok))) |
| 2411 x-command-line-resources | 2411 x-command-line-resources |
| 2412 ;; Exit Emacs with fatal error if this fails and we | 2412 ;; Exit Emacs with fatal error if this fails and we |
| 2413 ;; are the initial display. | 2413 ;; are the initial display. |
| 2414 (eq initial-window-system 'x)) | 2414 (eq initial-window-system 'x)) |
| 2415 | 2415 |