ryuslash/eshell-fringe-status
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Make the leading space optional

Browse source 
The first time eshell starts it won't yet have printed such a space.
This commit is contained in:
Tom Willemse 2014-01-26 01:49:36 +01:00
parent 46359b0e42
commit 0419f1ba92
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
eshell-fringe-status.el
View file

@ -71,7 +71,7 @@ which doesn't accept at least one space will break."
(let ((first (aref eshell-prompt-regexp 0))) (let ((first (aref eshell-prompt-regexp 0)))
(when (eql first ?^) (when (eql first ?^)
(setq eshell-prompt-regexp (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 () (defun efs--revert-prompt-regexp ()
"The counterpart for `efs--extend-prompt-regexp', remove a space. "The counterpart for `efs--extend-prompt-regexp', remove a space.
@ -83,7 +83,7 @@ disabling the mode."
(when (and (eql first ?^) (when (and (eql first ?^)
(eql (aref eshell-prompt-regexp 1) ?\s)) (eql (aref eshell-prompt-regexp 1) ?\s))
(setq eshell-prompt-regexp (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 () (defun eshell-fringe-status ()
"Display an indication of the last command's exit status. "Display an indication of the last command's exit status.