Mercurial > emacs
changeset 102658:3bd929838554
* 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'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 19 Mar 2009 14:45:02 +0000 |
| parents | b8f0ba733f16 |
| children | ae4c4cf5b7eb |
| files | lisp/ChangeLog lisp/paren.el lisp/simple.el lisp/subr.el |
| diffstat | 4 files changed, 14 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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))))
--- 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.
--- 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.