diff options
| author | Carsten Dominik <carsten.dominik@gmail.com> | 2013-09-24 23:34:39 +0200 |
|---|---|---|
| committer | Carsten Dominik <carsten.dominik@gmail.com> | 2013-09-25 09:14:12 +0200 |
| commit | 4cd14bd2ff29a4b8ed8e5c63ac641c3b044f15cc (patch) | |
| tree | 01b37cc0c19a33c6a1fc43639c03cb4c67cdfd5e | |
| parent | a1a0acc20409fead50672c70416e7597bb55470f (diff) | |
| download | org-mode-4cd14bd2ff29a4b8ed8e5c63ac641c3b044f15cc.tar.gz | |
Protect src overlay during saving the src snipped
* lisp/org-src.el (org-edit-src-exit): Let overlay survive after the
buffer has been saved.
| -rw-r--r-- | lisp/org-src.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/org-src.el b/lisp/org-src.el index 0f88174..062d2d7 100644 --- a/lisp/org-src.el +++ b/lisp/org-src.el @@ -757,6 +757,8 @@ with \",*\", \",#+\", \",,*\" and \",,#+\"." (delete-region beg (max beg end)) (unless (string-match "\\`[ \t]*\\'" code) (insert code)) + ;; Make sure the overlay stays in place + (when (eq context 'save) (move-overlay ovl beg (point))) (goto-char beg) (if single (just-one-space)))) (if (memq t (mapcar (lambda (overlay) |