Mercurial > emacs
changeset 99114:e71b3b67d831
(end-of-sexp, beginning-of-sexp, forward-same-syntax): Omit default
arguments to char-after and char-before.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 25 Oct 2008 00:12:37 +0000 |
| parents | e4220bce0895 |
| children | ec94709902e9 |
| files | lisp/thingatpt.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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