Исправление Kostafey, (текущая версия) :
Там в 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))
Остальное - дело вашего творчества ;).
Исправление Kostafey, :
Там в 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)))
Остальное - дело вашего творчества ;).
Исправление Kostafey, :
Там в 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))
Остальное - дело вашего творчества ;).
Исправление Kostafey, :
Там в 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))
Остальное - дело вашего творчетва ;).
Исходная версия Kostafey, :
Там в 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)
Остальное - дело вашего творчетва ;).