diff options
| author | Eli Zaretskii | 2017-08-12 12:45:05 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2017-08-12 12:45:05 +0300 |
| commit | a955d7951624bf38649448dc89b411e8212dec0b (patch) | |
| tree | 690bb27f869163d3755117640954a3f8da38631c | |
| parent | 8cc8ad02bd5c410c61680735149ce7caf67f088d (diff) | |
| download | emacs-a955d7951624bf38649448dc89b411e8212dec0b.tar.gz emacs-a955d7951624bf38649448dc89b411e8212dec0b.zip | |
Adapt tabulated list when display-line-number is turned on
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-mode): Add
a hook to revert the display when display-line-numbers is turned
on. (Bug#27895)
| -rw-r--r-- | lisp/emacs-lisp/tabulated-list.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el index b91532f7e83..955b664b8c5 100644 --- a/lisp/emacs-lisp/tabulated-list.el +++ b/lisp/emacs-lisp/tabulated-list.el | |||
| @@ -628,7 +628,9 @@ as the ewoc pretty-printer." | |||
| 628 | (setq-local glyphless-char-display tabulated-list-glyphless-char-display) | 628 | (setq-local glyphless-char-display tabulated-list-glyphless-char-display) |
| 629 | ;; Avoid messing up the entries' display just because the first | 629 | ;; Avoid messing up the entries' display just because the first |
| 630 | ;; column of the first entry happens to begin with a R2L letter. | 630 | ;; column of the first entry happens to begin with a R2L letter. |
| 631 | (setq bidi-paragraph-direction 'left-to-right)) | 631 | (setq bidi-paragraph-direction 'left-to-right) |
| 632 | ;; This is for if/when they turn on display-line-numbers | ||
| 633 | (add-hook 'display-line-numbers-mode-hook #'tabulated-list-revert nil t)) | ||
| 632 | 634 | ||
| 633 | (put 'tabulated-list-mode 'mode-class 'special) | 635 | (put 'tabulated-list-mode 'mode-class 'special) |
| 634 | 636 | ||