为什么 font-lock-fontify-buffer 在 minibuffer 中工作时不能在 elisp 中工作？

Question

所以我正在编写一些 elisp 来测试 Web 服务，但在语法高亮方面遇到了麻烦。我正在使用 url-retrieve-synchronously 来获取 HTTP 响应，然后编辑文本以获取我需要查看的 XML。不幸的是，语法高亮在返回的缓冲区中不起作用，即使我已将其设置为 nxml-mode 并在脚本中使用了“font-lock-fontify-buffer”。但是，如果我执行“M-x font-lock-fontify-buffer”，则突出显示会按我的预期工作。在 elisp 和在 emacs 中使用它有什么区别吗？

以下是我正在整理的脚本的相关部分。我事先承认这是我做过的第一个 elisp 脚本，而且我可能以一种非常不正确的方式做事，但到目前为止一切正常。

(defun modality-http-request (url args request-type)
    (let ((url-request-method request-type)
        (url-request-extra-headers '(("Content-Type" . "application/x-www-form-urlencoded")))
        (url-request-data
            (mapconcat (lambda (arg)
                (concat  (url-hexify-string (car arg))
                    "="
                    (url-hexify-string (cdr arg))))
                    args
                    "&")))
        (url-retrieve-synchronously url)))

(defun modality-http-get (url args)
    (modality-http-request url args "GET"))

(defun modality-http-post (url args)
    (modality-http-request url args "POST"))

(defun test-modality (test)
    (interactive "s\Test: ")
        (let ((buffer (modality-http-get (concat (get-modality-path) test) nil)))
            (set-buffer buffer)
            (setq modality-beginning (point))
            (forward-paragraph)
            (next-line)
            (beginning-of-line)
            (setq modality-end (point))
            (delete-region modality-beginning modality-end)
            (bf-pretty-print-xml-region)
            (switch-to-buffer buffer)
            (font-lock-fontify-buffer)))

(defun bf-pretty-print-xml-region ()
  "Pretty format XML markup in region. You need to have nxml-mode
http://www.emacswiki.org/cgi-bin/wiki/NxmlMode installed to do
this.  The function inserts linebreaks to separate tags that have
nothing but whitespace between them.  It then indents the markup
by using nxml's indentation rules."
  (interactive "r")
  (save-excursion
      (nxml-mode)
      (goto-char (point-min))
      (while (search-forward-regexp "\>[ \\t]*\<" nil t) 
        (backward-char) (insert "\n"))
      (indent-region (point-min) (point-max))
      ))

Answer 1

URL 使用临时/内部缓冲区（通过其名称以空格开头的事实来识别）。它们很普通，但有些函数会特别对待它们：字体锁定不会被激活，缓冲区通常不会显示给用户（例如 C-x b TAB 不会显示这些缓冲区）。 因此，要么在启用字体锁定之前重命名缓冲区，要么将所需的文本复制到另一个名称不以空格开头的缓冲区中。