bug#1241: marked as done (patch: thingatpt.el syntactic sugar (cont.))

[Emacs bug Tracking System]

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
> --- Begin Message ---
>
>
>
> Subject: 
>
> patch: thingatpt.el syntactic sugar (cont.)
>
>
>
>
> Date: 
>
> Fri, 24 Oct 2008 13:54:49 -0400
>
>
>
>
> User-agent: 
>
> Thunderbird 2.0.0.16 (X11/20080723)
>
>
>
>
> 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
>
> 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
>
> --- End Message ---
> --- Begin Message ---
>
>
>
> 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.
>
>
> --- End Message ---