compat-29: Add substitute-quotes

1 files changed, 14 insertions, 0 deletions

diff --git a/compat-29.el b/compat-29.el
index 6d6adfe..60f5b2e 100644
--- a/compat-29.el
+++ b/compat-29.el
@@ -1124,6 +1124,20 @@ command exists in this specific map, but it doesn't have the
         (delete (last key) submap)))
     def))
 
+;;;; Defined in help.el
+
+(compat-defun substitute-quotes (string) ;; <compat-tests:substitute-quotes>
+  "Substitute quote characters for display.
+Each grave accent \\=` is replaced by left quote, and each
+apostrophe \\=' is replaced by right quote.  Left and right quote
+characters are specified by `text-quoting-style'."
+  (cond ((eq (text-quoting-style) 'curve)
+         (string-replace "`" "‘"
+                         (string-replace "'" "’" string)))
+        ((eq (text-quoting-style) 'straight)
+         (string-replace "`" "'" string))
+        (t string)))
+
 ;;;; Defined in button.el
 
 (compat-defun button--properties (callback data help-echo) ;; <compat-tests:buttonize>