📄 00000024.htm
字号:
<HTML><HEAD> <TITLE>BBS水木清华站∶精华区</TITLE></HEAD><BODY><CENTER><H1>BBS水木清华站∶精华区</H1></CENTER>发信人: althea (稻草人), 信区: Linux <BR>标 题: Emacs里面上BBS (term.el的patch) <BR>发信站: BBS 水木清华站 (Wed Dec 27 05:33:33 2000) <BR> <BR>/usr/local/share/emacs/21.0.91/lisp/term.el /tmp/ange-ftp13433i2d <BR>/usr/local/share/emacs/21.0.91/lisp/term.el <BR>--- /<A HREF="mailto:pact@162.105.30.51:/usr/local/share/emacs/21.0.91/lisp/term.el">pact@162.105.30.51:/usr/local/share/emacs/21.0.91/lisp/term.el</A> <BR>+++ /usr/local/share/emacs/21.0.91/lisp/term.el <BR>@@ -1277,7 +1277,7 @@ <BR> intervention from Emacs, except for the escape character (usually C-c)." <BR> (interactive) <BR> (if (not term-raw-map) <BR>- (let* ((map (make-keymap)) <BR>+ (let* ((map (list 'keymap (make-char-table 'keymap 'term-send-raw))) <BR> (esc-map (make-keymap)) <BR> (i 0)) <BR> (while (< i 128) <BR>@@ -2607,7 +2607,7 @@ <BR> ;;; Move DELTA column right (or left if delta < 0). <BR> <BR> (defun term-move-columns (delta) <BR>- (setq term-current-column (+ (term-current-column) delta)) <BR>+ (setq term-current-column (max 0 (+ (term-current-column) delta))) <BR> (move-to-column term-current-column t)) <BR> <BR> ;; Insert COUNT copies of CHAR in the default face. <BR>@@ -2704,6 +2704,7 @@ <BR> (defun term-emulate-terminal (proc str) <BR> (let* ((previous-buffer (current-buffer)) <BR> (i 0) char funny count save-point save-marker old-point temp win <BR>+ old-column delete-begin-point <BR> (selected (selected-window)) <BR> last-win <BR> (str-length (length str))) <BR>@@ -2784,21 +2785,31 @@ <BR> (setq term-current-column nil) <BR> (setq term-start-line-column nil))) <BR> (setq old-point (point)) <BR>+ (setq old-column (current-column)) <BR> ;; In the common case that we're at the end of <BR> ;; the buffer, we can save a little work. <BR>- (cond ((/= (point) (point-max)) <BR>- (if term-insert-mode <BR>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -