GNU bug report logs - #1241
patch: thingatpt.el syntactic sugar (cont.)

Previous Next

Package: emacs;

Reported by: "Aaron S. Hawley" <aaronh <at> garden.org>

Date: Fri, 24 Oct 2008 18:05:06 UTC

Severity: normal

Done: Chong Yidong <cyd <at> stupidchicken.com>

Bug is archived. No further changes may be made.

Full log


View this message in rfc822 format

From: help-debbugs <at> gnu.org (Emacs bug Tracking System)
To: "Aaron S. Hawley" <aaronh <at> garden.org>
Subject: bug#1241 closed by Chong Yidong <cyd <at> stupidchicken.com> (Re: 
 patch: thingatpt.el syntactic sugar (cont.))
[Message part 1 (text/plain, inline)]
This is an automatic notification regarding your bug report
which was filed against the emacs package:

#1241: patch: thingatpt.el syntactic sugar (cont.)

It has been closed by Chong Yidong <cyd <at> stupidchicken.com>.

Their explanation is attached below along with your original report.
If this explanation is unsatisfactory and you have not received a
better one in a separate message then please contact Chong Yidong <cyd <at> stupidchicken.com> by
replying to this email.


-- 
1241: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=1241
Emacs Bug Tracking System
Contact help-debbugs <at> gnu.org with problems
[Message part 2 (message/rfc822, inline)]
From: Chong Yidong <cyd <at> stupidchicken.com>
To: "Aaron S. Hawley" <aaronh <at> garden.org>
Cc: 1241-done <at> debbugs.gnu.org
Subject: Re: patch: thingatpt.el syntactic sugar (cont.)
Date: Fri, 24 Oct 2008 20:14:07 -0400
> I posted this patch last year, but I don't think anybody picked it up.

I applied it.  Thanks.

[Message part 3 (message/rfc822, inline)]
From: "Aaron S. Hawley" <aaronh <at> garden.org>
To: bug-gnu-emacs <at> gnu.org
Subject: patch: thingatpt.el syntactic sugar (cont.)
Date: Fri, 24 Oct 2008 13:54:49 -0400
[Message part 4 (text/plain, inline)]
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
[thingatpt.el.diff (text/plain, inline)]
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

This bug report was last modified 16 years and 234 days ago.

Previous Next


GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.