mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-13 00:09:53 +00:00
Code Releases Activity

Remove line/wrap-prefix properties only if org-indent-mode is on

Browse source
This commit is contained in:
Carsten Dominik 2009-11-06 07:22:14 +01:00
parent b49a735533
commit ff6ff85966
2 changed files with 21 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2009-11-06 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-indent-mode): Define variable already in org.el.
(org-unfontify-region): Remove line-prefix and wrap-prefix
properties only if org-indent-mode is active.
2009-11-05 Carsten Dominik <carsten.dominik@gmail.com>
* org-icalendar.el (org-print-icalendar-entries): Save match data

20
lisp/org.el
View file

@ -3304,6 +3304,11 @@ If yes, offer to stop it and to save the buffer with the changes."
;; Autoload org-indent.el
;; Define the variable already here, to make sure we have it.
(defvar org-indent-mode nil
"Non-nil if Org-Indent mode is enabled.
Use the command `org-indent-mode' to change this variable.")
(eval-and-compile
(org-autoload
"org-indent"
@ -4917,11 +4922,16 @@ If KWD is a number, get the corresponding match group."
(inhibit-read-only t) (inhibit-point-motion-hooks t)
(inhibit-modification-hooks t)
deactivate-mark buffer-file-name buffer-file-truename)
(remove-text-properties beg end
'(mouse-face t keymap t org-linked-text t
invisible t intangible t
line-prefix t wrap-prefix t
org-no-flyspell t))))
(remove-text-properties
beg end
(if org-indent-mode
'(mouse-face t keymap t org-linked-text t
invisible t intangible t
line-prefix t wrap-prefix t
org-no-flyspell t)
'(mouse-face t keymap t org-linked-text t
invisible t intangible t
org-no-flyspell t)))))
;;;; Visibility cycling, including org-goto and indirect buffer