Sfoglia il codice sorgente

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

pull/1/head
10sr 10 anni fa
parent
commit
7ef1082d6e
1 ha cambiato i file con 6 aggiunte e 4 eliminazioni
  1. +6
    -4
      emacs.el

+ 6
- 4
emacs.el Vedi File

@@ -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


Caricamento…
Annulla
Salva