From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Michael Heerdegen Newsgroups: gmane.emacs.help Subject: Re: Help setting nadvice for indent-region Date: Fri, 12 Feb 2016 15:21:56 +0100 Message-ID: <87k2mac8l7.fsf@web.de> References: <87a8ne2k6v.fsf@web.de> <87bn7n15ki.fsf@web.de> <87vb5vys7n.fsf@web.de> <871t8idnpq.fsf@web.de> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1455287138 28099 80.91.229.3 (12 Feb 2016 14:25:38 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 12 Feb 2016 14:25:38 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Fri Feb 12 15:25:28 2016 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1aUEf1-0006LQ-CD for geh-help-gnu-emacs@m.gmane.org; Fri, 12 Feb 2016 15:25:27 +0100 Original-Received: from localhost ([::1]:33034 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aUEf0-0004Ql-Db for geh-help-gnu-emacs@m.gmane.org; Fri, 12 Feb 2016 09:25:26 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:60944) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aUEek-0004Q1-NX for help-gnu-emacs@gnu.org; Fri, 12 Feb 2016 09:25:14 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aUEeg-0007r5-MS for help-gnu-emacs@gnu.org; Fri, 12 Feb 2016 09:25:10 -0500 Original-Received: from plane.gmane.org ([80.91.229.3]:41850) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aUEeg-0007pM-Es for help-gnu-emacs@gnu.org; Fri, 12 Feb 2016 09:25:06 -0500 Original-Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1aUEee-00064e-O5 for help-gnu-emacs@gnu.org; Fri, 12 Feb 2016 15:25:04 +0100 Original-Received: from dslb-092-074-178-250.092.074.pools.vodafone-ip.de ([92.74.178.250]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 12 Feb 2016 15:25:04 +0100 Original-Received: from michael_heerdegen by dslb-092-074-178-250.092.074.pools.vodafone-ip.de with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 12 Feb 2016 15:25:04 +0100 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 28 Original-X-Complaints-To: usenet@ger.gmane.org X-Gmane-NNTP-Posting-Host: dslb-092-074-178-250.092.074.pools.vodafone-ip.de User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.0.90 (gnu/linux) Cancel-Lock: sha1:o9Qgymoyun3nZXGjnX6rcZtCm0c= X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 80.91.229.3 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:109135 Archived-At: Michael Heerdegen writes: > Kaushal Modi writes: > > > OK, so this is what I have now. > > > > (defun modi/advice-region-or-whole (&rest args) > > "Advice function that sets the region boundaries to that of the whole > > buffer > > if no region is selected." > > (interactive (if (use-region-p) > > (list (region-beginning) (region-end)) > > (list (point-min) (point-max)))) > > ;; (message "Args: %S R: %S I: %S" > > ;; args (use-region-p) (called-interactively-p 'interactive)) > > (when (and (eq (first args) (point-min)) > > (eq (second args) (point-max))) > > (message "Executing %s on the whole buffer." > > (propertize (symbol-name this-command) > > 'face 'font-lock-function-name-face))) > > nil) > Oh, and `first', `second' are defined in the old cl.el. It's recommended to use `cl-lib' now, and thus `cl-first', `cl-second'. Or simply `car' and `cadr'. Michael.