1
0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-26 07:33:39 +00:00

org-indent: silence byte-compiler

This commit is contained in:
Nicolas Goaziou 2011-08-18 15:44:46 +02:00
parent b3f462a94b
commit 74cca9f57e

View File

@ -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)