Inhibit read-only

When testing with ~Emacs -Q~ I noticed that the fringe space could not
be inserted because the prompt was read-only.
This commit is contained in:
Tom Willemse 2014-02-01 12:50:17 +01:00
parent 2f698a53d7
commit 5efd3c0613

View file

@ -95,7 +95,8 @@ window."
(beginning-of-line)
(let ((face (if (zerop eshell-last-command-status)
'eshell-fringe-status-success
'eshell-fringe-status-failure)))
'eshell-fringe-status-failure))
(inhibit-read-only t))
(insert
(propertize " " 'display
`((left-fringe efs--arrow-bitmap ,face))))))))