diff options
| author | Oleg Pykhalov <go.wigust@gmail.com> | 2018-02-22 03:52:59 +0300 |
|---|---|---|
| committer | Oleg Pykhalov <go.wigust@gmail.com> | 2018-02-22 03:52:59 +0300 |
| commit | 452aafc63b06a170404ac2b8ded4bd3a38d1f2ab (patch) | |
| tree | bb485b7858bea0f09aaadda3b1d2ca303aae7317 | |
| parent | Implement name. (diff) | |
| download | emacs-terminal-here-452aafc63b06a170404ac2b8ded4bd3a38d1f2ab.tar.gz | |
terminal-here-terminal-window-name: Remove odd multiplexer argument.
* terminal-here.el (terminal-here-terminal-window-name): Remove odd
multiplexer argument.
| -rw-r--r-- | terminal-here.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/terminal-here.el b/terminal-here.el index f964b2a..20dab79 100644 --- a/terminal-here.el +++ b/terminal-here.el @@ -128,12 +128,11 @@ If new is f attach to a multiplexer session called `dir'." ((string-equal terminal-here-multiplexer "tmux") (list "new-session" "-A" "-s" dir))))) -(defun terminal-here-terminal-window-name (command dir &optional multiplexer) +(defun terminal-here-terminal-window-name (command dir) "Return a window name. " (let ((command (first command))) (cond ((string-equal command "xterm") - (let ((name (list "-title" command))) - (if multiplexer (append name "-" multiplexer "-" dir) name)))))) + (list "-title" command))))) (defun terminal-here-multiplexer-command (dir) "Return a multiplexer command." @@ -158,8 +157,8 @@ If new is f attach to a multiplexer session called `dir'." terminal-here-terminal-command))) (if multiplexer `(,@command + ,@(terminal-here-terminal-window-name command dir) ,terminal-here-command-flag - ,@(terminal-here-terminal-window-name command dir multiplexer) ,@(terminal-here-multiplexer-command dir)) `(,@command ,@(terminal-here-terminal-window-name command dir)))))))) |