From: Bastien Guerry <bzg@altern.org>
Date: Sat, 29 Dec 2012 10:20:10 +0000 (+0100)
Subject: org-src.el (org-edit-src-exit): Don't comma-escape the content of a fixed width region
X-Git-Tag: release_7.9.3~53
X-Git-Url: https://repo.or.cz/w/org-mode.git/commitdiff_plain/e4ca9f44e3e05576df83b91ec88c525903a83ace

org-src.el (org-edit-src-exit): Don't comma-escape the content of a fixed width region

* 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.
---

diff --git a/lisp/org-src.el b/lisp/org-src.el
index 5f66a0af6..960ffcd9a 100644
--- a/lisp/org-src.el
+++ b/lisp/org-src.el
@@ -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