From unknown Mon Jun 23 09:35:33 2025 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable MIME-Version: 1.0 X-Mailer: MIME-tools 5.509 (Entity 5.509) Content-Type: text/plain; charset=utf-8 From: bug#1241 <1241@debbugs.gnu.org> To: bug#1241 <1241@debbugs.gnu.org> Subject: Status: patch: thingatpt.el syntactic sugar (cont.) Reply-To: bug#1241 <1241@debbugs.gnu.org> Date: Mon, 23 Jun 2025 16:35:33 +0000 retitle 1241 patch: thingatpt.el syntactic sugar (cont.) reassign 1241 emacs submitter 1241 "Aaron S. Hawley" severity 1241 normal thanks From aaronh@garden.org Fri Oct 24 10:55:18 2008 X-Spam-Checker-Version: SpamAssassin 3.2.3-bugs.debian.org_2005_01_02 (2007-08-08) on rzlab.ucr.edu X-Spam-Level: X-Spam-Status: No, score=-6.5 required=4.0 tests=AWL,BAYES_00,MIXEDBDN, MURPHY_DRUGS_REL8,RCVD_IN_DNSWL_MED autolearn=ham version=3.2.3-bugs.debian.org_2005_01_02 Received: (at submit) by emacsbugs.donarmstrong.com; 24 Oct 2008 17:55:18 +0000 Received: from lists.gnu.org (lists.gnu.org [199.232.76.165]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with ESMTP id m9OHtEpu008205 for ; Fri, 24 Oct 2008 10:55:15 -0700 Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1KtQsT-0003NA-1C for bug-gnu-emacs@gnu.org; Fri, 24 Oct 2008 13:55:13 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1KtQsN-0003Hj-DR for bug-gnu-emacs@gnu.org; Fri, 24 Oct 2008 13:55:08 -0400 Received: from [199.232.76.173] (port=38422 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1KtQsJ-0003Fi-9c for bug-gnu-emacs@gnu.org; Fri, 24 Oct 2008 13:55:03 -0400 Received: from host13.natgard1.cust.sover.net ([207.136.219.173]:45116 helo=marigold.garden.org) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1KtQsH-00082u-Gg for bug-gnu-emacs@gnu.org; Fri, 24 Oct 2008 13:55:01 -0400 Received: from localhost (localhost.localdomain [127.0.0.1]) by marigold.garden.org (Postfix) with ESMTP id 03B88681A9 for ; Fri, 24 Oct 2008 13:55:01 -0400 (EDT) X-Virus-Scanned: amavisd-new at garden.org Received: from marigold.garden.org ([127.0.0.1]) by localhost (marigold.garden.org [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id iN-HJZHhuoUw for ; Fri, 24 Oct 2008 13:54:54 -0400 (EDT) Received: from localhost.localdomain (unknown [192.168.219.109]) by marigold.garden.org (Postfix) with ESMTP id AE2346808E for ; Fri, 24 Oct 2008 13:54:54 -0400 (EDT) Message-ID: <49020BE9.6040804@garden.org> Date: Fri, 24 Oct 2008 13:54:49 -0400 From: "Aaron S. Hawley" User-Agent: Thunderbird 2.0.0.16 (X11/20080723) MIME-Version: 1.0 To: bug-gnu-emacs@gnu.org Subject: patch: thingatpt.el syntactic sugar (cont.) Content-Type: multipart/mixed; boundary="------------060702050804040104040203" X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6 (newer, 2) This is a multi-part message in MIME format. --------------060702050804040104040203 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit I posted this patch last year, but I don't think anybody picked it up. http://lists.gnu.org/archive/html/bug-gnu-emacs/2007-10/msg00091.html An updated version of the patch is attached and in-line below. /a Index: thingatpt.el =================================================================== RCS file: /sources/emacs/emacs/lisp/thingatpt.el,v retrieving revision 1.47 diff -u -r1.47 thingatpt.el --- thingatpt.el 22 Oct 2008 20:51:23 -0000 1.47 +++ thingatpt.el 24 Oct 2008 17:50:47 -0000 @@ -169,19 +169,19 @@ (nth 3 (parse-partial-sexp (point) orig))))) (defun end-of-sexp () - (let ((char-syntax (char-syntax (char-after (point))))) + (let ((char-syntax (char-syntax (char-after)))) (if (or (eq char-syntax ?\)) - (and (eq char-syntax ?\") (in-string-p))) - (forward-char 1) + (and (eq char-syntax ?\") (in-string-p))) + (forward-char 1) (forward-sexp 1)))) (put 'sexp 'end-op 'end-of-sexp) (defun beginning-of-sexp () - (let ((char-syntax (char-syntax (char-before (point))))) + (let ((char-syntax (char-syntax (char-before)))) (if (or (eq char-syntax ?\() - (and (eq char-syntax ?\") (in-string-p))) - (forward-char -1) + (and (eq char-syntax ?\") (in-string-p))) + (forward-char -1) (forward-sexp -1)))) (put 'sexp 'beginning-op 'beginning-of-sexp) @@ -405,10 +405,10 @@ (interactive "p") (while (< arg 0) (skip-syntax-backward - (char-to-string (char-syntax (char-after (1- (point)))))) + (char-to-string (char-syntax (char-before)))) (setq arg (1+ arg))) (while (> arg 0) - (skip-syntax-forward (char-to-string (char-syntax (char-after (point))))) + (skip-syntax-forward (char-to-string (char-syntax (char-after)))) (setq arg (1- arg)))) ;; Aliases --------------060702050804040104040203 Content-Type: text/plain; name="thingatpt.el.diff" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="thingatpt.el.diff" Index: thingatpt.el =================================================================== RCS file: /sources/emacs/emacs/lisp/thingatpt.el,v retrieving revision 1.47 diff -u -r1.47 thingatpt.el --- thingatpt.el 22 Oct 2008 20:51:23 -0000 1.47 +++ thingatpt.el 24 Oct 2008 17:50:47 -0000 @@ -169,19 +169,19 @@ (nth 3 (parse-partial-sexp (point) orig))))) (defun end-of-sexp () - (let ((char-syntax (char-syntax (char-after (point))))) + (let ((char-syntax (char-syntax (char-after)))) (if (or (eq char-syntax ?\)) - (and (eq char-syntax ?\") (in-string-p))) - (forward-char 1) + (and (eq char-syntax ?\") (in-string-p))) + (forward-char 1) (forward-sexp 1)))) (put 'sexp 'end-op 'end-of-sexp) (defun beginning-of-sexp () - (let ((char-syntax (char-syntax (char-before (point))))) + (let ((char-syntax (char-syntax (char-before)))) (if (or (eq char-syntax ?\() - (and (eq char-syntax ?\") (in-string-p))) - (forward-char -1) + (and (eq char-syntax ?\") (in-string-p))) + (forward-char -1) (forward-sexp -1)))) (put 'sexp 'beginning-op 'beginning-of-sexp) @@ -405,10 +405,10 @@ (interactive "p") (while (< arg 0) (skip-syntax-backward - (char-to-string (char-syntax (char-after (1- (point)))))) + (char-to-string (char-syntax (char-before)))) (setq arg (1+ arg))) (while (> arg 0) - (skip-syntax-forward (char-to-string (char-syntax (char-after (point))))) + (skip-syntax-forward (char-to-string (char-syntax (char-after)))) (setq arg (1- arg)))) ;; Aliases --------------060702050804040104040203-- From cyd@stupidchicken.com Fri Oct 24 17:14:06 2008 X-Spam-Checker-Version: SpamAssassin 3.2.3-bugs.debian.org_2005_01_02 (2007-08-08) on rzlab.ucr.edu X-Spam-Level: X-Spam-Status: No, score=-3.9 required=4.0 tests=AWL,BAYES_00, MURPHY_DRUGS_REL8 autolearn=ham version=3.2.3-bugs.debian.org_2005_01_02 Received: (at 1241-done) by emacsbugs.donarmstrong.com; 25 Oct 2008 00:14:06 +0000 Received: from cyd.mit.edu (CYD.MIT.EDU [18.115.2.24]) by rzlab.ucr.edu (8.13.8/8.13.8/Debian-3) with ESMTP id m9P0E4oL004690 for <1241-done@emacsbugs.donarmstrong.com>; Fri, 24 Oct 2008 17:14:05 -0700 Received: by cyd.mit.edu (Postfix, from userid 1000) id 5A8F357E1A3; Fri, 24 Oct 2008 20:14:07 -0400 (EDT) From: Chong Yidong To: "Aaron S. Hawley" Cc: 1241-done@debbugs.gnu.org Subject: Re: patch: thingatpt.el syntactic sugar (cont.) Date: Fri, 24 Oct 2008 20:14:07 -0400 Message-ID: <87iqrhleeo.fsf@cyd.mit.edu> MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii > I posted this patch last year, but I don't think anybody picked it up. I applied it. Thanks. From unknown Mon Jun 23 09:35:33 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: $requester Subject: Internal Control Message-Id: bug archived. Date: Sat, 22 Nov 2008 15:24:03 +0000 User-Agent: Fakemail v42.6.9 # A New Hope # A log time ago, in a galaxy far, far away # something happened. # # Magically this resulted in the following # action being taken, but this fake control # message doesn't tell you why it happened # # The action: # bug archived. thanks # This fakemail brought to you by your local debbugs # administrator