From mboxrd@z Thu Jan 1 00:00:00 1970 From: Florian Beck Subject: Re: Unescape :help-echo in links Date: Thu, 21 Mar 2013 21:22:34 +0100 Message-ID: <87d2ussdth.fsf@sophokles.streitblatt.de> References: <87mwtxub1c.fsf@sophokles.streitblatt.de> <87y5dh3ccs.fsf@bzg.ath.cx> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([208.118.235.92]:40444) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UIm0j-0002cs-Ju for emacs-orgmode@gnu.org; Thu, 21 Mar 2013 16:22:59 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UIm0d-00013e-Je for emacs-orgmode@gnu.org; Thu, 21 Mar 2013 16:22:53 -0400 Received: from mo6-p00-ob.rzone.de ([2a01:238:20a:202:5300::1]:47939) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UIm0d-00013N-BQ for emacs-orgmode@gnu.org; Thu, 21 Mar 2013 16:22:47 -0400 In-Reply-To: <87y5dh3ccs.fsf@bzg.ath.cx> (Bastien's message of "Thu, 21 Mar 2013 00:01:07 +0100") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-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: Bastien Cc: Florian Beck , emacs-orgmode@gnu.org --=-=-= Content-Type: text/plain Bastien writes: > Can you resend it as a proper patch with a changelog? Like this? --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=0001-lisp-org.el-org-activate-bracket-links-remove-escape.patch >From ca9c612208a2528a27b648973cfbf6e8d0801f94 Mon Sep 17 00:00:00 2001 From: Florian Beck Date: Thu, 21 Mar 2013 21:15:50 +0100 Subject: [PATCH] Unescape :help-echo for links * lisp/org.el (org-activate-bracket-links): remove escapes from help string TINYCHANGE --- lisp/org.el | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 7aac63b..3fbd549 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 -- 1.7.10.4 --=-=-= Content-Type: text/plain -- Florian Beck --=-=-=--