From mboxrd@z Thu Jan  1 00:00:00 1970
From: Good Bad <nbko3@yahoo.com>
Subject: something odd with org-remember-mode and kill-ring-save
Date: Sat, 5 Dec 2009 06:40:46 -0800 (PST)
Message-ID: <109899.17894.qm@web45104.mail.sp1.yahoo.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1NGvoc-0000qp-Bv
	for emacs-orgmode@gnu.org; Sat, 05 Dec 2009 09:40:54 -0500
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1NGvoX-0000nY-7B
	for emacs-orgmode@gnu.org; Sat, 05 Dec 2009 09:40:53 -0500
Received: from [199.232.76.173] (port=43833 helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1NGvoX-0000nP-2u
	for emacs-orgmode@gnu.org; Sat, 05 Dec 2009 09:40:49 -0500
Received: from web45104.mail.sp1.yahoo.com ([68.180.197.76]:31937)
	by monty-python.gnu.org with smtp (Exim 4.60)
	(envelope-from <nbko3@yahoo.com>) id 1NGvoW-0004dp-I9
	for emacs-orgmode@gnu.org; Sat, 05 Dec 2009 09:40:48 -0500
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: Emacs Org-mode <emacs-orgmode@gnu.org>

I made a wrapped version of org-remember-kill which saves the remember content to the kill ring and then calls the original org-remember-kill.  It works as I expect in most cases but not always.

First, the relevant elisp code is:

(define-key global-map "\C-cr" 'org-remember)
(defun org-remember-kill-my ()
  (interactive)
  (unless org-remember-mode
    (error "This does not seem to be a remember buffer for Org-mode"))
  (let ((beg (point-min)) 
	(case-fold-search t))
    (beginning-of-buffer)
    (search-forward-regexp "^* " nil t)
    (setq beg (or (match-end 0) beg))
    (goto-char (point-max))
    (skip-chars-backward " \n\r\t")
    (copy-region-as-kill beg (point))
    )
  (org-remember-kill))
(eval-after-load "org-remember" 
		 '(define-key org-remember-mode-map (kbd "C-c r") 'org-remember-kill-my))
(eval-after-load "org-remember" 
		 '(define-key org-remember-mode-map (kbd "C-c C-k") 'org-remember-kill-my))


When I bring up remember window and then writes "one two three" (without quotes), and 
kills one word (by pressing <C-backspace>, which calls backward-kill-word) and press 
C-c C-k or C-c r (which calls the wrapper org-remember-kill-my, then the saved content 
is not "one two ", it's "threeone two". 

The odd thing doesn't happen if I call my wrapper function with M-x, or if I move my cursor
after <C-backspace> and before pressing C-c C-k or C-c r.

It's as if the append-next-kill command is being called somewhere. 
How should I fix my wrapper?