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

[Kaushal Modi <kaushal.modi@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 1447 bytes --]

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?

[-- Attachment #2: Type: text/html, Size: 2716 bytes --]