浏览代码

emacs.el: Do not emit error when tty-type is not available

pull/1/head
10sr 10 年前
父节点
当前提交
7ef1082d6e
共有 1 个文件被更改,包括 6 次插入4 次删除
  1. +6
    -4
      emacs.el

+ 6
- 4
emacs.el 查看文件

@@ -383,10 +383,12 @@ found, otherwise returns nil."
(setq terminal-title-format
'((file-name-nondirectory (directory-file-name
default-directory))))
(if (and (equal (car (split-string (frame-parameter nil
'tty-type)
"-"))
"screen")
(if (and (let ((tty-type (frame-parameter nil
'tty-type)))
(and tty-type
(equal (car (split-string tty-type
"-"))
"screen")))
(not (getenv "SSH_CONNECTION")))
(setq terminal-title-format
'((file-name-nondirectory (directory-file-name


正在加载...
取消
保存