Блог

Пожалуйста, я ищу помощи для управления выделенными жирным шрифтом гранями в сочетании с наложениями. При стандартном методе обычно достаточно поместить в другую грань, чтобы предотвратить ее превышение. font-lock :bold nil Однако эта же концепция, похоже, не применяется при работе с оверлеями. Что еще можно сделать при работе с оверлеями, чтобы предотвратить распространение выделения жирным шрифтом на другие грани?

Например: когда два наложения перекрываются, как я могу предотвратить выделение tab-face жирным шрифтом hr-underscore-face ?

 (defface tab-face
  '((t (:foreground "cyan" :bold t)))
  "Face for `tab-face`."
  :group 'lawlist-ruler-faces)

(defface hr-underscore-face
  '((t (:underline "yellow" :bold nil)))
  "Face for `hr-underscore-face`."
  :group 'lawlist-ruler-faces)
  

РЕДАКТИРОВАНИЕ (19 июня 2014 г.): добавлен пример .emacs конфигурации для воспроизведения проблемы и два скриншота. Путь к файлу ispell-program-name необходимо будет задать в соответствии с собственными настройками пользователя.

 ;; GNU Emacs 24.4.50.1 (x86_64-apple-darwin10.8.0,
;; NS appkit-1038.36 Version 10.6.8 (Build 10K549)) of 2014-06-01 on MP.local

(set-face-attribute 'default nil
  :background "black" :foreground "white" :font "Courier" :height 180)

(tool-bar-mode -1)

(require 'ispell)

(require 'flyspell)

(setq-default ispell-program-name
    "/Users/HOME/.0.data/.0.emacs/elpa/bin/aspell")

(custom-set-faces
  '(flyspell-incorrect ((t (:foreground "yellow" :weight bold ))))
  '(highlight ((t (:underline "yellow" :weight normal)))))

(defun zoom ()
(interactive)
  (setq buffer-face-mode-face `(:height 575))
  (buffer-face-mode 1))

(defun test-number-one ()
(interactive)
  (switch-to-buffer (get-buffer-create "test-number-ONE"))
  (zoom)
  (turn-on-flyspell)
  (setq flyspell-mark-duplications-flag nil)
  (setq flyspell-duplicate-distance 0)
  (hl-line-mode 1)
  (insert
    "This is `test-number-one`."
    "n"
    "n"
    "Aabbccddeeffgghhiijjkkllmmnnooppqqrrssttuuvvwwxxyyzz"
    "n"
    "n"
    "Aabbccddeeffgghhiijjkkllmmnnooppqqrrssttuuvvwwxxyyzz"))


(defun test-number-two ()
(interactive)
  (switch-to-buffer (get-buffer-create "test-number-TWO"))
  (zoom)
  (hl-line-mode 1)
  (insert
    "This is `test-number-two`."
    "n"
    "n"
    "Aabbccddeeffgghhiijjkkllmmnnooppqqrrssttuuvvwwxxyyzz"
    "n"
    "n"
    "Aabbccddeeffgghhiijjkkllmmnnooppqqrrssttuuvvwwxxyyzz"))
  

В примере номер один подчеркивание выделено жирным шрифтом. [Тем не менее, я хотел бы узнать, как сделать так, чтобы подчеркивание последовательно имело нормальный вес (даже если :foreground текст выделен жирным шрифтом).]

_{(источник: lawlist.com )}

В примере номер два подчеркивание является нормальным.

_{(источник: lawlist.com )}

:bold это псевдоним совместимости. Для более точного управления используйте :weight , например

 (defface hr-underscore-face
  '((t (:underline "yellow" :weight normal)))
  "Face for `hr-underscore-face`."
  :group 'lawlist-ruler-faces)
  

Я не вижу проблемы, о которой вы сообщаете, даже с кодом, который вы опубликовали (хотя я согласен с @Stefan о :weight normal ).

Оценивая ваш код, я получаю это, который показывает желтое подчеркивание по всему буферу и жирный текст только на части последней строки:

Чего мне не хватает? (Это с буфером в текстовом режиме и font-lock-mode отключено.)