Mercurial > hg > xemacs-beta

comparison lisp/w3/base64.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents 0293115a14e9
children
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
1 ;;; base64.el,v --- Base64 encoding functions 1 ;;; base64.el,v --- Base64 encoding functions
2 ;; Author: Kyle E. Jones 2 ;; Author: Kyle E. Jones
3 ;; Created: 1997/01/23 00:13:17 3 ;; Created: 1997/03/12 14:37:09
4 ;; Version: 1.4 4 ;; Version: 1.6
5 ;; Keywords: extensions 5 ;; Keywords: extensions
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (C) 1997 Kyle E. Jones 8 ;;; Copyright (C) 1997 Kyle E. Jones
9 ;;; 9 ;;;
100 100
101 (defun base64-insert-char (char &optional count ignored buffer) 101 (defun base64-insert-char (char &optional count ignored buffer)
102 (condition-case nil 102 (condition-case nil
103 (progn 103 (progn
104 (insert-char char count ignored buffer) 104 (insert-char char count ignored buffer)
105 (fset 'vm-insert-char 'insert-char)) 105 (fset 'base64-insert-char 'insert-char))
106 (wrong-number-of-arguments 106 (wrong-number-of-arguments
107 (fset 'base64-insert-char 'base64-xemacs-insert-char) 107 (fset 'base64-insert-char 'base64-xemacs-insert-char)
108 (base64-insert-char char count ignored buffer)))) 108 (base64-insert-char char count ignored buffer))))
109 109
110 (defun base64-xemacs-insert-char (char &optional count ignored buffer) 110 (defun base64-xemacs-insert-char (char &optional count ignored buffer)
127 (save-excursion 127 (save-excursion
128 (setq work-buffer (generate-new-buffer " *base64-work*")) 128 (setq work-buffer (generate-new-buffer " *base64-work*"))
129 (buffer-disable-undo work-buffer) 129 (buffer-disable-undo work-buffer)
130 (if base64-decoder-program 130 (if base64-decoder-program
131 (let* ((binary-process-output t) ; any text already has CRLFs 131 (let* ((binary-process-output t) ; any text already has CRLFs
132 (status (apply 'command-on-region 132 (status (apply 'base64-run-command-on-region
133 start end work-buffer 133 start end work-buffer
134 base64-decoder-program 134 base64-decoder-program
135 base64-decoder-switches))) 135 base64-decoder-switches)))
136 (if (not (eq status t)) 136 (if (not (eq status t))
137 (error "%s" (cdr status)))) 137 (error "%s" (cdr status))))