summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2012-12-29 10:20:10 (GMT)
committer Bastien Guerry <bzg@altern.org>2012-12-29 10:20:10 (GMT)
commite4ca9f44e3e05576df83b91ec88c525903a83ace (patch)
tree028ef06191d35a7099e3e01c763e0664329ccee2
parent7133e712426d8468abdbef0599d1e972562e21b2 (diff)
downloadorg-mode-e4ca9f44e3e05576df83b91ec88c525903a83ace.zip
org-mode-e4ca9f44e3e05576df83b91ec88c525903a83ace.tar.gz
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.
-rw-r--r--lisp/org-src.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org-src.el b/lisp/org-src.el
index 5f66a0a..960ffcd 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