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:
parent
b3f462a94b
commit
74cca9f57e
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user