* Bastien <b...@altern.org> [2012-10-28 11:10]:
Rafael Laboissiere <raf...@laboissiere.net> writes:
You might be interested in applying the patch attached below, which fixes
the comments in the *Remember* buffer, allowing them to get correctly
fontified.
Applied, thanks!
Thanks.
I just noticed that my patch have a bad side effect, since the commented
lines at the beginning of the *Remember* buffer are not filtered out
before inclusion into the destination org file. The patch attached below
fixes this. Also, the org-remember-handler function attempts to strip
comment lines at the end of the buffer. I changed the code such that
only lines that really respect the definition of comment lines (as per
the documentation) are actually stripped.
Rafael
>From 72ad3f6f97a87da5b5dfd0df03ca2aed147a61af Mon Sep 17 00:00:00 2001
From: Rafael Laboissiere <raf...@laboissiere.net>
Date: Sun, 28 Oct 2012 17:38:19 +0100
Subject: [PATCH 2/2] 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.
---
lisp/org-remember.el | 4 ++--
1 file 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
--
1.7.10.4
