# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1224893557 0
# Node ID e71b3b67d831cd0fe0460f9f4c05f68b27c8f8b9
# Parent  e4220bce08959b09c48d2783cdd32dc3f7469c82
(end-of-sexp, beginning-of-sexp, forward-same-syntax): Omit default
arguments to char-after and char-before.

diff -r e4220bce0895 -r e71b3b67d831 lisp/thingatpt.el
--- a/lisp/thingatpt.el	Sat Oct 25 00:12:24 2008 +0000
+++ b/lisp/thingatpt.el	Sat Oct 25 00:12:37 2008 +0000
@@ -169,7 +169,7 @@
       (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)
@@ -178,7 +178,7 @@
 (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)
@@ -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