From 0419f1ba9252fd02b14a5f0243dd62c88fbb1717 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Sun, 26 Jan 2014 01:49:36 +0100 Subject: [PATCH] Make the leading space optional The first time eshell starts it won't yet have printed such a space. --- eshell-fringe-status.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/eshell-fringe-status.el b/eshell-fringe-status.el index 56f58fb..5cde3a8 100644 --- a/eshell-fringe-status.el +++ b/eshell-fringe-status.el @@ -71,7 +71,7 @@ which doesn't accept at least one space will break." (let ((first (aref eshell-prompt-regexp 0))) (when (eql first ?^) (setq eshell-prompt-regexp - (format "%c %s" first (substring eshell-prompt-regexp 1)))))) + (format "%c ?%s" first (substring eshell-prompt-regexp 1)))))) (defun efs--revert-prompt-regexp () "The counterpart for `efs--extend-prompt-regexp', remove a space. @@ -83,7 +83,7 @@ disabling the mode." (when (and (eql first ?^) (eql (aref eshell-prompt-regexp 1) ?\s)) (setq eshell-prompt-regexp - (format "%c%s" first (substring eshell-prompt-regexp 2)))))) + (format "%c%s" first (substring eshell-prompt-regexp 3)))))) (defun eshell-fringe-status () "Display an indication of the last command's exit status.