doc: Improve Emacs macros for editing command help texts

diff --git a/rpp-test-sw/commands/doc/help-format.el b/rpp-test-sw/commands/doc/help-format.el
index 1ce4f5b8f47cd6ebf6e3fc7acfbba88be38554a0..e2f046f2968c039af3816c2a459061651698a539 100644 (file)
--- a/rpp-test-sw/commands/doc/help-format.el
+++ b/rpp-test-sw/commands/doc/help-format.el
@@ -53,6 +53,24 @@
       (while (re-search-forward "^\\(.*\\)$" nil t)
        (replace-match "\"\\1\\\\n\"" t)))))
 
+(defun wsh/escape-quotes (beg end)
+  (interactive "r")
+  (save-excursion
+    (save-restriction
+      (narrow-to-region beg end)
+      (goto-char (point-min))
+      (while (re-search-forward "\"" nil t)
+       (replace-match "\\\\\"" t)))))
+
+(defun wsh/unescape-quotes (beg end)
+  (interactive "r")
+  (save-excursion
+    (save-restriction
+      (narrow-to-region beg end)
+      (goto-char (point-min))
+      (while (re-search-forward "\\\\\"" nil t)
+       (replace-match "\"" t)))))
+
 (defun wsh/edit-multiline-string (beg end)
   (interactive "r")
   (let ((text (buffer-substring beg end))
@@ -66,7 +84,8 @@
     (insert text)
     (goto-char pos)
     (wsh/strip-quotes-and-newline (point-min) (point-max))
-    (text-mode)
+    (wsh/unescape-quotes (point-min) (point-max))
+    (markdown-mode)
     (save-excursion
       (goto-char (point-max))
       (skip-chars-backward "\n")
@@ -95,6 +114,7 @@
     (goto-char (point-max))
     (skip-chars-backward " \t\n\r\f\v")
     (delete-region (point) (point-max))
+    (wsh/escape-quotes (point-min) (point-max))
     (wsh/add-quotes-and-newline (point-min) (point-max))
     (let ((text (buffer-string)))
       (switch-to-buffer wsh/c-buffer)