ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'maint' of orgmode.org:org-mode into maint

This commit is contained in:
Bastien Guerry 2012-12-19 00:23:59 +01:00
parent 1c57cd5a7d 7739e8b5f7
commit db28a7a0ab
1 changed files with 15 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
lisp/org.el
View File

@ -20993,22 +20993,18 @@ width for filling.
For convenience, when point is at a plain list, an item or For convenience, when point is at a plain list, an item or
a footnote definition, try to fill the first paragraph within." a footnote definition, try to fill the first paragraph within."
(interactive) (interactive)
(cond ;; First ensure filling in correct in message-mode (if (and (derived-mode-p 'message-mode)
((and (derived-mode-p 'message-mode) (or (not (message-in-body-p))
(or (not (message-in-body-p)) (save-excursion (move-beginning-of-line 1)
(save-excursion (move-beginning-of-line 1) (looking-at message-cite-prefix-regexp))))
(looking-at message-cite-prefix-regexp)))) ;; First ensure filling is correct in message-mode.
(let ((fill-paragraph-function (let ((fill-paragraph-function
(cadadr (assoc 'fill-paragraph-function org-fb-vars))) (cadadr (assoc 'fill-paragraph-function org-fb-vars)))
(fill-prefix (cadadr (assoc 'fill-prefix org-fb-vars))) (fill-prefix (cadadr (assoc 'fill-prefix org-fb-vars)))
(paragraph-start (cadadr (assoc 'paragraph-start org-fb-vars))) (paragraph-start (cadadr (assoc 'paragraph-start org-fb-vars)))
(paragraph-separate (paragraph-separate
(cadadr (assoc 'paragraph-separate org-fb-vars)))) (cadadr (assoc 'paragraph-separate org-fb-vars))))
(fill-paragraph nil))) (fill-paragraph nil))
;; Correct filling in source block
((org-in-src-block-p)
(org-babel-do-key-sequence-in-edit-buffer (kbd "M-q")))
(t
(save-excursion (save-excursion
;; Move to end of line in order to get the first paragraph ;; Move to end of line in order to get the first paragraph
;; within a plain list or a footnote definition. ;; within a plain list or a footnote definition.
@ -21018,6 +21014,8 @@ a footnote definition, try to fill the first paragraph within."
;; the buffer. In that case, ignore filling. ;; the buffer. In that case, ignore filling.
(if (< (point) (org-element-property :begin element)) t (if (< (point) (org-element-property :begin element)) t
(case (org-element-type element) (case (org-element-type element)
;; Use major mode filling function is src blocks.
(src-block (org-babel-do-key-sequence-in-edit-buffer (kbd "M-q")))
;; Align Org tables, leave table.el tables as-is. ;; Align Org tables, leave table.el tables as-is.
(table-row (org-table-align) t) (table-row (org-table-align) t)
(table (table
@ -21094,7 +21092,7 @@ a footnote definition, try to fill the first paragraph within."
;; Fill comments. ;; Fill comments.
(comment (fill-comment-paragraph justify)) (comment (fill-comment-paragraph justify))
;; Ignore every other element. ;; Ignore every other element.
(otherwise t)))))))) (otherwise t)))))))
(defun org-auto-fill-function () (defun org-auto-fill-function ()
"Auto-fill function." "Auto-fill function."