diff options
Diffstat (limited to 'lisp/org/org-eshell.el')
| -rw-r--r-- | lisp/org/org-eshell.el | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/lisp/org/org-eshell.el b/lisp/org/org-eshell.el index f572095d818..4335fce578c 100644 --- a/lisp/org/org-eshell.el +++ b/lisp/org/org-eshell.el @@ -37,18 +37,18 @@ followed by a colon." (let* ((buffer-and-command (if (string-match "\\([A-Za-z0-9-+*]+\\):\\(.*\\)" link) - (list (match-string 1 link) - (match-string 2 link)) + (list (match-string 1 link) + (match-string 2 link)) (list eshell-buffer-name link))) (eshell-buffer-name (car buffer-and-command)) (command (cadr buffer-and-command))) - (if (get-buffer eshell-buffer-name) - (org-pop-to-buffer-same-window eshell-buffer-name) - (eshell)) - (goto-char (point-max)) - (eshell-kill-input) - (insert command) - (eshell-send-input))) + (if (get-buffer eshell-buffer-name) + (org-pop-to-buffer-same-window eshell-buffer-name) + (eshell)) + (goto-char (point-max)) + (eshell-kill-input) + (insert command) + (eshell-send-input))) (defun org-eshell-store-link () "Store a link that, when opened, switches back to the current eshell buffer @@ -57,7 +57,7 @@ (let* ((command (concat "cd " dired-directory)) (link (concat (buffer-name) ":" command))) (org-store-link-props - :link (org-make-link "eshell:" link) + :link (concat "eshell:" link) :description command)))) (provide 'org-eshell) |