[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: |
Michael Albinus |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/tramp-uu.el |
Date: |
Sat, 29 May 2004 18:54:02 -0400 |
Index: emacs/lisp/net/tramp-uu.el
diff -c emacs/lisp/net/tramp-uu.el:1.4 emacs/lisp/net/tramp-uu.el:1.5
*** emacs/lisp/net/tramp-uu.el:1.4 Mon Sep 1 15:45:33 2003
--- emacs/lisp/net/tramp-uu.el Sat May 29 22:28:49 2004
***************
*** 1,7 ****
;;; -*- coding: iso-2022-7bit; -*-
;;; tramp-uu.el --- uuencode in Lisp
! ;; Copyright (C) 2002 Free Software Foundation, Inc.
;; Author: Kai Gro,A_(Bjohann <address@hidden>
;; Keywords: comm, terminals
--- 1,7 ----
;;; -*- coding: iso-2022-7bit; -*-
;;; tramp-uu.el --- uuencode in Lisp
! ;; Copyright (C) 2002, 2004 Free Software Foundation, Inc.
;; Author: Kai Gro,A_(Bjohann <address@hidden>
;; Keywords: comm, terminals
***************
*** 63,72 ****
(setq c (char-after (point)))
(delete-char 1)
(if (equal c ?=)
! ;; "=" 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))
--- 63,72 ----
(setq c (char-after (point)))
(delete-char 1)
(if (equal c ?=)
! ;; "=" means padding. Insert "`" instead. Not counted for length.
! (progn (insert "`") (setq len (1- len)))
! (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,
Michael Albinus <=