From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED.blaine.gmane.org!not-for-mail From: Eric Abrahamsen Newsgroups: gmane.emacs.help Subject: Re: elisp function that evaluates a line up to last character Date: Tue, 19 Mar 2019 11:39:59 -0700 Message-ID: <87ef72so74.fsf@ericabrahamsen.net> References: Mime-Version: 1.0 Content-Type: text/plain Injection-Info: blaine.gmane.org; posting-host="blaine.gmane.org:195.159.176.226"; logging-data="201749"; mail-complaints-to="usenet@blaine.gmane.org" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Tue Mar 19 19:40:34 2019 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([209.51.188.17]) by blaine.gmane.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:256) (Exim 4.89) (envelope-from ) id 1h6Jf7-000qGV-Sv for geh-help-gnu-emacs@m.gmane.org; Tue, 19 Mar 2019 19:40:34 +0100 Original-Received: from localhost ([127.0.0.1]:33333 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1h6Jf6-0005wz-Rz for geh-help-gnu-emacs@m.gmane.org; Tue, 19 Mar 2019 14:40:32 -0400 Original-Received: from eggs.gnu.org ([209.51.188.92]:36758) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1h6Jen-0005uw-H1 for help-gnu-emacs@gnu.org; Tue, 19 Mar 2019 14:40:14 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1h6Jem-0007x1-7n for help-gnu-emacs@gnu.org; Tue, 19 Mar 2019 14:40:13 -0400 Original-Received: from [195.159.176.226] (port=33968 helo=blaine.gmane.org) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1h6Jel-0007v2-MF for help-gnu-emacs@gnu.org; Tue, 19 Mar 2019 14:40:12 -0400 Original-Received: from list by blaine.gmane.org with local (Exim 4.89) (envelope-from ) id 1h6Jek-000prM-2F for help-gnu-emacs@gnu.org; Tue, 19 Mar 2019 19:40:10 +0100 X-Injected-Via-Gmane: http://gmane.org/ Cancel-Lock: sha1:wBN+ZZkaw7OuaodCN3yuWEHhkAU= X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 195.159.176.226 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.21 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" Xref: news.gmane.org gmane.emacs.help:119681 Archived-At: Jason Thomas writes: > Hello, > > I am trying to write a function that will (1) take a new region, defined by > the first character in the current line (where the cursor is) and end the > region at the penultimate character in the same line; and > (2) pass this text to another function (called ess-eval-region). > > Basically, I am trying to evaluate some code that ends with a semi-colon, > but I need to leave out the semi-colon (during evaluation). Here is what I > have so far (at the end, I try to bind this function to and > activate > this binding in ess mode): > > (defun my-stata-eval-delim-line (&optional beg end) > (interactive) > (let ((beg (cond (beg beg) > ((region-active-p) > (region-beginning)) > (t (line-beginning-position)))) > (end (cond (end end) > ((region-active-p) > (copy-marker (region-end)) > (backward-char)) > (t (line-end-position))))) > (ess-eval-region beg end))) > (eval-after-load 'ess-stata-mode > '(define-key ess-mode-map "" > 'my-stata-eval-delim-line)) > > but I keep getting an error when I try to use the function on the following > line: > > ds; > > "Wrong number of arguments: (3 . 5), 2" This just looks like `ess-eval-region' requires between 3 and 5 arguments, but you've only given it two: beg and end. Depending on how you're going to use this function, might also consider using the "r" interactive code, sort of like: (defun my-stata-eval-delim-line (&optional beg end) (interactive "r") (let ((beg (if (region-active-p) beg (line-beginning-position))) (end (if (region-active-p) end (- (line-end-position) 1)))) (ess-eval-region beg end)))