# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1237473902 0
# Node ID 3bd92983855446e4909c7acaabbf0133b56d9025
# Parent  b8f0ba733f16e52da78d30a099c4017895ce9f28
* 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'.

diff -r b8f0ba733f16 -r 3bd929838554 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Mar 19 09:35:58 2009 +0000
+++ b/lisp/ChangeLog	Thu Mar 19 14:45:02 2009 +0000
@@ -1,3 +1,11 @@
+2009-03-19  Juanma Barranquero  <lekktu@gmail.com>
+
+	* 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'.
+
 2009-03-19  Glenn Morris  <rgm@gnu.org>
 
 	* mail/rmail.el (rmail-retry-ignored-headers): Add :version tag.
diff -r b8f0ba733f16 -r 3bd929838554 lisp/paren.el
--- a/lisp/paren.el	Thu Mar 19 09:35:58 2009 +0000
+++ b/lisp/paren.el	Thu Mar 19 14:45:02 2009 +0000
@@ -212,9 +212,9 @@
 		(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 @@
 			  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))))
diff -r b8f0ba733f16 -r 3bd929838554 lisp/simple.el
--- a/lisp/simple.el	Thu Mar 19 09:35:58 2009 +0000
+++ b/lisp/simple.el	Thu Mar 19 14:45:02 2009 +0000
@@ -3103,13 +3103,13 @@
 (defun kill-forward-chars (arg)
   (if (listp arg) (setq arg (car arg)))
   (if (eq arg '-) (setq arg -1))
-  (kill-region (point) (forward-point arg)))
+  (kill-region (point) (+ (point) arg)))
 
 ;; Internal subroutine of backward-delete-char
 (defun kill-backward-chars (arg)
   (if (listp arg) (setq arg (car arg)))
   (if (eq arg '-) (setq arg -1))
-  (kill-region (point) (forward-point (- arg))))
+  (kill-region (point) (- (point) arg)))
 
 (defcustom backward-delete-char-untabify-method 'untabify
   "The method for untabifying when deleting backward.
diff -r b8f0ba733f16 -r 3bd929838554 lisp/subr.el
--- a/lisp/subr.el	Thu Mar 19 09:35:58 2009 +0000
+++ b/lisp/subr.el	Thu Mar 19 14:45:02 2009 +0000
@@ -998,6 +998,7 @@
 (define-obsolete-function-alias 'string-to-int 'string-to-number "22.1")
 
 (make-obsolete 'char-bytes "now always returns 1." "20.4")
+(make-obsolete 'forward-point "use (+ (point) N) instead." "23.1")
 
 (defun insert-string (&rest args)
   "Mocklisp-compatibility insert function.