Como destacar um caracter ruim por padrão?

Question

Eu escrevo arquivos Markdown ( *.md ) no modo de texto normal e de novo e de novo uso o caractere incorreto de aspas simples " ´ " em vez de " '" - que confunde meu processador de remarcação (nota : apenas o único símbolo, sem as aspas duplas descritas aqui)

Eu gostaria de configurar o emacs-24 para sempre destacar este caractere com um fundo vermelho. Todos os modos estariam ok, mas somente o modo de texto é o preferido. Meus modos ativos são ( describe-mode )

Enabled minor modes: Auto-Composition Auto-Compression Auto-Encryption Blink-Cursor Column-Number Desktop-Save Diff-Auto-Refine File-Name-Shadow Flyspell Font-Lock Global-Font-Lock Icomplete Line-Number Menu-Bar Mouse-Wheel Shell-Dirtrack Show-Paren Tooltip Transient-Mark

    

Answer 1

Usando a seguinte resposta de amostra, sinta-se à vontade para alterar as cores de fundo e de primeiro plano para o que você quiser, desde que a cor exista - veja M-x list-colors-display

OBSERVAÇÃO : Muitos outros modos herdam o modo de texto e adicionam coisas adicionais sobre ele. Por exemplo, a resposta de amostra a seguir funciona no modo de texto, mas também funciona no modo de látex (que herda as configurações de modo de texto). A solução mais fácil para evitar configurações herdadas seria usar um modo específico (diferente de modo de texto) para gravar seus arquivos Markdown e definir as adições de bloqueio de fonte para esse modo específico. Aqui está um link para o modo tt, que é muito útil para entender melhor como o font-lock funciona, e você pode configurar algo semelhante para criar seu próprio modo personalizado para arquivos Markdown. link Eu tenho a sensação, no entanto, de que já devem existir modos especiais para o Markdown que você poderia usar e só mudar a linha de código na resposta para qualquer modo em que você decidir - por exemplo, link

(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)) ))))