From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andreas Politz Newsgroups: gmane.emacs.help Subject: Re: I want to make C-d works in two ways. Date: Sat, 24 Jul 2010 23:14:39 +0200 Organization: FH-Trier Message-ID: <871vastwe8.fsf@fh-trier.de> References: <55f24183-4134-4748-b9d1-b3864afd39b2@x24g2000pro.googlegroups.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1291851813 12684 80.91.229.12 (8 Dec 2010 23:43:33 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Wed, 8 Dec 2010 23:43:33 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Thu Dec 09 00:43:27 2010 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1PQTfO-00015a-UL for geh-help-gnu-emacs@m.gmane.org; Thu, 09 Dec 2010 00:43:23 +0100 Original-Received: from localhost ([127.0.0.1]:52794 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PQTKL-0000Qp-Bi for geh-help-gnu-emacs@m.gmane.org; Wed, 08 Dec 2010 18:21:37 -0500 Original-Path: usenet.stanford.edu!newsserver.news.garr.it!kanaga.switch.ch!switch.ch!news.belwue.de!news.uni-kl.de!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 38 Original-NNTP-Posting-Host: 143-93-54-11.arno.fh-trier.de Original-X-Trace: news.uni-kl.de 1280006080 29766 143.93.54.11 (24 Jul 2010 21:14:40 GMT) Original-X-Complaints-To: usenet@news.uni-kl.de Original-NNTP-Posting-Date: Sat, 24 Jul 2010 21:14:40 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux) Cancel-Lock: sha1:8JuOczEqrFUKmFjfRj+z9YOTg/8= Cache-Post-Path: arno.fh-trier.de!unknown@dslb-088-068-222-130.pools.arcor-ip.net X-Cache: nntpcache 3.0.1 (see http://www.nntpcache.org/) Original-Xref: usenet.stanford.edu gnu.emacs.help:180032 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:76232 Archived-At: Jeongtae Roh writes: > Hi. > > I tried to find out a solution by myself, but failed. > > I hope C-d do "kill-region" command when I selected words or > sentences. > > Now it works only as "delete-forward-character", even if I activate a > region. > > So I studied the original code of CUA mode, because it has a function > like this: > > ;; Only when the region is currently active (and highlighted since > ;; transient-mark-mode is used), the C-x and C-c keys will work as CUA > ;; keys > ;; C-x -> cut > ;; C-c -> copy > ;; When the region is not active, C-x and C-c works as prefix keys! > > Can anybody tell me what should I do? > > > -- Jeongtae That's easy. Use `use-region-p' to branch to the desired command and `call-interactively' for not having to bother about the arguments. (defun kill-region/delete-forward-character () (interactive) (call-interactively (if (use-region-p) 'kill-region 'delete-char))) -ap