diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2009-03-19 14:45:02 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2009-03-19 14:45:02 +0000 |
| commit | 673e51692e2ae76661aff27a809574e0a5e1ece1 (patch) | |
| tree | 3bc054a3c2798d113185a48cc8cbba2316815247 /lisp/paren.el | |
| parent | 80197a8c7829cc24520c2823c832425285c2b762 (diff) | |
| download | emacs-673e51692e2ae76661aff27a809574e0a5e1ece1.tar.gz | |
* subr.el (forward-point): Add obsolescence declaration.
* paren.el (show-paren-function):
* simple.el (kill-forward-chars, kill-backward-chars):
Use (+/- (point) N), instead of `forward-point'.
Diffstat (limited to 'lisp/paren.el')
| -rw-r--r-- | lisp/paren.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/paren.el b/lisp/paren.el index 041f43e1fbc..9648471d373 100644 --- a/lisp/paren.el +++ b/lisp/paren.el @@ -212,9 +212,9 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time." (delete-overlay show-paren-overlay-1)) (let ((from (if (= dir 1) (point) - (forward-point -1))) + (- (point) 1))) (to (if (= dir 1) - (forward-point 1) + (+ (point) 1) (point)))) (if show-paren-overlay-1 (move-overlay show-paren-overlay-1 from to (current-buffer)) @@ -238,7 +238,7 @@ in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time." pos (save-excursion (goto-char pos) - (forward-point (- dir)))))) + (- (point) dir))))) (if show-paren-overlay (move-overlay show-paren-overlay from to (current-buffer)) (setq show-paren-overlay (make-overlay from to nil t)))) |