diff options
| author | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-08-18 15:44:46 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-08-18 15:46:09 +0200 |
| commit | 74cca9f57ee3896dad85d3b354d1d9db286e799b (patch) | |
| tree | 991389b4341e6a55be312010091a29b9a943c05e | |
| parent | b3f462a94b1c9b9e0cee737dbdca49967c3310fd (diff) | |
| download | org-mode-74cca9f57ee3896dad85d3b354d1d9db286e799b.tar.gz | |
org-indent: silence byte-compiler
| -rw-r--r-- | lisp/org-indent.el | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/lisp/org-indent.el b/lisp/org-indent.el index 4bbedcf..1e6dd93 100644 --- a/lisp/org-indent.el +++ b/lisp/org-indent.el @@ -117,6 +117,13 @@ turn on `org-hide-leading-stars'." :group 'org-indent :type 'integer) +(defface org-indent + (org-compatible-face nil nil) + "Face for outline indentation. +The default is to make it look like whitespace. But you may find it +useful to make it ever so slightly different." + :group 'org-faces) + (defun org-indent-initialize () "Initialize the indentation strings." (setq org-indent-strings (make-vector (1+ org-indent-max) nil)) @@ -134,6 +141,11 @@ turn on `org-hide-leading-stars'." (org-add-props (make-string i ?*) nil 'face 'org-hide)))) +(defsubst org-indent-remove-properties (beg end) + "Remove indentations between BEG and END." + (with-silent-modifications + (remove-text-properties beg end '(line-prefix nil wrap-prefix nil)))) + ;;;###autoload (define-minor-mode org-indent-mode "When active, indent text according to outline structure. @@ -199,13 +211,6 @@ during idle time." nil " Ind" nil (and font-lock-mode (org-restart-font-lock)) (redraw-display)))) -(defface org-indent - (org-compatible-face nil nil) - "Face for outline indentation. -The default is to make it look like whitespace. But you may find it -useful to make it ever so slightly different." - :group 'org-faces) - (defun org-indent-indent-buffer () "Add indentation properties to the accessible part of the buffer." (interactive) @@ -216,11 +221,6 @@ useful to make it ever so slightly different." (org-indent-add-properties (point-min) (point-max)) (message "Indentation of buffer set."))) -(defsubst org-indent-remove-properties (beg end) - "Remove indentations between BEG and END." - (with-silent-modifications - (remove-text-properties beg end '(line-prefix nil wrap-prefix nil)))) - (defun org-indent-remove-properties-from-string (string) "Remove indentation properties from STRING." (remove-text-properties 0 (length string) |