[elpa] externals-release/org 7da765e459 3/3: Revert "org-replace-escapes: Fix compiler warning"

[ELPA Syncer]

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

    Revert "org-replace-escapes: Fix compiler warning"
    
    This reverts commit 39786a8dbfa3b87e3edcd9be3b139e8f88bbc771.
    
    In favor of an equivalent upstream Emacs commit 670174a6d5f.
---
 lisp/org-macs.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/org-macs.el b/lisp/org-macs.el
index 642a58403b..1552675f8a 100644
--- a/lisp/org-macs.el
+++ b/lisp/org-macs.el
@@ -1287,8 +1287,9 @@ 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 (propertize "SREF" 'sref sref)))
+        (let ((sref (substring (cdr e) (match-beginning 0) (match-end 0)))
+              (safe "SREF"))
+          (add-text-properties 0 3 (list 'sref sref) safe)
           (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")