From ce8fb8aa9576b04018159b55f4e4761145afae13 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 25 Oct 2008 00:12:37 +0000 Subject: [PATCH] (end-of-sexp, beginning-of-sexp, forward-same-syntax): Omit default arguments to char-after and char-before. --- lisp/thingatpt.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index 58dc08649de..c85b8f89660 100644 --- a/lisp/thingatpt.el +++ b/lisp/thingatpt.el @@ -169,7 +169,7 @@ a symbol as a valid THING." (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 @@ a symbol as a valid THING." (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 @@ with angle brackets.") (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 -- 2.39.5