mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-26 12:02:53 +00:00
Fix bug in `org-toggle-fixed-width-section'.
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:
parent
439b4ba088
commit
730ef5f5f6
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Reference in a new issue