mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-20 19:24:20 +00:00
Code

Fix indentation in code export

Browse Source 
Patch by Eric Schulte.
This commit is contained in:
Carsten Dominik 2009-08-18 06:35:50 +01:00
parent ca699a970d
commit e9cdfce08c
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2009-08-18 Carsten Dominik <carsten.dominik@gmail.com>
* org-exp-blocks.el (org-export-blocks-preprocess): Use
`indent-code-rigidly' to indent.
* org-agenda.el (org-agenda-get-restriction-and-command): Remove
properties only if MATCH really is a string.

5
lisp/org-exp-blocks.el
View File

@ -203,9 +203,8 @@ specified in BLOCKS which default to the value of
""
(apply func (save-match-data (org-remove-indentation (match-string 4)))
(split-string (match-string 3) " ")))) t t)
;; indent the replaced match
(indent-region (match-beginning 0) (match-end 0) indentation)
))
;; indent block
(indent-code-rigidly (match-beginning 0) (match-end 0) indentation)))
(setf start (save-match-data (match-end 0))))
(mapcar (lambda (type)
(interblock start (point-max) type))