* bug#1241: patch: thingatpt.el syntactic sugar (cont.)
@ 2008-10-24 17:54 ` Aaron S. Hawley
2008-10-25 0:20 ` bug#1241: marked as done (patch: thingatpt.el syntactic sugar (cont.)) Emacs bug Tracking System
0 siblings, 1 reply; 2+ messages in thread
From: Aaron S. Hawley @ 2008-10-24 17:54 UTC (permalink / raw)
To: bug-gnu-emacs
[-- Attachment #1: Type: text/plain, Size: 1805 bytes --]
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
[-- Attachment #2: thingatpt.el.diff --]
[-- Type: text/plain, Size: 1582 bytes --]
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
^ permalink raw reply [flat|nested] 2+ messages in thread
* bug#1241: marked as done (patch: thingatpt.el syntactic sugar (cont.))
2008-10-24 17:54 ` bug#1241: patch: thingatpt.el syntactic sugar (cont.) Aaron S. Hawley
@ 2008-10-25 0:20 ` Emacs bug Tracking System
0 siblings, 0 replies; 2+ messages in thread
From: Emacs bug Tracking System @ 2008-10-25 0:20 UTC (permalink / raw)
To: Chong Yidong
[-- Attachment #1: Type: text/plain, Size: 848 bytes --]
Your message dated Fri, 24 Oct 2008 20:14:07 -0400
with message-id <87iqrhleeo.fsf@cyd.mit.edu>
and subject line Re: patch: thingatpt.el syntactic sugar (cont.)
has caused the Emacs bug report #1241,
regarding patch: thingatpt.el syntactic sugar (cont.)
to be marked as done.
This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
bug report if necessary, and/or fix the problem forthwith.
(NB: If you are a system administrator and have no idea what this
message is talking about, this may indicate a serious mail system
misconfiguration somewhere. Please contact don@donarmstrong.com
immediately.)
--
1241: http://emacsbugs.donarmstrong.com/cgi-bin/bugreport.cgi?bug=1241
Emacs Bug Tracking System
Contact don@donarmstrong.com with problems
[-- Attachment #2: Type: message/rfc822, Size: 6188 bytes --]
[-- Attachment #2.1.1: Type: text/plain, Size: 1805 bytes --]
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
[-- Attachment #2.1.2: thingatpt.el.diff --]
[-- Type: text/plain, Size: 1582 bytes --]
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
[-- Attachment #3: Type: message/rfc822, Size: 1070 bytes --]
From: Chong Yidong <cyd@stupidchicken.com>
To: "Aaron S. Hawley" <aaronh@garden.org>
Cc: 1241-done@emacsbugs.donarmstrong.com
Subject: Re: patch: thingatpt.el syntactic sugar (cont.)
Date: Fri, 24 Oct 2008 20:14:07 -0400
Message-ID: <87iqrhleeo.fsf@cyd.mit.edu>
> I posted this patch last year, but I don't think anybody picked it up.
I applied it. Thanks.
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2008-10-25 0:20 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
[not found] <87iqrhleeo.fsf@cyd.mit.edu>
2008-10-24 17:54 ` bug#1241: patch: thingatpt.el syntactic sugar (cont.) Aaron S. Hawley
2008-10-25 0:20 ` bug#1241: marked as done (patch: thingatpt.el syntactic sugar (cont.)) Emacs bug Tracking System
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).