Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* subr.el (forward-point): Add obsolescence declaration.

Browse source 
* paren.el (show-paren-function):
* simple.el (kill-forward-chars, kill-backward-chars):
 Use (+/- (point) N), instead of `forward-point'.
This commit is contained in:
Juanma Barranquero 2009-03-19 14:45:02 +00:00
parent 80197a8c78
commit 673e51692e
4 changed files with 14 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -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.

6
lisp/paren.el
View file

@ -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))))

4
lisp/simple.el
View file

@ -3103,13 +3103,13 @@ With ARG, rotate that many kills forward (or backward, if negative)."
(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.

1
lisp/subr.el
View file

@ -998,6 +998,7 @@ and `event-end' functions."
(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.