la fuente org-block-background no tiene efecto

Yo uso variable-pitch-modecon orgtampones. Normalmente me puse org-blocka fixed-pitchy el código entre #+BEGIN_SRCy #+END_SRCque se efectúan correctamente como fuentes de ancho fijo, también con resaltado de sintaxis correcta. Sin embargo, a partir de la semana pasada, por alguna razón, aunque la fuente del bloque de código todavía tenía el resaltado de sintaxis adecuado, la cara se volvió igual a la de variable-pitch-facelos textos normales del modo de organización. Actualizo mis paquetes periódicamente y creo que una actualización org-modecausó el problema, pero no estoy seguro de qué sucedió.

Actualizar:

Resulta que esto está realmente relacionado con la org-block-backgroundcara, que se ha eliminado en la versión 8.3.1 de la organización en commit f8b42e8, por lo tanto, el error. No estoy seguro si hay una solución todavía. /programming/26290924/fontify-r-code-blocks-in-org-mode-8 https://lists.gnu.org/archive/html/emacs-orgmode/2015-08/msg00510 .html

Actualmente solo estoy bloqueando mi versión del modo org. A la anterior.

Actualización 2:

La versión más reciente del modo org, versión 9.0.0, aparentemente permite src-blocksheredar la org-blockcara, mientras que la org-block-backgroundcara se vuelve obsoleta. Así que ahora, simplemente configurando la org-blockcara, debería poder tener fuentes de ancho fijo para todos los códigos.

Resulta que esto está realmente relacionado con org-block-background face, que se ha eliminado en org versión 8.3.1 en commit f8b42e8, por lo tanto, el error. La justificación parece ser

1. causa un error con la psexportación
2. es ineficiente

Quizás en el futuro haya una alternativa, pero aún no.

/programming/26290924/fontify-r-code-blocks-in-org-mode-8

https://lists.gnu.org/archive/html/emacs-orgmode/2015-08/msg00510.html

Actualmente parece que la única forma de recuperar el comportamiento anterior es revertir manualmente los cambios introducidos en commit f8b42e8. Puedes ver el commit aquí:

http://orgmode.org/cgit.cgi/org-mode.git/commit/?id=f8b42e8

diff --git a/lisp/org-faces.el b/lisp/org-faces.el
index e693dab..83453e8 100644
--- a/lisp/org-faces.el
+++ b/lisp/org-faces.el
@@ -537,9 +537,6 @@ follows a #+DATE:, #+AUTHOR: or #+EMAIL: keyword."
   :group 'org-faces
   :version "22.1")

-(defface org-block-background '((t ()))
-  "Face used for the source block background.")
-
 (org-copy-face 'org-meta-line 'org-block-begin-line
   "Face used for the line delimiting the begin of source blocks.")

diff --git a/lisp/org.el b/lisp/org.el
index a153151..7e30061 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -5930,15 +5930,7 @@ by a #."
          (cond
           ((and lang (not (string= lang "")) org-src-fontify-natively)
        (org-src-font-lock-fontify-block lang block-start block-end)
-       ;; remove old background overlays
-       (mapc (lambda (ov)
-           (if (eq (overlay-get ov 'face) 'org-block-background)
-               (delete-overlay ov)))
-             (overlays-at (/ (+ beg1 block-end) 2)))
-       ;; add a background overlay
-       (setq ovl (make-overlay beg1 block-end))
-                (overlay-put ovl 'face 'org-block-background)
-                (overlay-put ovl 'evaporate t)) ; make it go away when empty
+       (add-text-properties beg1 block-end '(src-block t)))
           (quoting
        (add-text-properties beg1 (min (point-max) (1+ end1))
                     '(face org-block))) ; end of source block
@@ -21828,9 +21820,7 @@ and end of string."
 When INSIDE is non-nil, don't consider we are within a src block
 when point is at #+BEGIN_SRC or #+END_SRC."
   (let ((case-fold-search t) ov)
-    (or (and (setq ov (overlays-at (point)))
-        (memq 'org-block-background
-          (overlay-properties (car ov))))
+    (or (and (eq (get-char-property (point) 'src-block) t))
    (and (not inside)
         (save-match-data
           (save-excursion

No estoy seguro de cuándo cambió, pero también lo estoy viendo.

Al usar C-u C-x =dentro de un bloque de este tipo, puedo ver que en realidad tiene la cara org-block-backgroundahora, en lugar de org-block. Personalizar esa cara para heredar de fixed-pitchtrabajos para mí.

Probado de la siguiente manera:

(set-face-attribute 'org-block-background nil :inherit 'fixed-pitch)

Si desea preservar cualquier herencia existente en esa cara, puede hacer lo siguiente (adaptado del original aquí: /programming/3758139/variable-pitch-for-org-mode-fixed-pitch-for -tables / 16819449 # 16819449 ):

(defun my-adjoin-to-list-or-symbol (element list-or-symbol)
    (let ((list (if (not (listp list-or-symbol))
                    (list list-or-symbol)
                  list-or-symbol)))
      (require 'cl-lib)
      (cl-adjoin element list)))

(set-face-attribute 'org-block-background nil :inherit
            (my-adjoin-to-list-or-symbol
             'fixed-pitch
             (face-attribute 'org-block-background :inherit)))