diff options
author | Rafael Laboissiere <rafael@laboissiere.net> | 2012-10-28 17:38:19 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-10-29 06:30:14 +0100 |
commit | d0dd2a53087a6c4bec6497852312df9f957f5caa (patch) | |
tree | 0b6aa6d57577dcc53ffd43dc6782d32c0b4fdb0b | |
parent | a4660d47906fce98d5aedd2af60835f888854180 (diff) | |
download | org-mode-d0dd2a53087a6c4bec6497852312df9f957f5caa.tar.gz |
org-remember.el: Correctly strip the comment lines in remember buffer
* org-remember.el (org-remember-handler): Correctly strip the comment lines
in the temporary buffer *Remember* when handling a remember note.
TINYCHANGE
-rw-r--r-- | lisp/org-remember.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-remember.el b/lisp/org-remember.el index bfbca73..5cfe70f 100644 --- a/lisp/org-remember.el +++ b/lisp/org-remember.el @@ -840,12 +840,12 @@ See also the variable `org-reverse-note-order'." (if (= end beg) (setq beg (1- beg))) (put-text-property beg end 'org-position-cursor t))) (goto-char (point-min)) - (while (looking-at "^[ \t]*\n\\|^##.*\n") + (while (looking-at "^[ \t]*\n\\|^# .*\n") (replace-match "")) (when org-remember-delete-empty-lines-at-end (goto-char (point-max)) (beginning-of-line 1) - (while (and (looking-at "[ \t]*$\\|##.*") (> (point) 1)) + (while (and (looking-at "[ \t]*$\\|[ \t]*# .*") (> (point) 1)) (delete-region (1- (point)) (point-max)) (beginning-of-line 1))) (catch 'quit |