Mercurial > emacs

comparison lisp/net/tramp-uu.el @ 55844:4bc6cb45c326

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Version 2.0.41 of Tramp released.
author Michael Albinus <michael.albinus@gmx.de>
date Sat, 29 May 2004 22:28:49 +0000
parents 695cf19ef79e
children df55e63482c4 4c90ffeb71c5
comparison
equal deleted inserted replaced
55843:26e0724718e2 55844:4bc6cb45c326
1 ;;; -*- coding: iso-2022-7bit; -*- 1 ;;; -*- coding: iso-2022-7bit; -*-
2 ;;; tramp-uu.el --- uuencode in Lisp 2 ;;; tramp-uu.el --- uuencode in Lisp
3 3
4 ;; Copyright (C) 2002 Free Software Foundation, Inc. 4 ;; Copyright (C) 2002, 2004 Free Software Foundation, Inc.
5 5
6 ;; Author: Kai Gro,A_(Bjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> 6 ;; Author: Kai Gro,A_(Bjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE>
7 ;; Keywords: comm, terminals 7 ;; Keywords: comm, terminals
8 8
9 ;; This file is free software; you can redistribute it and/or modify 9 ;; This file is free software; you can redistribute it and/or modify
61 (setq i 0) 61 (setq i 0)
62 (while (< i len) 62 (while (< i len)
63 (setq c (char-after (point))) 63 (setq c (char-after (point)))
64 (delete-char 1) 64 (delete-char 1)
65 (if (equal c ?=) 65 (if (equal c ?=)
66 ;; "=" means padding. Insert "`" instead. 66 ;; "=" means padding. Insert "`" instead. Not counted for length.
67 (insert "`") 67 (progn (insert "`") (setq len (1- len)))
68 (insert (tramp-uu-byte-to-uu-char (tramp-uu-b64-char-to-byte c)))) 68 (insert (tramp-uu-byte-to-uu-char (tramp-uu-b64-char-to-byte c)))
69 (setq i (1+ i)) 69 (setq i (1+ i)))
70 ;; Every 60 characters, add "M" at beginning of line (as 70 ;; Every 60 characters, add "M" at beginning of line (as
71 ;; length byte) and insert a newline. 71 ;; length byte) and insert a newline.
72 (when (zerop (% i 60)) 72 (when (zerop (% i 60))
73 (save-excursion 73 (save-excursion
74 (beginning-of-line) 74 (beginning-of-line)