ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'maint'

This commit is contained in:
Bastien Guerry 2012-12-13 17:04:48 +01:00
parent 5c1eab535b 7a770c10c1
commit 22ee29b5ef
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org-src.el
View File

@ -228,12 +228,11 @@ buffer."
(full-info (org-babel-get-src-block-info 'light)) (full-info (org-babel-get-src-block-info 'light))
(org-mode-p (derived-mode-p 'org-mode)) ;; derived-mode-p is reflexive (org-mode-p (derived-mode-p 'org-mode)) ;; derived-mode-p is reflexive
(beg (make-marker)) (beg (make-marker))
;; Move marker with inserted text for case when src block is (end (make-marker))
;; just one empty line, i.e. beg == end.
(end (copy-marker nil t))
(allow-write-back-p (null code)) (allow-write-back-p (null code))
block-nindent total-nindent ovl lang lang-f single lfmt buffer msg block-nindent total-nindent ovl lang lang-f single lfmt buffer msg
begline markline markcol line col transmitted-variables) begline markline markcol line col transmitted-variables)
(set-marker-insertion-type end t)
(if (not info) (if (not info)
nil nil
(setq beg (move-marker beg (nth 0 info)) (setq beg (move-marker beg (nth 0 info))