36 |
(mapcar (lambda (c) |
(mapcar (lambda (c) |
37 |
(prog1 |
(prog1 |
38 |
(cons c i) |
(cons c i) |
39 |
(incf i))) |
(setq i (1+ i)))) |
40 |
tramp-uu-b64-alphabet)) |
tramp-uu-b64-alphabet)) |
41 |
"Alist of mapping from base64 character to its byte.") |
"Alist of mapping from base64 character to its byte.") |
42 |
|
|
65 |
;; "=" means padding. Insert "`" instead. |
;; "=" means padding. Insert "`" instead. |
66 |
(insert "`") |
(insert "`") |
67 |
(insert (tramp-uu-byte-to-uu-char (tramp-uu-b64-char-to-byte c)))) |
(insert (tramp-uu-byte-to-uu-char (tramp-uu-b64-char-to-byte c)))) |
68 |
(incf i) |
(setq i (1+ i)) |
69 |
;; Every 60 characters, add "M" at beginning of line (as |
;; Every 60 characters, add "M" at beginning of line (as |
70 |
;; length byte) and insert a newline. |
;; length byte) and insert a newline. |
71 |
(when (zerop (% i 60)) |
(when (zerop (% i 60)) |