org-src.el (org-edit-src-exit): Don't comma-escape the content of a fixed width region
authorBastien Guerry <bzg@altern.org>
Sat, 29 Dec 2012 10:20:10 +0000 (29 11:20 +0100)
committerBastien Guerry <bzg@altern.org>
Sat, 29 Dec 2012 10:20:10 +0000 (29 11:20 +0100)
* org-src.el (org-edit-src-exit): Don't comma-escape the
content of a fixed width region.

Thanks to Bernt Hansen for reporting this.

lisp/org-src.el

index 5f66a0a..960ffcd 100644 (file)
@@ -633,7 +633,8 @@ with \",*\", \",#+\", \",,*\" and \",,#+\"."
   (unless (org-bound-and-true-p org-edit-src-from-org-mode)
     (error "This is not a sub-editing buffer, something is wrong"))
   (widen)
-  (let* ((beg org-edit-src-beg-marker)
+  (let* ((fixed-width-p (string-match "Fixed Width" (buffer-name)))
+        (beg org-edit-src-beg-marker)
         (end org-edit-src-end-marker)
         (ovl org-edit-src-overlay)
         (bufstr (buffer-string))
@@ -670,7 +671,8 @@ with \",*\", \",#+\", \",,*\" and \",,#+\"."
            (goto-char (point-max)) (insert "\\n")))
        (goto-char (point-min))
        (if (looking-at "\\s-*") (replace-match " ")))
-      (when (org-bound-and-true-p org-edit-src-from-org-mode)
+      (when (and (org-bound-and-true-p org-edit-src-from-org-mode)
+                (not fixed-width-p))
        (org-escape-code-in-region (point-min) (point-max))
        (setq delta (+ delta
                       (save-excursion