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

Fix `org-no-properties' called with an optional argument 

* lisp/org-macs.el (org-no-properties): Fix function so that optional
  argument `restricted' is not ignored.
This commit is contained in:
Nicolas Goaziou 2016-06-23 15:55:39 +02:00
parent 89d2006e84
commit ba4831bba8
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org-macs.el
View File

@ -135,11 +135,8 @@ Otherwise return nil."
"Remove all text properties from string S.
When RESTRICTED is non-nil, only remove the properties listed
in `org-rm-props'."
(if (fboundp 'set-text-properties)
(set-text-properties 0 (length s) nil s)
(if restricted
(remove-text-properties 0 (length s) org-rm-props s)
(set-text-properties 0 (length s) nil s)))
(if restricted (remove-text-properties 0 (length s) org-rm-props s)
(set-text-properties 0 (length s) nil s))
s)
(defsubst org-get-alist-option (option key)