[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/net/tramp-uu.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/tramp-uu.el |
Date: |
Fri, 04 Apr 2003 01:22:42 -0500 |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/net/tramp-uu.el,
Miles Bader <=