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