diff options
author | Tom Willemse | 2014-01-26 23:02:31 +0100 |
---|---|---|
committer | Tom Willemse | 2014-01-26 23:02:31 +0100 |
commit | 2f698a53d784d2df26da7354739a90065697c0fd (patch) | |
tree | ba6ebca617127fc3edac25d7896e5f08c9510599 | |
parent | 0419f1ba9252fd02b14a5f0243dd62c88fbb1717 (diff) | |
download | eshell-fringe-status-2f698a53d784d2df26da7354739a90065697c0fd.tar.gz eshell-fringe-status-2f698a53d784d2df26da7354739a90065697c0fd.zip |
Only add status arrow after a command
-rw-r--r-- | eshell-fringe-status.el | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/eshell-fringe-status.el b/eshell-fringe-status.el index 5cde3a8..3d9e71a 100644 --- a/eshell-fringe-status.el +++ b/eshell-fringe-status.el @@ -90,14 +90,15 @@ disabling the mode." This indication is shown as a bitmap in the left fringe of the window." - (save-excursion - (beginning-of-line) - (insert - (propertize " " 'display - `((left-fringe efs--arrow-bitmap - ,(if (zerop eshell-last-command-status) - 'eshell-fringe-status-success - 'eshell-fringe-status-failure))))))) + (when eshell-last-command-name + (save-excursion + (beginning-of-line) + (let ((face (if (zerop eshell-last-command-status) + 'eshell-fringe-status-success + 'eshell-fringe-status-failure))) + (insert + (propertize " " 'display + `((left-fringe efs--arrow-bitmap ,face)))))))) ;;;###autoload (define-minor-mode eshell-fringe-status-mode |