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

*** empty log message ***

Browse Source
This commit is contained in:
Richard M. Stallman 1992-05-05 04:11:23 +00:00
parent 51cbdde31c
commit 41f6016e27
1 changed files with 17 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
lisp/terminal.el
View File

@ -1079,35 +1079,23 @@ work with `terminfo' we will try to use it."
;;-- For disgusting programs. ;;-- For disgusting programs.
;; (VI? What losers need these, I wonder?) ;; (VI? What losers need these, I wonder?)
"im=:ei=:dm=:ed=:mi:do=^p^j:nl=^p^j:bs:"))) "im=:ei=:dm=:ed=:mi:do=^p^j:nl=^p^j:bs:")))
(if (fboundp 'start-subprocess) (let ((process-environment
;; this winning function would do everything, except that (cons "TERM=emacs-virtual"
;; rms doesn't want it. (cons (concat "TERMCAP=" termcap)
(setq te-process (start-subprocess "terminal-emulator" process-environment))))
program args (setq te-process
'channel-type 'terminal (start-process "terminal-emulator" (current-buffer)
'filter 'te-filter "/bin/sh" "-c"
'buffer (current-buffer) ;; Yuck!!! Start a shell to set some terminal
'sentinel 'te-sentinel ;; control characteristics. Then start the
'modify-environment ;; "env" program to setup the terminal type
(list (cons "TERM" "emacs-virtual") ;; Then finally start the program we wanted.
(cons "TERMCAP" termcap)))) (format "%s; exec %s"
;; so instead we resort to this... te-stty-string
(setq te-process (start-process "terminal-emulator" (current-buffer) (mapconcat 'te-quote-arg-for-sh
"/bin/sh" "-c" (cons program args) " ")))))
;; Yuck!!! Start a shell to set some terminal (set-process-filter te-process 'te-filter)
;; control characteristics. Then start the (set-process-sentinel te-process 'te-sentinel))
;; "env" program to setup the terminal type
;; Then finally start the program we wanted.
(format "%s; exec %s TERM=emacs-virtual %s %s"
te-stty-string
(te-quote-arg-for-sh
(concat exec-directory "env"))
(te-quote-arg-for-sh
(concat "TERMCAP=" termcap))
(mapconcat 'te-quote-arg-for-sh
(cons program args) " "))))
(set-process-filter te-process 'te-filter)
(set-process-sentinel te-process 'te-sentinel)))
(error (fundamental-mode) (error (fundamental-mode)
(signal (car err) (cdr err)))) (signal (car err) (cdr err))))
;; sigh ;; sigh