diff options
author | Bastien Guerry <bzg@altern.org> | 2012-12-13 17:04:38 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-12-13 17:04:38 +0100 |
commit | 7a770c10c142dae5e585c529c2232affbc313585 (patch) | |
tree | bdb54cc92ce3b5aec163d24f5d830d20b48f390e | |
parent | 82db0aab3bc843b8004b19231657018d425518c2 (diff) | |
download | org-mode-7a770c10c142dae5e585c529c2232affbc313585.tar.gz |
org-src.el (org-edit-src-code): Fix bug on Emacs <24.1.
* org-src.el (org-edit-src-code): Fix bug triggered by the
sexp (copy-marker nil) on Emacs <24.1.
Thanks to Bernt Hansen for reporting this.
-rw-r--r-- | lisp/org-src.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/org-src.el b/lisp/org-src.el index f91da19..d2c3e19 100644 --- a/lisp/org-src.el +++ b/lisp/org-src.el @@ -228,12 +228,11 @@ buffer." (full-info (org-babel-get-src-block-info 'light)) (org-mode-p (derived-mode-p 'org-mode)) ;; derived-mode-p is reflexive (beg (make-marker)) - ;; Move marker with inserted text for case when src block is - ;; just one empty line, i.e. beg == end. - (end (copy-marker nil t)) + (end (make-marker)) (allow-write-back-p (null code)) block-nindent total-nindent ovl lang lang-f single lfmt buffer msg begline markline markcol line col transmitted-variables) + (set-marker-insertion-type end t) (if (not info) nil (setq beg (move-marker beg (nth 0 info)) |