From 452aafc63b06a170404ac2b8ded4bd3a38d1f2ab Mon Sep 17 00:00:00 2001 From: Oleg Pykhalov Date: Thu, 22 Feb 2018 03:52:59 +0300 Subject: terminal-here-terminal-window-name: Remove odd multiplexer argument. * terminal-here.el (terminal-here-terminal-window-name): Remove odd multiplexer argument. --- terminal-here.el | 7 +++---- 1 file 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)))))))) -- cgit v1.2.3