From mboxrd@z Thu Jan 1 00:00:00 1970 From: Kaushal Modi Subject: Re: [PATCH] Fix the single quote printed in the message printed by org-table-edit-formulas Date: Thu, 10 Mar 2016 12:47:28 -0500 Message-ID: References: <87oaamuw2q.fsf@kyleam.com> Mime-Version: 1.0 Content-Type: multipart/alternative; boundary=001a11c17ad6da02bd052db56a92 Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:57754) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ae4h0-0006sS-Bv for emacs-orgmode@gnu.org; Thu, 10 Mar 2016 12:48:11 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ae4gz-0000Dv-DO for emacs-orgmode@gnu.org; Thu, 10 Mar 2016 12:48:10 -0500 Received: from mail-oi0-x231.google.com ([2607:f8b0:4003:c06::231]:34753) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ae4gz-0000DV-7U for emacs-orgmode@gnu.org; Thu, 10 Mar 2016 12:48:09 -0500 Received: by mail-oi0-x231.google.com with SMTP id m82so67018435oif.1 for ; Thu, 10 Mar 2016 09:48:09 -0800 (PST) In-Reply-To: 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: Kyle Meyer , Paul Eggert Cc: emacs-org list --001a11c17ad6da02bd052db56a92 Content-Type: text/plain; charset=UTF-8 I am unable to figure out how to escape the ` and ' in the help-echo text property. I tried the below: diff --git a/lisp/org-table.el b/lisp/org-table.el index 0a25772..749baca 100644 --- a/lisp/org-table.el +++ b/lisp/org-table.el @@ -794,10 +794,10 @@ When nil, simply write \"#ERROR\" in corrupted fields.") (when (> (org-string-width x) fmax) (org-add-props x nil 'help-echo - (concat + (format "%s\n%s" (substitute-command-keys "Clipped table field, use \\[org-table-edit-field] to \ -edit. Full value is:\n") +edit. Full value is:") (substring-no-properties x))) (let ((l (length x)) (f1 (min fmax But that did not help. Here is a test snippet to show the problem: (let* ((str1 "\nHi1") (str2 "\nHi2") (echo-str1 "`without format'") (echo-str2 (format "%s" "`with format'")) ov) (let* ((b (+ 1 (point))) (e (+ b (string-width str1)))) (insert str1) (setq ov (make-overlay b e))) (overlay-put ov 'help-echo echo-str1) (let* ((b (+ 1 (point))) (e (+ b (string-width str2)))) (insert str2) (setq ov (make-overlay b e))) (overlay-put ov 'help-echo echo-str2)) How can I make the help-echo property display the ` and ' verbatim, without curving them? --001a11c17ad6da02bd052db56a92 Content-Type: text/html; charset=UTF-8 Content-Transfer-Encoding: quoted-printable
I am unable to figure out how t= o escape the ` and ' in the help-echo text property.

I tried the below:
=

diff --git a/lisp/org-table.el b/lisp/org-table.el
index 0a25772..749baca 100644
--- a/lisp/org-table.el
+++ b/l= isp/org-table.el
@@ -794,10 +794,10 @@ When= nil, simply write \"#ERROR\" in corrupted fields.")
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 (when (> (org-string-width x) fmax)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 (org-add-props x nil
=C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 'help-ec= ho
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (concat
+ = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (form= at "%s\n%s"
=C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(substitute-c= ommand-keys
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 "Clipped table fi= eld, use \\[org-table-edit-field] to \
-edi= t.=C2=A0 Full value is:\n")
+edit.=C2= =A0 Full value is:")
=C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(substrin= g-no-properties x)))
=C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (let ((l (length x))
=
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0= =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (f1 (min fmax


But that did not hel= p.

Here is a test snippet to show the problem:

(let* ((str1 "\nHi1")
=C2=A0= =C2=A0 =C2=A0 =C2=A0(str2 "\nHi2")
=C2=A0 =C2=A0 =C2= =A0 =C2=A0(echo-str1 "`without format'")
=C2=A0 =C2= =A0 =C2=A0 =C2=A0(echo-str2 (format "%s" "`with format'&= quot;))
=C2=A0 =C2=A0 =C2=A0 =C2=A0ov)
=C2=A0 (let* ((b= (+ 1 (point)))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(e (+ b (string= -width str1))))
=C2=A0 =C2=A0 (insert str1)
=C2=A0 =C2= =A0 (setq ov (make-overlay b e)))
=C2=A0 (overlay-put ov 'hel= p-echo echo-str1)
=C2=A0 (let* ((b (+ 1 (point)))
=C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(e (+ b (string-width str2))))
=C2= =A0 =C2=A0 (insert str2)
=C2=A0 =C2=A0 (setq ov (make-overlay b e= )))
=C2=A0 (overlay-put ov 'help-echo echo-str2))
=

How can I make the help-echo property display the ` and= ' verbatim, without curving them?

--001a11c17ad6da02bd052db56a92--