mirror of
https://github.com/rfivet/uemacs.git
synced 2024-10-01 09:45:58 -04:00
Fix $kill to cover at most first 127 characters of kill buffer. Was only first N % 250 (ex 25 out of 275).
This commit is contained in:
parent
3197080cb1
commit
a560025c0c
2
line.c
2
line.c
@ -63,7 +63,7 @@ char *getkill( void)
|
|||||||
value[0] = 0;
|
value[0] = 0;
|
||||||
else {
|
else {
|
||||||
/* copy in the contents... */
|
/* copy in the contents... */
|
||||||
if (kused < NSTRING)
|
if( kbufh == kbufp && kused < NSTRING)
|
||||||
size = kused;
|
size = kused;
|
||||||
else
|
else
|
||||||
size = NSTRING - 1;
|
size = NSTRING - 1;
|
||||||
|
13
tststr.cmd
13
tststr.cmd
@ -33,5 +33,18 @@ insert-string &cat "Filename: " $cfname
|
|||||||
newline
|
newline
|
||||||
insert-string "Filename length: "
|
insert-string "Filename length: "
|
||||||
insert-string &len $cfname
|
insert-string &len $cfname
|
||||||
|
end-of-file
|
||||||
|
; Create a line longer than 1 kill block (250), 2 * 127 + 21 = 255
|
||||||
|
insert-string 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
|
||||||
|
insert-string 1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
|
||||||
|
insert-string "#12345678901234567890"
|
||||||
|
; kill and yank
|
||||||
|
beginning-of-line
|
||||||
|
kill-to-end-of-line
|
||||||
|
yank
|
||||||
|
newline
|
||||||
|
; insert kill variable (up to 127 characters), was 25 before fix
|
||||||
|
insert-string $kill
|
||||||
save-file
|
save-file
|
||||||
beginning-of-file
|
beginning-of-file
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user