[Emacs-diffs] Changes to emacs/lisp/net/tramp-uu.el [lexbind]

[Miles Bader]

Index: emacs/lisp/net/tramp-uu.el
diff -c emacs/lisp/net/tramp-uu.el:1.2.4.2 emacs/lisp/net/tramp-uu.el:1.2.4.3
*** emacs/lisp/net/tramp-uu.el:1.2.4.2  Tue Oct 14 23:39:26 2003
--- emacs/lisp/net/tramp-uu.el  Tue Jul  6 09:31:52 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))