changeset 74244:d4c2b4add4ca

(terminal-cease-edit, te-more-break-unwind, te-newline, te-clear-rest-of-line, te-clear-rest-of-screen, te-clear-screen, te-insert-lines, te-delete-lines, te-delete, te-insert-spaces, te-delete-char, te-down-vertically-or-scroll): "?\ " -> "?\s".
author Juanma Barranquero <lekktu@gmail.com>
date Mon, 27 Nov 2006 14:09:01 +0000
parents b5548562a340
children f1bc46cb2d2d
files lisp/terminal.el
diffstat 1 files changed, 15 insertions(+), 15 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/terminal.el	Mon Nov 27 14:07:26 2006 +0000
+++ b/lisp/terminal.el	Mon Nov 27 14:09:01 2006 +0000
@@ -567,10 +567,10 @@
         (let ((p (point)))
           (cond ((search-forward "\n" (+ p width) 'move)
                  (forward-char -1)
-                 (insert-char ?\  (- width (- (point) p)))
+                 (insert-char ?\s (- width (- (point) p)))
                  (forward-char 1))
                 ((eobp)
-                 (insert-char ?\  (- width (- (point) p))))
+                 (insert-char ?\s (- width (- (point) p))))
                 ((= (following-char) ?\n)
                  (forward-char 1))
                 (t
@@ -642,7 +642,7 @@
 	   (forward-char 1)
 	   (delete-region (point)
 			  (+ (point) (length terminal-more-break-insertion)))
-	   (insert-char ?\  te-width)
+	   (insert-char ?\s te-width)
 	   (goto-char te-more-old-point)))
     (setq te-more-old-point nil)
     (let ((te-more-count 259259))
@@ -693,7 +693,7 @@
 		   (insert ?\n))))
     (forward-char 1)
     (delete-region (point) (+ (point) te-width)))
-  (insert-char ?\  te-width)
+  (insert-char ?\s te-width)
   (beginning-of-line)
   (te-set-window-start))
 
@@ -717,7 +717,7 @@
   (save-excursion
     (let ((n (- (point) (progn (end-of-line) (point)))))
       (delete-region (point) (+ (point) n))
-      (insert-char ?\  (- n)))))
+      (insert-char ?\s (- n)))))
 
 
 ;; ^p C
@@ -727,7 +727,7 @@
     (while (progn (end-of-line) (not (eobp)))
       (forward-char 1) (end-of-line)
       (delete-region (- (point) te-width) (point))
-      (insert-char ?\  te-width))))
+      (insert-char ?\s te-width))))
 
 
 ;; ^p ^l
@@ -737,7 +737,7 @@
   (let ((i 0))
     (while (< i te-height)
       (setq i (1+ i))
-      (insert-char ?\  te-width)
+      (insert-char ?\s te-width)
       (insert ?\n)))
   (delete-region (1- (point-max)) (point-max))
   (goto-char (point-min))
@@ -750,13 +750,13 @@
       ();(error "fooI")
     (save-excursion
       (let* ((line (- te-height (/ (- (point) (point-min)) (1+ te-width)) -1))
-	     (n (min (- (te-get-char) ?\ ) line))
+	     (n (min (- (te-get-char) ?\s) line))
 	     (i 0))
 	(delete-region (- (point-max) (* n (1+ te-width))) (point-max))
 	(if (eq (point) (point-max)) (insert ?\n))
 	(while (< i n)
 	  (setq i (1+ i))
-	  (insert-char ?\  te-width)
+	  (insert-char ?\s te-width)
 	  (or (eq i line) (insert ?\n))))))
   (setq te-more-count -1))
 
@@ -766,7 +766,7 @@
   (if (not (bolp))
       ();(error "fooD")
     (let* ((line (- te-height (/ (- (point) (point-min)) (1+ te-width)) -1))
-	   (n (min (- (te-get-char) ?\ ) line))
+	   (n (min (- (te-get-char) ?\s) line))
 	   (i 0))
       (delete-region (point)
 		     (min (+ (point) (* n (1+ te-width))) (point-max)))
@@ -774,7 +774,7 @@
 	(goto-char (point-max))
 	(while (< i n)
 	  (setq i (1+ i))
-	  (insert-char ?\  te-width)
+	  (insert-char ?\s te-width)
 	  (or (eq i line) (insert ?\n))))))
   (setq te-more-count -1))
 
@@ -798,7 +798,7 @@
   (if (bolp)
       ()
     (delete-region (1- (point)) (point))
-    (insert ?\ )
+    (insert ?\s)
     (forward-char -1)))
 
 ;; ^p ^g
@@ -815,7 +815,7 @@
 	nil
       (delete-char (- n))
       (goto-char p)
-      (insert-char ?\  n))
+      (insert-char ?\s n))
     (goto-char p)))
 
 ;; ^p d count+32  (should be ^p ^d but cretinous un*x won't send ^d chars!!!)
@@ -825,7 +825,7 @@
 		 (- (progn (end-of-line) (point)) p))))
     (if (<= n 0)
 	nil
-      (insert-char ?\  n)
+      (insert-char ?\s n)
       (goto-char p)
       (delete-char n))
     (goto-char p)))
@@ -862,7 +862,7 @@
 	  (delete-char 1)
 	  (goto-char (point-max))
 	  (insert ?\n)
-	  (insert-char ?\  te-width)
+	  (insert-char ?\s te-width)
 	  (beginning-of-line))
       (forward-line 1))
     (move-to-column column))