From mboxrd@z Thu Jan  1 00:00:00 1970
From: Florian Beck <fb@miszellen.de>
Subject: Unescape :help-echo in links
Date: Wed, 20 Mar 2013 20:27:27 +0100
Message-ID: <87mwtxub1c.fsf@sophokles.streitblatt.de>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([208.118.235.92]:50579)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <fb@miszellen.de>) id 1UIOfk-0004kd-Pc
	for emacs-orgmode@gnu.org; Wed, 20 Mar 2013 15:27:43 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <fb@miszellen.de>) id 1UIOfh-0003g7-TQ
	for emacs-orgmode@gnu.org; Wed, 20 Mar 2013 15:27:40 -0400
Received: from mo6-p00-ob.rzone.de ([2a01:238:20a:202:5300::1]:57664)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <fb@miszellen.de>) id 1UIOfh-0003fy-MP
	for emacs-orgmode@gnu.org; Wed, 20 Mar 2013 15:27:37 -0400
Received: from flo-laptop ([89.204.137.209])
	by smtp.strato.de (jored mo32) (RZmta 31.21 DYNA|AUTH)
	with (DHE-RSA-AES128-SHA encrypted) ESMTPA id V06dc8p2KIAMa8
	for <emacs-orgmode@gnu.org>; Wed, 20 Mar 2013 20:27:33 +0100 (CET)
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: emacs-orgmode@gnu.org

Hi,

I use a lot of custom links (for citations) and cannot stand the escaped
mess in the help-echo. So I've been using the patch below for quite some
time without any noticable slowdown.

diff --git a/lisp/org.el b/lisp/org.el
index bf74afd..470f93d 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -5806,10 +5806,7 @@ by a #."
   (if (and (re-search-forward org-bracket-link-regexp limit t)
 	   (not (org-in-src-block-p)))
       (let* ((hl (org-match-string-no-properties 1))
-	     (help (concat "LINK: " hl))
-	     ;; FIXME: Above we should remove the escapes.  But that
-	     ;; requires another match, protecting match data, a lot
-	     ;; of overhead for font-lock.
+             (help (concat "LINK: " (save-match-data (org-link-unescape hl))))
 	     (ip (org-maybe-intangible
 		  (list 'invisible 'org-link
 			'keymap org-mouse-map 'mouse-face 'highlight

-- 
Florian Beck