mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-12 23:39:54 +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> 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 * org-agenda.el (org-agenda-get-restriction-and-command): Remove
properties only if MATCH really is a string. 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))) (apply func (save-match-data (org-remove-indentation (match-string 4)))
(split-string (match-string 3) " ")))) t t) (split-string (match-string 3) " ")))) t t)
;; indent the replaced match ;; indent block
(indent-region (match-beginning 0) (match-end 0) indentation) (indent-code-rigidly (match-beginning 0) (match-end 0) indentation)))
))
(setf start (save-match-data (match-end 0)))) (setf start (save-match-data (match-end 0))))
(mapcar (lambda (type) (mapcar (lambda (type)
(interblock start (point-max) type)) (interblock start (point-max) type))