Как выделить плохого персонажа по умолчанию?

Question

Я пишу файлы Markdown (*.md) в обычном текстовом режиме и снова и снова использую неправильный символ одинарной кавычки "´" вместо "` " - что сбивает с толку мой процессор уценки (примечание: только один символ, без здесь изображены двойные кавычки)

Я хотел бы настроить emacs-24, чтобы всегда выделять этот символ на красном фоне. Все режимы будут в порядке, но предпочтителен только текстовый режим. Мои активные режимы (describe-mode)

Включены второстепенные режимы: Автокомпозиция, Авто-сжатие, Авто-шифрование, Мигание, Курсор, Номер столбца, Рабочий стол, Сохранение, Дифф., Автоопределение, Имя, Тень, Flyspell, Font-Lock. Global-Font-Lock.. Колесо Shell-Dirtrack Show-Paren Tooltip Transient-Mark

Answer 1

Используя следующий пример ответа, не стесняйтесь менять цвет фона и переднего плана на любой, какой вы хотите, при условии, что цвет существует - см. M-x list-colors-display

ПРИМЕЧАНИЕ . Многие другие режимы наследуют текстовый режим и добавляют к нему дополнительные элементы. Например, следующий пример ответа работает в текстовом режиме, но также работает в латексном режиме (который наследует настройки текстового режима). Самым простым решением избежать унаследованных настроек было бы использование определенного режима (кроме текстового режима) для записи ваших файлов Markdown и установки дополнений блокировки шрифтов для этого конкретного режима. Вот ссылка на tt-mode, которая очень полезна, чтобы лучше понять, как работает font-lock, и вы можете настроить что-то подобное, чтобы создать свой собственный режим для файлов Markdown. https://github.com/davorg/tt-mode/ Однако у меня есть ощущение, что для Markdown уже должны существовать специальные режимы, которые вы могли бы использовать, а затем просто изменить строку кода в ответе на тот режим, который вы в конечном итоге используете. принять решение - например, http://www.emacswiki.org/emacs/MarkdownMode

(defvar lawlist-super-orange (make-face 'lawlist-super-orange))
(set-face-attribute 'lawlist-super-orange nil :background "white" :foreground "orange" :bold t :underline nil :font "Courier" :height 180)

(defvar lawlist-super-cyan (make-face 'lawlist-super-cyan))
(set-face-attribute 'lawlist-super-cyan nil :background "white" :foreground "cyan" :bold t :underline nil :font "Courier" :height 180)

(add-hook 'text-mode-hook

  (lambda () (font-lock-add-keywords nil (list

    (list (concat "\\(´\\)\\(\\(.\\|\n\\)+?\\)\\(´\\)")
      '(1 lawlist-super-orange t)
      '(2 lawlist-super-cyan t)
      '(4 lawlist-super-orange t))

    (list (concat "lawlist\\|´\\|towi")
      '(0 lawlist-super-orange t)) ))))