Преглед изворни кода

org: Correct regexp escaping to use regexp-quote

* lisp/org.el (org--confirm-resource-safe): `regexp-opt' was
accidentally used instead of `regexp-quote'.
TEC пре 2 година
родитељ
комит
6ad53fa22e
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      lisp/org.el

+ 1 - 1
lisp/org.el

@@ -4588,7 +4588,7 @@ returns non-nil if any of them match."
             (customize-push-and-save
             (customize-push-and-save
              'org-safe-remote-resources
              'org-safe-remote-resources
              (list (concat "\\`"
              (list (concat "\\`"
-                           (regexp-opt
+                           (regexp-quote
                             (if (and (= char ?f) current-file)
                             (if (and (= char ?f) current-file)
                                 (concat "file://" current-file) uri))
                                 (concat "file://" current-file) uri))
                            "\\'"))))
                            "\\'"))))