diff options
| author | Kai Großjohann <kgrossjo@eu.uu.net> | 2002-12-26 20:47:51 +0000 |
|---|---|---|
| committer | Kai Großjohann <kgrossjo@eu.uu.net> | 2002-12-26 20:47:51 +0000 |
| commit | 4007ba5bfb1152d1b77b212bf881be58fe5fe23a (patch) | |
| tree | cec8f72dedf8abdaeca4dc4862c0a1111b84aa61 /lisp/net/tramp-uu.el | |
| parent | 9ddf362eb8c939b3da3fdd6469be09fd4a4c342d (diff) | |
| download | emacs-4007ba5bfb1152d1b77b212bf881be58fe5fe23a.tar.gz | |
* net/tramp*.el: Sync with upstream version 2.0.28. Bugfixes.
* net/tramp-ftp.el: Glue code with Ange-FTP, broken out of
tramp.el. From Michael Albinus.
* net/tramp-smb.el: New file for using smbclient to access
Windows shares with Tramp. From Michael Albinus.
Diffstat (limited to 'lisp/net/tramp-uu.el')
| -rw-r--r-- | lisp/net/tramp-uu.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/net/tramp-uu.el b/lisp/net/tramp-uu.el index 324e45e95d3..01ede56ca7d 100644 --- a/lisp/net/tramp-uu.el +++ b/lisp/net/tramp-uu.el @@ -36,7 +36,7 @@ (mapcar (lambda (c) (prog1 (cons c i) - (incf i))) + (setq i (1+ i)))) tramp-uu-b64-alphabet)) "Alist of mapping from base64 character to its byte.") @@ -65,7 +65,7 @@ ;; "=" means padding. Insert "`" instead. (insert "`") (insert (tramp-uu-byte-to-uu-char (tramp-uu-b64-char-to-byte c)))) - (incf i) + (setq i (1+ i)) ;; Every 60 characters, add "M" at beginning of line (as ;; length byte) and insert a newline. (when (zerop (% i 60)) |