Mercurial > emacs
comparison lisp/textmodes/org.el @ 71567:f008b5943ba4
(org-set-tags): Keep single space after stars.
| author | Carsten Dominik <dominik@science.uva.nl> |
|---|---|
| date | Mon, 03 Jul 2006 10:57:35 +0000 |
| parents | fca8faa8f94c |
| children | 4df24233cf1e 138ce2701550 |
comparison
equal
deleted
inserted
replaced
| 71566:3ce880f9bb94 | 71567:f008b5943ba4 |
|---|---|
| 8711 (delete-region (match-beginning 0) (match-end 0)) | 8711 (delete-region (match-beginning 0) (match-end 0)) |
| 8712 (insert-before-markers (org-trim hd) (if empty "" " "))) | 8712 (insert-before-markers (org-trim hd) (if empty "" " "))) |
| 8713 (if (equal tags "") | 8713 (if (equal tags "") |
| 8714 (save-excursion | 8714 (save-excursion |
| 8715 (beginning-of-line 1) | 8715 (beginning-of-line 1) |
| 8716 (skip-chars-forward "*") | |
| 8717 (if (= (char-after) ?\ ) (forward-char 1)) | |
| 8716 (and (re-search-forward "[ \t]+$" (point-at-eol) t) | 8718 (and (re-search-forward "[ \t]+$" (point-at-eol) t) |
| 8717 (replace-match ""))) | 8719 (replace-match ""))) |
| 8718 (move-to-column (max (current-column) | 8720 (move-to-column (max (current-column) |
| 8719 (if (> org-tags-column 0) | 8721 (if (> org-tags-column 0) |
| 8720 org-tags-column | 8722 org-tags-column |