Re: [O] [PATCH] Fix the single quote printed in the message printed by org-table-edit-formulas

[Kaushal Modi]

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?