emacs:visual-line-mode和fill-paragraph

我现在正在使用Emacs 23进行文本编辑的视觉模式转换,但是不要让Mq超出习惯(因此添加了硬包装线结尾......).我想知道是否有一种方法可以添加一个条件来禁用fill-paragraph(或删除绑定到Mq)的模式,其中打开了visual-line-mode,但是为那些我仍在使用的模式重新启用它使用自动填充模式？谢谢!

(defun maybe-fill-paragraph (&optional justify region)
  "Fill paragraph at or after point (see `fill-paragraph').

Does nothing if `visual-line-mode' is on."
  (interactive (progn
         (barf-if-buffer-read-only)
         (list (if current-prefix-arg 'full) t)))
  (or visual-line-mode
      (fill-paragraph justify region)))

;; Replace M-q with new binding:
(global-set-key "\M-q" 'maybe-fill-paragraph)

global-set-key您也可以M-q仅在特定模式下重新绑定,而不是使用.(或者,您可以更改全局绑定,然后以特定模式绑定M-q回来fill-paragraph.)请注意,许多模式都是自动加载的,因此在激活模式之前可能无法定义其键映射.要设置特定于模式的绑定,我通常使用这样的函数:

(add-hook 'text-mode-hook
  (defun cjm-fix-text-mode ()
    (define-key text-mode-map "\M-q" 'maybe-fill-paragraph)
    (remove-hook 'text-mode-hook 'cjm-fix-text-mode)))

(这remove-hook不是绝对必要的,但该功能只需要运行一次.)

你可以使用建议.

对于你的.emacs:

(defadvice fill-paragraph (around disable-for-visual-line-mode activate)
  (unless visual-line-mode
    ad-do-it))

当视线模式打开时,这将更改fill-paragraph不执行任何操作.如果您愿意,也可以添加错误.