[Emacs-diffs] Changes to emacs/lisp/net/tramp-uu.el

[Miles Bader]

Index: emacs/lisp/net/tramp-uu.el
diff -c emacs/lisp/net/tramp-uu.el:1.1 emacs/lisp/net/tramp-uu.el:1.2
*** emacs/lisp/net/tramp-uu.el:1.1      Sun Sep 22 09:23:36 2002
--- emacs/lisp/net/tramp-uu.el  Thu Dec 26 15:47:51 2002
***************
*** 36,42 ****
      (mapcar (lambda (c)
              (prog1
                  (cons c i)
!               (incf i)))
            tramp-uu-b64-alphabet))
    "Alist of mapping from base64 character to its byte.")
  
--- 36,42 ----
      (mapcar (lambda (c)
              (prog1
                  (cons c i)
!               (setq i (1+ i))))
            tramp-uu-b64-alphabet))
    "Alist of mapping from base64 character to its byte.")
  
***************
*** 65,71 ****
            ;; "=" means padding.  Insert "`" instead.
            (insert "`")
          (insert (tramp-uu-byte-to-uu-char (tramp-uu-b64-char-to-byte c))))
!       (incf i)
        ;; Every 60 characters, add "M" at beginning of line (as
        ;; length byte) and insert a newline.
        (when (zerop (% i 60))
--- 65,71 ----
            ;; "=" means padding.  Insert "`" instead.
            (insert "`")
          (insert (tramp-uu-byte-to-uu-char (tramp-uu-b64-char-to-byte c))))
!       (setq i (1+ i))
        ;; Every 60 characters, add "M" at beginning of line (as
        ;; length byte) and insert a newline.
        (when (zerop (% i 60))