diff options
author | Chong Yidong <[email protected]> | 2008-10-25 00:12:37 +0000 |
---|---|---|
committer | Chong Yidong <[email protected]> | 2008-10-25 00:12:37 +0000 |
commit | ce8fb8aa9576b04018159b55f4e4761145afae13 (patch) | |
tree | f409339b98ed720c3e756d6018f8b928719188dd | |
parent | a6e62f2e847a4244f332632a6a4c2252e3955f53 (diff) |
(end-of-sexp, beginning-of-sexp, forward-same-syntax): Omit default
arguments to char-after and char-before.
-rw-r--r-- | lisp/thingatpt.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index 58dc08649d..c85b8f8966 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 |