История изменений

Там в 27 версии Emacs есть небольшая магия с темой. Если вы что-то/все меняете, а при этом меняется более-менее ничего от слова совсем, то вот это как раз оно ;).

А лечится исправлением значения не в самой теме, а в custom-theme-set-variables темы.

Если вы хотите понять как называется face, который отвечает за отображение этого элемента синтаксиса, воспользуйтесь функцией describe-face предварительно добавив и выполнив в своем .emacs:

;;-----------------------------------------------------------------------------
;; Fix `describe-face' fn call when `hl-line' is enabled.
;;
(defun my-face-at-point ()
  (let ((face (get-text-property (point) 'face)))
    (or (and (face-list-p face)
             (car face))
        (and (symbolp face)
             face))))

(defun what-face (pos)
  (interactive)
  (message "Face: %s" (my-face-at-point)))

(defun my-describe-face (&rest ignore)
  (interactive (list (read-face-name "Describe face"
                                     (or (my-face-at-point) 'default)
                                     t)))
  ;; This only needs to change the `interactive` spec, so:
  nil)

(eval-after-load "hl-line"
  '(advice-add 'describe-face :before #'my-describe-face))

Остальное - дело вашего творчества ;).

Там в 27 версии Emacs есть небольшая магия с темой. Если вы что-то/все меняете, а при этом меняется более-менее ничего от слова совсем, то вот это как раз оно ;).

А лечится исправлением значения не в самой теме, а в custom-theme-set-variables темы.

Если вы хотите понять как называется face, который отвечает за отображение этого элемента синтаксиса, воспользуйтесь функцией describe-face предварительно добавив и выполнив в своем .emacs:

;;-----------------------------------------------------------------------------
;; Fix `describe-face' fn call when `hl-line' is enabled.
;;
(defun my-face-at-point ()
  (let ((face (get-text-property (point) 'face)))
    (or (and (face-list-p face)
             (car face))
        (and (symbolp face)
             face))))

(defun what-face (pos)
  (interactive)
  (message "Face: %s" (my-face-at-point)))

Остальное - дело вашего творчества ;).

Там в 27 версии Emacs есть небольшая магия с темой. Если вы что-то/все меняете, а при этом меняется более-менее ничего от слова совсем, то вот это как раз оно ;).

А лечится исправлением значения не в самой теме, а в custom-theme-set-variables темы.

Если вы хотите понять как называется face, который отвечает за отображение этого элемента синтаксиса, воспользуйтесь функцией describe-face предварительно добавив и выполнив в своем .emacs:

(defun my-describe-face (&rest ignore)
  (interactive (list (read-face-name "Describe face"
                                     (or (my-face-at-point) 'default)
                                     t)))
  ;; This only needs to change the `interactive` spec, so:
  nil)

(eval-after-load "hl-line"
  '(advice-add 'describe-face :before #'my-describe-face))

Остальное - дело вашего творчества ;).

Там в 27 версии Emacs есть небольшая магия с темой. Если вы что-то/все меняете, а при этом меняется более-менее ничего от слова совсем, то вот это как раз оно ;).

А лечится исправлением значения не в самой теме, а в custom-theme-set-variables темы.

Если вы хотите понять как называется face, который отвечает за отображение этого элемента синтаксиса, воспользуйтесь функцией describe-face предварительно добавив и выполнив в своем .emacs:

(defun my-describe-face (&rest ignore)
  (interactive (list (read-face-name "Describe face"
                                     (or (my-face-at-point) 'default)
                                     t)))
  ;; This only needs to change the `interactive` spec, so:
  nil)

(eval-after-load "hl-line"
  '(advice-add 'describe-face :before #'my-describe-face))

Остальное - дело вашего творчетва ;).

Там в 27 версии Emacs есть небольшая магия с темой. Если вы что-то/все меняете, а при этом меняется более-менее ничего от слова совсем, то вот это как раз оно ;).

А лечится исправлением значения не в самой теме, а в custom-theme-set-variables темы.

Если вы хотите понять как называется face, который отвечает за отображение этого элемента синтаксиса, воспользуйтесь этой функцией:

(defun my-describe-face (&rest ignore)
  (interactive (list (read-face-name "Describe face"
                                     (or (my-face-at-point) 'default)
                                     t)))
  ;; This only needs to change the `interactive` spec, so:
  nil)

Остальное - дело вашего творчетва ;).