From 4f64bf22c9a37275725fe8c7a84b4ac83e0e56e8 Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Fri, 27 Oct 2000 17:35:34 +0000 Subject: [PATCH] Ultra-safe for using macros. 2000-10-27 14:19:53 ShengHuo ZHU * gnus-mlspl.el: Require cl when compiling. * messagexmas.el: Ditto. * mm-util.el: Ditto. * rfc2047.el: Ditto. * rfc2231.el: Ditto. * smiley-ems.el: Ditto. * uudecode.el: Ditto. * smiley-ems.el (smiley-region): Use mapcar. 2000-10-27 Stefan Monnier * ietf-drums.el: Require cl when compiling. --- lisp/ChangeLog | 16 ++++++++++++++++ lisp/gnus-mlspl.el | 1 + lisp/ietf-drums.el | 1 + lisp/messagexmas.el | 1 + lisp/mm-util.el | 1 + lisp/rfc2047.el | 1 + lisp/rfc2231.el | 1 + lisp/smiley-ems.el | 9 +++++---- lisp/uudecode.el | 1 + 9 files changed, 28 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a78f292ba..30b6a9cce 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,19 @@ +2000-10-27 14:19:53 ShengHuo ZHU + + * gnus-mlspl.el: Require cl when compiling. + * messagexmas.el: Ditto. + * mm-util.el: Ditto. + * rfc2047.el: Ditto. + * rfc2231.el: Ditto. + * smiley-ems.el: Ditto. + * uudecode.el: Ditto. + + * smiley-ems.el (smiley-region): Use mapcar. + +2000-10-27 Stefan Monnier + + * ietf-drums.el: Require cl when compiling. + 2000-10-27 Dave Love * nnheader.el (nnheader-translate-file-chars): Only kludge things diff --git a/lisp/gnus-mlspl.el b/lisp/gnus-mlspl.el index b7fcbd78c..3f7d01292 100644 --- a/lisp/gnus-mlspl.el +++ b/lisp/gnus-mlspl.el @@ -20,6 +20,7 @@ ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +(eval-when-compile (require 'cl)) (require 'gnus) (require 'gnus-sum) (require 'gnus-group) diff --git a/lisp/ietf-drums.el b/lisp/ietf-drums.el index 853c20876..b39decb80 100644 --- a/lisp/ietf-drums.el +++ b/lisp/ietf-drums.el @@ -29,6 +29,7 @@ ;;; Code: +(eval-when-compile (require 'cl)) (require 'time-date) (require 'mm-util) diff --git a/lisp/messagexmas.el b/lisp/messagexmas.el index 6ee575c86..f0188b94b 100644 --- a/lisp/messagexmas.el +++ b/lisp/messagexmas.el @@ -25,6 +25,7 @@ ;;; Code: +(eval-when-compile (require 'cl)) (require 'nnheader) (defvar message-xmas-dont-activate-region t diff --git a/lisp/mm-util.el b/lisp/mm-util.el index db6ddd82d..7e3cacb94 100644 --- a/lisp/mm-util.el +++ b/lisp/mm-util.el @@ -24,6 +24,7 @@ ;;; Code: +(eval-when-compile (require 'cl)) (require 'mail-prsvr) (defvar mm-mime-mule-charset-alist diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el index fec54b4b8..cdf026977 100644 --- a/lisp/rfc2047.el +++ b/lisp/rfc2047.el @@ -24,6 +24,7 @@ ;;; Code: +(eval-when-compile (require 'cl)) (eval-and-compile (eval '(unless (fboundp 'base64-decode-string) diff --git a/lisp/rfc2231.el b/lisp/rfc2231.el index 8ee24b951..fd850aecd 100644 --- a/lisp/rfc2231.el +++ b/lisp/rfc2231.el @@ -23,6 +23,7 @@ ;;; Code: +(eval-when-compile (require 'cl)) (require 'ietf-drums) (defun rfc2231-get-value (ct attribute) diff --git a/lisp/smiley-ems.el b/lisp/smiley-ems.el index 4bc0c1c5a..e4c23e84d 100644 --- a/lisp/smiley-ems.el +++ b/lisp/smiley-ems.el @@ -35,6 +35,7 @@ ;;; Code: +(eval-when-compile (require 'cl)) (require 'nnheader) (defgroup smiley nil @@ -95,10 +96,10 @@ rgexp to replace with IMAGE. IMAGE is the name of a PBM file in (interactive "r") (when (and (fboundp 'display-graphic-p) (display-graphic-p)) - (mapc (lambda (o) - (if (eq 'smiley (overlay-get o 'smiley)) - (delete-overlay o))) - (overlays-in start end)) + (mapcar (lambda (o) + (if (eq 'smiley (overlay-get o 'smiley)) + (delete-overlay o))) + (overlays-in start end)) (unless smiley-cached-regexp-alist (smiley-update-cache)) (save-excursion diff --git a/lisp/uudecode.el b/lisp/uudecode.el index fa55b88cb..49047a910 100644 --- a/lisp/uudecode.el +++ b/lisp/uudecode.el @@ -28,6 +28,7 @@ ;;; Code: +(eval-when-compile (require 'cl)) (if (not (fboundp 'char-int)) (defalias 'char-int 'identity)) -- 2.25.1