Remove two unused functions

* lisp/org.el (org-extract-attributes-from-string,
  org-attributes-to-string): Remove functions.
This commit is contained in:
Nicolas Goaziou 2013-04-10 21:42:04 +02:00
parent bc269f01f3
commit d6e1dd8ec5
1 changed files with 0 additions and 17 deletions

View File

@ -10121,23 +10121,6 @@ from."
(org-add-props s nil 'org-attr attr))
s))
(defun org-extract-attributes-from-string (tag)
(let (key value attr)
(while (string-match "\\([a-zA-Z]+\\)=\"\\([^\"]*\\)\"\\s-?" tag)
(setq key (match-string 1 tag) value (match-string 2 tag)
tag (replace-match "" t t tag)
attr (plist-put attr (intern key) value)))
(cons tag attr)))
(defun org-attributes-to-string (plist)
"Format a property list into an HTML attribute list."
(let ((s "") key value)
(while plist
(setq key (pop plist) value (pop plist))
(and value
(setq s (concat s " " (symbol-name key) "=\"" value "\""))))
s))
;;; Opening/following a link
(defvar org-link-search-failed nil)