Mercurial > emacs

changeset 36763:00b03757e45b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
These changes are based on a patch sent from Yong Lu <lyongu@yahoo.com>. (term-set-escape-char): Bind M-x to execute-extended-command in term-raw-escape-map. (term-move-columns): Don't try to move to negagive column. (term-emulate-terminal): Insert a string before deleting a text to overwrite.
author Kenichi Handa <handa@m17n.org>
date Tue, 13 Mar 2001 11:21:52 +0000
parents 39edfdf3170b
children 00b48ce14be0
files lisp/term.el
diffstat 1 files changed, 23 insertions(+), 16 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/term.el	Tue Mar 13 11:21:27 2001 +0000
+++ b/lisp/term.el	Tue Mar 13 11:21:52 2001 +0000
@@ -23,6 +23,9 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Marck 13 2001
+;;; Fixes for CJK support by Yong Lu <lyongu@yahoo.com>.
+
 ;;; Dir/Hostname tracking and ANSI colorization by
 ;;; Marco Melgazzi <marco@techie.com>.
 
@@ -1269,7 +1272,9 @@
   (define-key term-raw-escape-map "\C-q" 'term-pager-toggle)
   ;; The keybinding for term-char-mode is needed by the menubar code.
   (define-key term-raw-escape-map "\C-k" 'term-char-mode)
-  (define-key term-raw-escape-map "\C-j" 'term-line-mode))
+  (define-key term-raw-escape-map "\C-j" 'term-line-mode)
+  ;; It's convenient to have execute-extended-command here.
+  (define-key term-raw-escape-map [?\M-x] 'execute-extended-command))
 
 (defun term-char-mode ()
   "Switch to char (\"raw\") sub-mode of term mode.
@@ -2606,10 +2611,10 @@
   (cond (term-current-column)
 	((setq term-current-column (current-column)))))
 
-;;; Move DELTA column right (or left if delta < 0).
+;;; Move DELTA column right (or left if delta < 0 limiting at column 0).
 
 (defun term-move-columns (delta)
-  (setq term-current-column (+ (term-current-column) delta))
+  (setq term-current-column (max 0 (+ (term-current-column) delta)))
   (move-to-column term-current-column t))
 
 ;; Insert COUNT copies of CHAR in the default face.
@@ -2786,19 +2791,21 @@
 				   (setq term-current-column nil)
 				   (setq term-start-line-column nil)))
 			    (setq old-point (point))
-			    ;; In the common case that we're at the end of
-			    ;; the buffer, we can save a little work.
-			    (cond ((/= (point) (point-max))
-				   (if term-insert-mode
-				       ;; Inserting spaces, then deleting them,
-				       ;; then inserting the actual text is
-				       ;; inefficient, but it is simple, and
-				       ;; the actual overhead is miniscule.
-				       (term-insert-spaces count))
-				   (term-move-columns count)
-				   (delete-region old-point (point)))
-	(t (setq term-current-column (+ (term-current-column) count))))
-			    (insert (substring str i funny))
+
+			    ;; Insert a string, check how many columns
+			    ;; we moved, then delete that many columns
+			    ;; following point if not eob nor insert-mode.
+			    (let ((old-column (current-column))
+				  columns pos)
+			      (insert (substring str i funny))
+			      (setq term-current-column (current-column)
+				    columns (- term-current-column old-column))
+			      (when (not (or (eobp) term-insert-mode))
+				(setq pos (point))
+				(term-move-columns columns)
+				(delete-region pos (point))))
+			    (setq term-current-column nil)
+							 
 			    (put-text-property old-point (point)
 					       'face term-current-face)
 			    ;; If the last char was written in last column,