mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix integer overflow in forward-point

Browse source 
* lisp/subr.el (forward-point): Rewrite in Lisp and move here ...
* src/cmds.c (Fforward_point): ... from here.  This fixes an
integer overflow bug with (forward-point most-positive-fixnum).
This commit is contained in:
Paul Eggert 2020-03-25 17:40:57 -07:00
parent d08c9472e8
commit e4b6151ff1
2 changed files with 5 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/subr.el
View file

@ -1558,7 +1558,6 @@ be a list of the form returned by `event-start' and `event-end'."
;;;; Obsolescent names for functions.
(make-obsolete 'forward-point "use (+ (point) N) instead." "23.1")
(make-obsolete 'buffer-has-markers-at nil "24.3")
(make-obsolete 'invocation-directory "use the variable of the same name."
@ -1580,6 +1579,11 @@ be a list of the form returned by `event-start' and `event-end'."
(make-obsolete 'string-as-multibyte "use `decode-coding-string'." "26.1")
(make-obsolete 'string-make-multibyte "use `decode-coding-string'." "26.1")
(defun forward-point (n)
"Return buffer position N characters after (before if N negative) point."
(declare (obsolete "use (+ (point) N) instead." "23.1"))
(+ (point) n))
(defun log10 (x)
"Return (log X 10), the log base 10 of X."
(declare (obsolete log "24.4"))