Browse Source

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

pull/1/head
10sr 10 years ago
parent
commit
7ef1082d6e
1 changed files with 6 additions and 4 deletions
  1. +6
    -4
      emacs.el

+ 6
- 4
emacs.el View 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


Loading…
Cancel
Save