[Emacs-diffs] emacs/lisp ChangeLog paren.el simple.el subr.el

[Juanma Barranquero]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      09/03/19 14:45:07

Modified files:
        lisp           : ChangeLog paren.el simple.el subr.el 

Log message:
        * 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'.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15502&r2=1.15503
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/paren.el?cvsroot=emacs&r1=1.79&r2=1.80
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/simple.el?cvsroot=emacs&r1=1.976&r2=1.977
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/subr.el?cvsroot=emacs&r1=1.634&r2=1.635

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15502
retrieving revision 1.15503
diff -u -b -r1.15502 -r1.15503
--- ChangeLog   19 Mar 2009 09:35:58 -0000      1.15502
+++ ChangeLog   19 Mar 2009 14:45:02 -0000      1.15503
@@ -1,3 +1,11 @@
+2009-03-19  Juanma Barranquero  <address@hidden>
+
+       * 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  <address@hidden>
 
        * mail/rmail.el (rmail-retry-ignored-headers): Add :version tag.

Index: paren.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/paren.el,v
retrieving revision 1.79
retrieving revision 1.80
diff -u -b -r1.79 -r1.80
--- paren.el    5 Jan 2009 03:19:37 -0000       1.79
+++ paren.el    19 Mar 2009 14:45:05 -0000      1.80
@@ -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))))

Index: simple.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/simple.el,v
retrieving revision 1.976
retrieving revision 1.977
diff -u -b -r1.976 -r1.977
--- simple.el   14 Mar 2009 17:43:16 -0000      1.976
+++ simple.el   19 Mar 2009 14:45:05 -0000      1.977
@@ -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.

Index: subr.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/subr.el,v
retrieving revision 1.634
retrieving revision 1.635
diff -u -b -r1.634 -r1.635
--- subr.el     14 Feb 2009 09:06:56 -0000      1.634
+++ subr.el     19 Mar 2009 14:45:06 -0000      1.635
@@ -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.