From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Drew Adams" Newsgroups: gmane.emacs.devel Subject: RE: kill-ring-max or other var to convert killing to deleting? Date: Fri, 3 Mar 2006 14:58:51 -0800 Message-ID: References: <87slpzxi1z.fsf@cut.bc.hsia.telus.net> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1141426818 29942 80.91.229.2 (3 Mar 2006 23:00:18 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 3 Mar 2006 23:00:18 +0000 (UTC) Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sat Mar 04 00:00:16 2006 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1FFJFu-0004Ws-Ig for ged-emacs-devel@m.gmane.org; Sat, 04 Mar 2006 00:00:14 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1FFJFv-0001XQ-EW for ged-emacs-devel@m.gmane.org; Fri, 03 Mar 2006 18:00:15 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1FFJEt-0001DZ-Op for emacs-devel@gnu.org; Fri, 03 Mar 2006 17:59:12 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1FFJEp-0001BO-KR for emacs-devel@gnu.org; Fri, 03 Mar 2006 17:59:10 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1FFJEp-0001BL-CG for emacs-devel@gnu.org; Fri, 03 Mar 2006 17:59:07 -0500 Original-Received: from [148.87.113.118] (helo=rgminet01.oracle.com) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_3DES_EDE_CBC_SHA:24) (Exim 4.52) id 1FFJGb-0005sH-IC for emacs-devel@gnu.org; Fri, 03 Mar 2006 18:00:57 -0500 Original-Received: from rgmsgw300.us.oracle.com (rgmsgw300.us.oracle.com [138.1.186.49]) by rgminet01.oracle.com (Switch-3.1.6/Switch-3.1.6) with ESMTP id k23Mx37A027067 for ; Fri, 3 Mar 2006 15:59:03 -0700 Original-Received: from rgmsgw300.us.oracle.com (localhost [127.0.0.1]) by rgmsgw300.us.oracle.com (Switch-3.1.7/Switch-3.1.7) with ESMTP id k23Mx3v4024698 for ; Fri, 3 Mar 2006 15:59:03 -0700 Original-Received: from dradamslap (dradams-lap.us.oracle.com [130.35.177.126]) by rgmsgw300.us.oracle.com (Switch-3.1.7/Switch-3.1.7) with SMTP id k23Mx209024686 (version=TLSv1/SSLv3 cipher=RC4-MD5 bits=128 verify=NO) for ; Fri, 3 Mar 2006 15:59:03 -0700 Original-To: X-Priority: 3 (Normal) X-MSMail-Priority: Normal X-Mailer: Microsoft Outlook IMO, Build 9.0.6604 (9.0.2911.0) Importance: Normal In-Reply-To: <87slpzxi1z.fsf@cut.bc.hsia.telus.net> X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1506 X-Brightmail-Tracker: AAAAAQAAAAI= X-Whitelist: TRUE X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:51105 Archived-At: But wouldn't it be handy, generally, to be able to just convert an existing `kill-*' function to a `delete-*' function? That is, bind some flag to indicate that the deleted text is not to be added to the kill ring: (let ((kill-p nil)) (backward-kill-word arg)) What about this: (defun backward-delete-word (arg) (interactive "p") (let (kill-ring kill-ring-yank-pointer) (backward-kill-word arg))) Wunderbar! Thank you. I should have thought of that.