Преглед на файлове

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


Зареждане…
Отказ
Запис