diff options
| author | Andrew Hyatt <ahyatt@gmail.com> | 2022-01-20 14:42:31 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-20 14:42:31 +0100 |
| commit | 27b3948a8a29f263272d10c1ee1c50d87797ff50 (patch) | |
| tree | a7e2dc038e64fb1b8d0ae9eeb2bf842e7fe52905 /lisp/face-remap.el | |
| parent | 4450c8bdd93d1b2e7f276e26be2cc37372034c22 (diff) | |
| download | emacs-27b3948a8a29f263272d10c1ee1c50d87797ff50.tar.gz emacs-27b3948a8a29f263272d10c1ee1c50d87797ff50.tar.bz2 emacs-27b3948a8a29f263272d10c1ee1c50d87797ff50.zip | |
Fix indirect font changes incorrectly affecting original buffer
* lisp/face-remap.el (face-attrs--make-indirect-safe):
(clone-indirect-buffer-hook): Set up a face remapping alist
(bug#53294).
* lisp/simple.el (clone-indirect-buffer): Move the point the hook
is run.
* src/buffer.c (Fmake_indirect_buffer, syms_of_buffer): Move the
place where the clone-indirect-buffer-hook variable is defined, so
that we can call it from C.
Diffstat (limited to 'lisp/face-remap.el')
| -rw-r--r-- | lisp/face-remap.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/face-remap.el b/lisp/face-remap.el index 00560f9d2e1..95dffcadd68 100644 --- a/lisp/face-remap.el +++ b/lisp/face-remap.el @@ -70,6 +70,13 @@ :foreground :background :stipple :overline :strike-through :box :font :inherit :fontset :distant-foreground :extend :vector]) +(defun face-attrs--make-indirect-safe () + "Deep copy `face-remapping-alist' on cloning for safety." + (setq-local face-remapping-alist + (mapcar #'copy-sequence face-remapping-alist))) + +(add-hook 'clone-indirect-buffer-hook #'face-attrs--make-indirect-safe) + (defun face-attrs-more-relative-p (attrs1 attrs2) "Return true if ATTRS1 contains a greater number of relative face-attributes than ATTRS2. A face attribute is considered |