/[tramp]/tramp/lisp/tramp-uu.el
ViewVC logotype

Diff of /tramp/lisp/tramp-uu.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.1 by kai, Fri Sep 13 21:19:48 2002 UTC revision 2.2 by kai, Wed Nov 27 09:36:39 2002 UTC
# Line 36  Line 36 
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    
# Line 65  Line 65 
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))

Legend:
Removed from v.2.1  
changed lines
  Added in v.2.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26