mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-23 22:18:40 +00:00
Fix indentation in code export
Patch by Eric Schulte.
This commit is contained in:
parent
ca699a970d
commit
e9cdfce08c
|
@ -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.
|
||||
|
||||
|
|
|
@ -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))
|
||||
|
|
Loading…
Reference in a new issue