From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: something odd with org-remember-mode and kill-ring-save Date: Thu, 17 Dec 2009 08:42:36 +0100 Message-ID: <6082468C-E9CC-4A76-B7CC-F02E6A3A0013@gmail.com> References: <109899.17894.qm@web45104.mail.sp1.yahoo.com> Mime-Version: 1.0 (Apple Message framework v936) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NLB0Y-0005Xx-22 for emacs-orgmode@gnu.org; Thu, 17 Dec 2009 02:42:46 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1NLB0T-0005WB-Bs for emacs-orgmode@gnu.org; Thu, 17 Dec 2009 02:42:45 -0500 Received: from [199.232.76.173] (port=48502 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NLB0T-0005W4-5y for emacs-orgmode@gnu.org; Thu, 17 Dec 2009 02:42:41 -0500 Received: from mx20.gnu.org ([199.232.41.8]:58043) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1NLB0S-0002Mg-Fg for emacs-orgmode@gnu.org; Thu, 17 Dec 2009 02:42:40 -0500 Received: from mail-ew0-f224.google.com ([209.85.219.224]) by mx20.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1NLB0R-0006vC-Hk for emacs-orgmode@gnu.org; Thu, 17 Dec 2009 02:42:39 -0500 Received: by ewy24 with SMTP id 24so1967000ewy.26 for ; Wed, 16 Dec 2009 23:42:38 -0800 (PST) In-Reply-To: <109899.17894.qm@web45104.mail.sp1.yahoo.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-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: Good Bad Cc: Emacs Org-mode On Dec 5, 2009, at 3:40 PM, Good Bad wrote: > 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 , 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 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? Set last-command to something that is not a kill command. - Carsten