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?