📄 00000024.htm
字号:
- ;; Inserting spaces, then deleting them, <BR>- ;; then inserting the actual text is <BR>- ;; inefficient, but it is simple, and <BR>- ;; the actual overhead is miniscule. <BR>- (term-insert-spaces count)) <BR>- (term-move-columns count) <BR>- (delete-region old-point (point))) <BR>- (t (setq term-current-column (+ (term-current-column) count)))) <BR>+ ;;(cond ((/= (point) (point-max)) <BR>+ ;; (if term-insert-mode <BR>+ ;; ;; Inserting spaces, then deleting them, <BR>+ ;; ;; then inserting the actual text is <BR>+ ;; ;; inefficient, but it is simple, and <BR>+ ;; ;; the actual overhead is miniscule. <BR>+ ;; (term-insert-spaces count)) <BR>+ ;; (term-move-columns count) <BR>+ ;; (delete-region old-point (point))) <BR>+ ;;(t (setq term-current-column (+ (term-current-column) count)))) <BR>+ (setq term-current-column nil) <BR> (insert (substring str i funny)) <BR>+ (cond ((and (/= (point) (point-max)) <BR>+ (not term-insert-mode)) <BR>+ (setq delete-begin-point (point)) <BR>+ (term-move-columns (- (current-column) old-column)) <BR>+ (delete-region delete-begin-point (point)))) <BR>+ (setq term-current-column nil) <BR>+ <BR>+ ;(if (<= old-point (point)) <BR> (put-text-property old-point (point) <BR> 'face term-current-face) <BR>+ ; ) <BR> ;; If the last char was written in last column, <BR> ;; back up one column, but remember we did so. <BR> ;; Thus we emulate xterm/vt100-style line-wrapping. <BR> <BR> <BR>-- <BR>Look Ma, this man can twist his fingers as if they were made of rubber, <BR>isn't that amazing? -- Not really, he's been using emacs for years...! <BR> <BR> <BR>※ 修改:·althea 於 Dec 28 11:56:34 修改本文·[FROM: 162.105.30.51] <BR>※ 来源:·BBS 水木清华站 smth.org·[FROM: 162.105.203.100] <BR><CENTER><H1>BBS水木清华站∶精华区</H1></CENTER></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -