From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Maus Subject: [PATCH 15/16] Use `org-link-unescape' instead of obsolete unhex string function Date: Sun, 13 Feb 2011 13:01:17 +0100 Message-ID: <1297598478-9925-16-git-send-email-dmaus@ictsoc.de> References: <87d3mwvqwq.fsf@gnu.org> Return-path: Received: from [140.186.70.92] (port=57727 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Poaek-00045a-F7 for emacs-orgmode@gnu.org; Sun, 13 Feb 2011 07:02:23 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Poaej-0007Iw-70 for emacs-orgmode@gnu.org; Sun, 13 Feb 2011 07:02:22 -0500 Received: from mail.app1.xlhost.de ([213.202.242.114]:48960 helo=mysql1.xlhost.de) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Poaei-0007IN-TH for emacs-orgmode@gnu.org; Sun, 13 Feb 2011 07:02:21 -0500 In-Reply-To: <87d3mwvqwq.fsf@gnu.org> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org, bastien.guerry@wikimedia.fr Cc: David Maus * lisp/org-protocol.el (org-protocol-split-data) (org-protocol-open-source): Use `org-link-unescape' instead of obsolete unhex string function. --- lisp/org-protocol.el | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org-protocol.el b/lisp/org-protocol.el index 46441db..b1ad0a9 100644 --- a/lisp/org-protocol.el +++ b/lisp/org-protocol.el @@ -301,7 +301,7 @@ part." (if unhexify (if (fboundp unhexify) (mapcar unhexify split-parts) - (mapcar 'org-protocol-unhex-string split-parts)) + (mapcar 'org-link-unescape split-parts)) split-parts))) (defun org-protocol-flatten-greedy (param-list &optional strip-path replacement) @@ -476,7 +476,7 @@ The location for a browser's bookmark should look like this: ;; As we enter this function for a match on our protocol, the return value ;; defaults to nil. (let ((result nil) - (f (org-protocol-unhex-string fname))) + (f (org-link-unescape fname))) (catch 'result (dolist (prolist org-protocol-project-alist) (let* ((base-url (plist-get (cdr prolist) :base-url)) -- 1.7.2.3