禁止 emacs 在选定区域自动填充

Question

我使用 emacs 来编辑所有内容。在我的一些 LateX 文档中，我想在编辑表格和代码时自动禁用自动填充模式。基本上，我想要两个标签，例如：

   %%% BEGIN NO FILL
   %%% END NO FILL

并且它们之间不会自动填充任何内容。

有人能想出一种方法来做到这一点吗？我需要确定光标是否在该区域内，然后必须切换模式，并且每次光标移动时都需要执行此操作。或者有更好的方法吗？

Answer 1

如果您正在使用 AUCTeX（您应该使用），那么您可能需要查看 LaTeX-indent-environment-list。向此变量添加环境将使（除其他外）Mq 不会重新填充该段落。不幸的是，它似乎不适用于自动填充模式。添加到 LaTeX-mode-hook 中的以下大部分未经测试的代码可能会满足您的需求。

(setq auto-fill-function
  (lambda ()
    (unless (> (save-excursion (or (search-backward "%%% BEGIN NO FILL" (point-min) t) 0))
               (save-excursion (or (search-backward "%%% END NO FILL"   (point-min) t) 0)))
      (do-auto-fill))))

这是非常愚蠢和低效的，但在我的机器上似乎足够快。它不允许嵌套，并且要求您手动标记所有不想填充的部分。我正在考虑添加到我的 .emacs 中的内容（直到我读到你的问题，我没有意识到这对我有多大的困扰）低于当前环境的哪个键，因此不需要特殊的标记（尽管它只查看最里面的环境（我不确定在实践中会造成多大的问题））。将两者结合起来作为练习留给感兴趣的读者。

;; You can use the following to unset the variables and play around with them
;; (makunbound 'auto-fill-ignore-environments)
;; (makunbound 'auto-fill-ignore-environments-regexp)
(defcustom auto-fill-ignore-environments
  (mapcar 'car LaTeX-indent-environment-list)
  "List of environments for which `auto-fill-mode' should be
disabled.  Used to generate `auto-fill-ignore-environments-regexp'."
  :type '(sexp)
  )
(defcustom auto-fill-ignore-environments-regexp
  (regexp-opt auto-fill-ignore-environments)
  "Regexp matching LaTeX environments for which `auto-fill-mode'
should be disabled.  If not set, automatically generated from
`auto-fill-ignore-environments'"
  :type '(string)
  :set-after '(auto-fill-ignore-environments)
  )
(add-hook 'LaTeX-mode-hook
          (lambda ()
            (setq auto-fill-function
                  (lambda ()
                    (unless (string-match auto-fill-ignore-environments-regexp
                                          (LaTeX-current-environment))
                      (do-auto-fill))))))

我以前从未使用过 defcustom，所以我确信这部分可以改进很多。

Answer 2

知道了。看看这个：

(defun in-no-auto-fill-region ()
  (> (save-excursion (or (search-backward "%%% BEGIN NO FILL" (point-min) t) 0))
     (save-excursion (or (search-backward "%%% END NO FILL"   (point-min) t) 0))
     ))

(defun previous-line-checking-auto-fill (arg)
  (interactive "P")
  (previous-line arg)
  (if (in-no-auto-fill-region)
      (turn-off-auto-fill)
    (turn-on-auto-fill)))

(defun next-line-checking-auto-fill (arg)
  (interactive "P")
  (next-line arg)
  (if (in-no-auto-fill-region)
      (turn-off-auto-fill)
    (turn-on-auto-fill)))

(add-hook 'LaTeX-mode-hook
      '(lambda nil
     (local-set-key "C-p" 'previous-line-checking-auto-fill)
     (local-set-key "C-n" 'next-line-checking-auto-fill)
     (auto-fill-mode 1)
     ))

Answer 3

或者，您可以关闭自动填充模式并使用 Mq 来格式化段落。我不喜欢自动填充的跳跃性，所以我在每种模式下都使用它。

Answer 4

如果您想走建议/重新定义所有运动功能的路线，这应该会有所帮助：

(defmacro movement-advice (func)
  `(defadvice ,func (after ; run this after the original function is done (and point has moved)
                     ;; Give it a unique name
                     ,(intern (concat (symbol-name func) "-auto-fill-auto-off"))
                     ;; Hopefully this satisfies the arguments of any function we can throw at it
                     (&rest args)
                     ;; turn it on
                     activate
                     )
     "Turn auto-fill-mode on or off automatically."
     (auto-fill-mode (not (in-no-auto-fill-region)))))

(dolist (func '(next-line
                previous-line
                forward-paragraph
                backward-paragraph
                mouse-drag-region
                ;; Whatever you use
                ))
  (eval `(movement-advice ,func)))