mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 09:16:27 +00:00
Code Releases Activity

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))