在Emacs中更改双引号之间的纯文本面

Question

我正在寻找一种方法来突出显示或在纯文本中使用引用文本的不同面。似乎应该有一个复杂/增强的文本模式，但我找不到它。

如果没有一个简单的解决方案，你能告诉我我应该从哪里开始写一个函数吗?

非常感谢!

使用Emacs 19.xx的新手

Answer 1

我不确定主模式是否已经做到了这一点，但您可以使用define-derived-mode

轻松创建一个主模式。

(define-derived-mode rich-text-mode text-mode "Rich Text"
  "text mode with string highlighting."
  ;;register keywords
  (setq rich-text-font-lock-keywords
        '((""\(\(?:.\|n\)*?[^\]\)"" 0 font-lock-string-face)))
  (setq font-lock-defaults rich-text-font-lock-keywords)
  (font-lock-mode 1))

或者，你可以添加一个钩子到文本模式:

(defun add-quotes-to-font-lock-keywords ()
  (font-lock-add-keywords nil '((""\(\(?:.\|n\)*?[^\]\)"" 0 font-lock-string-face))))
(add-hook 'text-mode-hook 'add-quotes-to-font-lock-keywords)

一般来说，编辑任何文本的好模式是org模式。默认情况下，它不会对字符串进行字体锁定。

Answer 2

对于regexp，我认为您希望在字符串内容中排除"本身，除非转义。像这样——"，后跟非"或转义字符，后跟":

"\([^"]\|\\\(.\|[n]\)\)*"

但要注意，"…"是臭名昭著的。我在Info+中就是这样做的，但是在一些参考这种编程结构的手册中，偶尔会出现单独的"或?"，从而导致这种突出显示。