From e4ca9f44e3e05576df83b91ec88c525903a83ace Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sat, 29 Dec 2012 11:20:10 +0100 Subject: [PATCH] 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. --- lisp/org-src.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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 -- 2.11.4.GIT