From 22c16529d56962efa109f74a13de267e4cc69653 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 20 Dec 1999 01:42:02 +0000 Subject: [PATCH] (base64-encode-string): Allow the optional second arg `no-line-break'. --- ChangeLog | 6 ++++++ mel-b-el.el | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 3bed761..a960078 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +1999-12-20 Katsumi Yamaoka + + * mel-b-el.el (base64-encode-string): Allow the optional second arg + `no-line-break'. + + 1999-12-14 MORIOKA Tomohiko * CLIME: Version 1.13.6 (Nakanosh-Dò)-A released. diff --git a/mel-b-el.el b/mel-b-el.el index 4238015..eb153b9 100644 --- a/mel-b-el.el +++ b/mel-b-el.el @@ -123,7 +123,7 @@ external decoder is called." (ash (logand (car pack) 3) 4)))) buf)) -(defun-maybe base64-encode-string (string) +(defun-maybe base64-encode-string (string &optional no-line-break) "Encode STRING to base64, and return the result." (let* ((len (length string)) (b 0)(e 57) @@ -135,7 +135,7 @@ external decoder is called." (function base64-encode-1) (pack-sequence (substring string b e) 3) "") - "\n")) + (if (not no-line-break) "\n"))) (setq b e e (+ e 57))) (concat dest -- 1.7.10.4