Browse Source

ol: Refuse to define reserved internal link types

* lisp/ol.el (org-link-set-parameters): Raise an error when trying to
define reserved internal link types.
Nicolas Goaziou 5 years ago
parent
commit
8c4e270df2
1 changed files with 2 additions and 0 deletions
  1. 2 0
      lisp/ol.el

+ 2 - 0
lisp/ol.el

@@ -749,6 +749,8 @@ TYPE is a string and KEY is a plist keyword.  See
   "Set link TYPE properties to PARAMETERS.
   "Set link TYPE properties to PARAMETERS.
 PARAMETERS should be keyword value pairs.  See
 PARAMETERS should be keyword value pairs.  See
 `org-link-parameters' for supported keys."
 `org-link-parameters' for supported keys."
+  (when (member type '("coderef" "custom-id" "fuzzy" "radio"))
+    (error "Cannot override reserved link type: %S" type))
   (let ((data (assoc type org-link-parameters)))
   (let ((data (assoc type org-link-parameters)))
     (if data (setcdr data (org-combine-plists (cdr data) parameters))
     (if data (setcdr data (org-combine-plists (cdr data) parameters))
       (push (cons type parameters) org-link-parameters)
       (push (cons type parameters) org-link-parameters)