mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

(point++n!, point+-n!): Use substring-move! instead of

Browse source 
substring-move-left! or substring-move-right!.  Thanks to Kevin Ryde.
This commit is contained in:
Marius Vollmer 2003-05-03 21:34:33 +00:00
parent 5b943a3f7f
commit 4167fc5422
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ice-9/gap-buffer.scm
View file

@ -1,6 +1,6 @@
;;; gap-buffer.scm --- String buffer that supports point
;;; Copyright (C) 2002 Free Software Foundation, Inc.
;;; Copyright (C) 2002, 2003 Free Software Foundation, Inc.
;;;
;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public
@ -215,12 +215,12 @@
(aft-ofs! gb (all-sz: gb)))
(define (point++n! gb n s gap-ofs aft-ofs) ; n>0; warning: reckless
(substring-move-left! s aft-ofs (+ aft-ofs n) s gap-ofs)
(substring-move! s aft-ofs (+ aft-ofs n) s gap-ofs)
(gap-ofs! gb (+ gap-ofs n))
(aft-ofs! gb (+ aft-ofs n)))
(define (point+-n! gb n s gap-ofs aft-ofs) ; n<0; warning: reckless
(substring-move-right! s (+ gap-ofs n) gap-ofs s (+ aft-ofs n))
(substring-move! s (+ gap-ofs n) gap-ofs s (+ aft-ofs n))
(gap-ofs! gb (+ gap-ofs n))
(aft-ofs! gb (+ aft-ofs n)))