tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-indent: corrections to comments and doc-strings

This commit is contained in:
Nicolas Goaziou 2011-07-24 15:33:48 +02:00
parent ff5a081002
commit 4d780baa11
1 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lisp/org-indent.el
View File

@ -27,7 +27,13 @@
;; This is an implementation of dynamic virtual indentation. It works ;; This is an implementation of dynamic virtual indentation. It works
;; by adding text properties to a buffer to make sure lines are ;; by adding text properties to a buffer to make sure lines are
;; indented according to outline structure. ;; indented according to outline structure.
;;
;; The process is synchronous, toggled at every buffer modification.
;; Though, the initialization (indentation of text already in the
;; buffer), which can take a few seconds in large buffers, happens on
;; idle time and only when the buffer being initialized is the active
;; one.
;;
;;; Code: ;;; Code:
(require 'org-macs) (require 'org-macs)
@ -127,8 +133,11 @@ turn on `org-hide-leading-stars'."
"When active, indent text according to outline structure. "When active, indent text according to outline structure.
Internally this works by adding `line-prefix' and `wrap-prefix' Internally this works by adding `line-prefix' and `wrap-prefix'
properties, after each buffer modifiation, on the modified zone." properties, after each buffer modification, on the modified zone.
nil " Ind" nil
The process is synchronous. Though, initial indentation of
buffer, which can take a few seconds on large buffers, is done
during idle time." nil " Ind" nil
(cond (cond
((org-bound-and-true-p org-inhibit-startup) ((org-bound-and-true-p org-inhibit-startup)
(setq org-indent-mode nil)) (setq org-indent-mode nil))
@ -242,7 +251,7 @@ you want to use this feature."
(org-with-wide-buffer (org-with-wide-buffer
(goto-char beg) (goto-char beg)
(beginning-of-line) (beginning-of-line)
;; 1. Initialize prefix at BEG. This is done by storing two ;; 1. Initialize prefix at BEG. This is done by storing two
;; variables: INLINE-PF and PF, representing respectively ;; variables: INLINE-PF and PF, representing respectively
;; length of current `line-prefix' when line is inside an ;; length of current `line-prefix' when line is inside an
;; inline task or not. ;; inline task or not.
@ -305,8 +314,9 @@ you want to use this feature."
((looking-at "\\*+ end[ \t]*$") ((looking-at "\\*+ end[ \t]*$")
(funcall set-prop-and-move line wrap 'inline) (funcall set-prop-and-move line wrap 'inline)
(setq pf-inline nil)) (setq pf-inline nil))
;; Start of inline task. Determine if it contains text, ;; Start of inline task. Determine if it contains
;; or is only one line long. Set PF-INLINE accordingly. ;; text, or if it is only one line long. Set
;; PF-INLINE accordingly.
(t (funcall set-prop-and-move line wrap 'inline) (t (funcall set-prop-and-move line wrap 'inline)
(setq pf-inline (and (org-inlinetask-in-task-p) wrap)))))) (setq pf-inline (and (org-inlinetask-in-task-p) wrap))))))
;; List item: `wrap-prefix' is set where body starts. ;; List item: `wrap-prefix' is set where body starts.
@ -320,7 +330,7 @@ you want to use this feature."
(funcall set-prop-and-move line wrap nil)))))))))) (funcall set-prop-and-move line wrap nil))))))))))
(defun org-indent-notify-modified-headline (beg end) (defun org-indent-notify-modified-headline (beg end)
"Set `org-indent-modified-headline-flag' depending on the current command. "Set `org-indent-modified-headline-flag' depending on context.
BEG and END are the positions of the beginning and end of the BEG and END are the positions of the beginning and end of the
range of deleted text. range of deleted text.