(global-set-key "\18\ 3y" 'save-buffers-kill-emacs))
;
; Fix problems with M-| setting window title of emacs' parent xterm
-(defun envdelete-term-termcap-windowid (list)
- (let ((l list))
- (mapcar '(lambda (x)
- (if x (delq x l)))
- (mapcar '(lambda (x)
- (if (or (string-match "^TERM=" x)
- (string-match "^TERMCAP=" x)
- (string-match "^WINDOWID=" x))
- x
- nil))
- l))
- l))
-(setq process-environment
- (envdelete-term-termcap-windowid process-environment))
+;(defun envdelete-term-termcap-windowid (list)
+; (let ((l list))
+; (mapcar '(lambda (x)
+; (if x (delq x l)))
+; (mapcar '(lambda (x)
+; (if (or (string-match "^TERM=" x)
+; (string-match "^TERMCAP=" x)
+; (string-match "^WINDOWID=" x))
+; x
+; nil))
+; l))
+; l))
+;(setq process-environment
+; (envdelete-term-termcap-windowid process-environment))
;
(defun add-insertion-keys (table)
"Adds keybindings according to TABLE. Each element of