mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-03 08:30:03 +00:00
Code

Fix bug in `org-toggle-fixed-width-section'.

Browse Source 
Fixed-width sections start with a column followed by a space.
This function now toggle fixed-width sections accordingly to
the manual.
This commit is contained in:
Bastien Guerry 2009-03-14 17:33:15 +01:00
parent 439b4ba088
commit 730ef5f5f6
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2009-03-14 Bastien Guerry <bzg@altern.org>
* org.el (org-toggle-fixed-width-section): Bug fix: insert a
column and a space, not only a column.
2009-03-14 Carsten Dominik <carsten.dominik@gmail.com>
* org-export-latex.el (org-export-latex-emphasis-alist): Better

6
lisp/org.el
View File

@ -15267,7 +15267,7 @@ this line is also exported in fixed-width font."
(end (if regionp (region-end)))
(nlines (or arg (if (and beg end) (count-lines beg end) 1)))
(case-fold-search nil)
(re "[ \t]*\\(:\\)")
(re "[ \t]*\\(: \\)")
off)
(if regionp
(save-excursion
@ -15281,11 +15281,11 @@ this line is also exported in fixed-width font."
(cond
(arg
(org-move-to-column cc t)
(insert ":\n")
(insert ": \n")
(forward-line -1))
((and off (looking-at re))
(replace-match "" t t nil 1))
((not off) (org-move-to-column cc t) (insert ":")))
((not off) (org-move-to-column cc t) (insert ": ")))
(forward-line 1)))
(save-excursion
(org-back-to-heading)