From d6e1dd8ec515283e017b948e0cf3172f35187f09 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Wed, 10 Apr 2013 21:42:04 +0200 Subject: [PATCH] Remove two unused functions * lisp/org.el (org-extract-attributes-from-string, org-attributes-to-string): Remove functions. --- lisp/org.el | 17 ----------------- 1 file changed, 17 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 2cbab66d4..48f362fe0 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -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) -- 2.11.4.GIT