[Emacs-diffs] Changes to emacs/lisp/terminal.el,v

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      06/11/27 14:09:01

Index: terminal.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/terminal.el,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -b -r1.58 -r1.59
--- terminal.el 6 Nov 2006 02:42:07 -0000       1.58
+++ terminal.el 27 Nov 2006 14:09:01 -0000      1.59
@@ -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))