diff options
author | Bastien Guerry <bzg@altern.org> | 2012-10-25 10:49:35 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-10-25 10:49:35 +0200 |
commit | 5c171435ba38955a160d191640cd577425055b55 (patch) | |
tree | 0481ae75987b8c9bad153f6da5498f48e8ecd426 | |
parent | 53f7880d6f4cb3bce518483d78a54b466fcc1945 (diff) | |
parent | aba9e2b94dadcd655e462252a5c79edf61bfa65c (diff) | |
download | org-mode-5c171435ba38955a160d191640cd577425055b55.tar.gz |
Merge branch 'maint'
-rw-r--r-- | lisp/org-src.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/org-src.el b/lisp/org-src.el index 2a7c272..b4d4c04 100644 --- a/lisp/org-src.el +++ b/lisp/org-src.el @@ -689,9 +689,10 @@ with \",*\", \",#+\", \",,*\" and \",,#+\"." (kill-buffer buffer)) (goto-char beg) (when allow-write-back-p - (delete-region beg (1- end)) - (insert code) - (delete-char 1) + (delete-region beg (max beg (1- end))) + (unless (string-match "^[ \t]*$" code) + (insert code) + (delete-char 1)) (goto-char beg) (if single (just-one-space))) (if (memq t (mapcar (lambda (overlay) |