[elpa] externals-release/org 39786a8dbf 1/3: org-replace-escapes: Fix compiler warning

[ELPA Syncer]

branch: externals-release/org
commit 39786a8dbfa3b87e3edcd9be3b139e8f88bbc771
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    org-replace-escapes: Fix compiler warning
    
    * lisp/org-macs.el (org-replace-escapes): Do not modify constant
    string.
---
 lisp/org-macs.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lisp/org-macs.el b/lisp/org-macs.el
index 1552675f8a..642a58403b 100644
--- a/lisp/org-macs.el
+++ b/lisp/org-macs.el
@@ -1287,9 +1287,8 @@ so values can contain further %-escapes if they are 
define later in TABLE."
     (dolist (e tbl)
       (setq re (concat "%-?[0-9.]*" (substring (car e) 1)))
       (when (and (cdr e) (string-match re (cdr e)))
-        (let ((sref (substring (cdr e) (match-beginning 0) (match-end 0)))
-              (safe "SREF"))
-          (add-text-properties 0 3 (list 'sref sref) safe)
+        (let* ((sref (substring (cdr e) (match-beginning 0) (match-end 0)))
+               (safe (propertize "SREF" 'sref sref)))
           (setcdr e (replace-match safe t t (cdr e)))))
       (while (string-match re string)
         (setq rpl (format (concat (substring (match-string 0 string) 0 -1) "s")