浏览代码

Also set `normal-auto-fill-function' when turning on/off orgstruct++-mode.

* org.el (orgstruct++-mode, org-get-local-variables): Also set
`normal-auto-fill-function' when turning on/off orgstruct++-mode.
Bastien Guerry 12 年之前
父节点
当前提交
da1830ebe6
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      lisp/org.el

+ 2 - 2
lisp/org.el

@@ -8427,7 +8427,7 @@ buffer.  It will also recognize item context in multiline items."
       (mapc
       (mapc
        (lambda (x)
        (lambda (x)
 	 (when (string-match
 	 (when (string-match
-		"^\\(paragraph-\\|auto-fill\\|fill-paragraph\\|adaptive-fill\\|indent-\\)"
+		"^\\(paragraph-\\|auto-fill\\|normal-auto-fill\\|fill-paragraph\\|adaptive-fill\\|indent-\\)"
 		(symbol-name (car x)))
 		(symbol-name (car x)))
 	   (setq var (car x) val (nth 1 x))
 	   (setq var (car x) val (nth 1 x))
 	   (push (list var `(quote ,(eval var))) org-fb-vars)
 	   (push (list var `(quote ,(eval var))) org-fb-vars)
@@ -8577,7 +8577,7 @@ Possible values in the list of contexts are `table', `headline', and `item'."
 		       (list x)
 		       (list x)
 		     (list (car x) (list 'quote (cdr x)))))
 		     (list (car x) (list 'quote (cdr x)))))
 	     (if (string-match
 	     (if (string-match
-		  "^\\(org-\\|orgtbl-\\|outline-\\|comment-\\|paragraph-\\|auto-fill\\|fill-paragraph\\|adaptive-fill\\|indent-\\)"
+		  "^\\(org-\\|orgtbl-\\|outline-\\|comment-\\|paragraph-\\|auto-fill\\|normal-auto-fill\\|fill-paragraph\\|adaptive-fill\\|indent-\\)"
 		  (symbol-name (car x)))
 		  (symbol-name (car x)))
 		 x nil))
 		 x nil))
 	   varlist))))
 	   varlist))))