diff options
| author | Tino Calancha <tino.calancha@gmail.com> | 2017-08-02 17:52:57 +0900 |
|---|---|---|
| committer | Tino Calancha <tino.calancha@gmail.com> | 2017-08-02 17:53:14 +0900 |
| commit | ae055834a99b26bf46180b6c78fe7ca24b7c8194 (patch) | |
| tree | 139ac036b74e76b65076360a08ff455eb028c962 /lisp/dired.el | |
| parent | e82c4f56e6f9a6bce4098698b17fa45dcc5bbd25 (diff) | |
| download | emacs-ae055834a99b26bf46180b6c78fe7ca24b7c8194.tar.gz | |
dired-align-file: Inherit text properties in inserted spaces
* lisp/dired.el (dired-align-file): Inherit text
properties in inserted spaces (Bug#27899).
* test/lisp/dired-tests.el (dired-test-bug27899): Add test.
Diffstat (limited to 'lisp/dired.el')
| -rw-r--r-- | lisp/dired.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index e1bedb6c73f..24759c6c9bd 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -1205,7 +1205,7 @@ BEG..END is the line where the file info is located." (setq file-col (+ spaces file-col)) (if (> file-col other-col) (setq spaces (- spaces (- file-col other-col)))) - (insert-char ?\s spaces) + (insert-char ?\s spaces 'inherit) ;; Let's just make really sure we did not mess up. (unless (save-excursion (eq (dired-move-to-filename) (marker-position file))) |