From d36c88ea61b26c5fbe9f511266bcfdde52b7b838 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 31 Jul 2001 00:08:42 +0000 Subject: [PATCH] * mml2015.el: Require `gnus-clfns' when compiling. * gnus-clfns.el (string-to-list): New compiler macro. --- ChangeLog | 5 +++++ lisp/gnus-clfns.el | 27 +++++++++++++++++++++++++++ lisp/mml2015.el | 1 + 3 files changed, 33 insertions(+) diff --git a/ChangeLog b/ChangeLog index 31314ec..664c058 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2001-07-31 Katsumi Yamaoka + + * lisp/mml2015.el: Require `gnus-clfns' when compiling. + * lisp/gnus-clfns.el (string-to-list): New compiler macro. + 2001-07-30 Katsumi Yamaoka * lisp/gnus-sum.el (gnus-select-newsgroup): Don't examine cached diff --git a/lisp/gnus-clfns.el b/lisp/gnus-clfns.el index a855553..123b9b1 100644 --- a/lisp/gnus-clfns.el +++ b/lisp/gnus-clfns.el @@ -135,6 +135,33 @@ "Concatenate all the argument characters and make the result a string." (concat args)) + (define-compiler-macro string-to-list (&whole form string) + (cond ((fboundp 'string-to-list) + form) + ((fboundp 'string-to-char-list) + (list 'string-to-char-list string)) + (t + `(let* ((str ,string) + (len (length str)) + (idx 0) + c l) + (while (< idx len) + (setq c (sref str idx)) + (setq idx (+ idx (char-bytes c))) + (setq l (cons c l))) + (nreverse l))))) + + ;; 92.7.2 by K.Handa (imported from Mule 2.3) + (defun-maybe string-to-list (str) + (let ((len (length str)) + (idx 0) + c l) + (while (< idx len) + (setq c (sref str idx)) + (setq idx (+ idx (char-bytes c))) + (setq l (cons c l))) + (nreverse l))) + (define-compiler-macro subseq (&whole form seq start &optional end) (if (and (fboundp 'subseq) (subrp (symbol-function 'subseq))) diff --git a/lisp/mml2015.el b/lisp/mml2015.el index d183432..b9b5255 100644 --- a/lisp/mml2015.el +++ b/lisp/mml2015.el @@ -26,6 +26,7 @@ ;;; Code: (eval-when-compile (require 'cl)) +(eval-when-compile (require 'gnus-clfns)) (require 'mm-decode) (defvar mml2015-use (or -- 1.7.10.4