blayfduoisaudfoiasdupjfoiu

1 files changed, 8 insertions, 6 deletions

@@ -474,12 +474,12 @@ first."
    (let ((extracted-heading (acdw/org-extract-heading-text))
          (org-export-show-temporary-export-buffer nil)
          (org-export-filter-final-output-functions
-          '(html-body-id-filter html-body-div-filter))
-         (org-export-with-smart-quotes nil)
-         (org-export-smart-quotes-alist nil))
+          '(html-body-id-filter html-body-div-filter)))
      (insert "* ORG IS STUPID SOMETIMES\n")
      (goto-char (point-min))
-     (org-html-export-as-html nil t nil t)
+     (org-html-export-as-html nil t nil t
+                              (list :with-smart-quotes nil
+                                    :with-special-strings t))
      (with-current-buffer "*Org HTML Export*"
        (goto-char (point-min))
        (replace-regexp "<h2>.*</h2>" "")
@@ -498,13 +498,15 @@ first."
   nil)
 
 (defun acdw/org-export-copy ()
-  "copy a tree"
+  "Copy a tree as ASCII."
   (interactive)
   (require 'ox-ascii)
   (let ((extracted-heading (acdw/org-extract-heading-text)))
     ;; Export to ASCII - not async, subtree only, visible-only, body-only
     (let ((org-export-show-temporary-export-buffer nil))
-      (org-ascii-export-as-ascii nil t nil t))
+      (org-ascii-export-as-ascii nil t nil t
+                                 (list :with-smart-quotes t
+                                       :with-special-strings t)))
     (with-current-buffer "*Org ASCII Export*"
       (goto-char (point-min))
       (insert extracted-heading)