Quellcode durchsuchen

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

pull/1/head
10sr vor 10 Jahren
Ursprung
Commit
7ef1082d6e
1 geänderte Dateien mit 6 neuen und 4 gelöschten Zeilen
  1. +6
    -4
      emacs.el

+ 6
- 4
emacs.el Datei anzeigen

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


Laden…
Abbrechen
Speichern