diff options
| author | Stefan Kangas <stefan@marxist.se> | 2020-11-25 03:03:48 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2020-11-25 03:03:48 +0100 |
| commit | 30c437752df0a3a9410f1249fa0f237110811af2 (patch) | |
| tree | 8c3b2fff333ff8bb777bed4d6ef1820874561c00 /lisp/emacs-lisp | |
| parent | 83b5fcb0014896feda98917bcf198094131e82a6 (diff) | |
| download | emacs-30c437752df0a3a9410f1249fa0f237110811af2.tar.gz emacs-30c437752df0a3a9410f1249fa0f237110811af2.tar.bz2 emacs-30c437752df0a3a9410f1249fa0f237110811af2.zip | |
Make text-scale-mode optionally adjust the header line
* lisp/face-remap.el
(text-scale-remap-header-line-face): New buffer local variable.
(text-scale-mode): Adjust header line if above variable is non-nil.
(face-remap--clear-remappings, face-remap--remap-face): New defuns.
* lisp/face-remap.el: Arrange to watch text-scale-mode-remapping.
(text-scale--refresh): New function.
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-mode): Use
text-scale-remap-header-line. (Bug#41852)
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/tabulated-list.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el index 30577679f24..ae3ed055c5d 100644 --- a/lisp/emacs-lisp/tabulated-list.el +++ b/lisp/emacs-lisp/tabulated-list.el @@ -767,6 +767,7 @@ as the ewoc pretty-printer." (setq-local revert-buffer-function #'tabulated-list-revert) (setq-local glyphless-char-display (tabulated-list-make-glyphless-char-display-table)) + (setq-local text-scale-remap-header-line t) ;; Avoid messing up the entries' display just because the first ;; column of the first entry happens to begin with a R2L letter. (setq bidi-paragraph-direction 'left-to-right) |