scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix an application of COMMAND-BUFFER

This commit is contained in:
eknauel 2005-06-07 20:54:22 +00:00
parent 4c903444f2
commit 9e3d00028c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/nuit-engine.scm
View File

@ -582,7 +582,7 @@
(old-last-el (list-ref text last-pos))
(old-rest (sublist text 0 last-pos))
(before-ch (substring old-last-el 0
(max 0 (- (buffer-pos-col command-buffer) 2))))
(max 0 (- (buffer-pos-col (command-buffer)) 2))))
(after-ch (substring old-last-el
(max 0 (- (buffer-pos-col (command-buffer)) 2))
(string-length old-last-el)))