diff options
| author | Miles Bader <miles@gnu.org> | 2004-11-19 06:55:13 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2004-11-19 06:55:13 +0000 |
| commit | 148396568043f50499340911c656c7234cefd50d (patch) | |
| tree | 6bb3c035d0194f7e26bc8254a5189cb5a8722ce2 /lisp/emacs-lisp/cl-compat.el | |
| parent | 77229aad98d5c81a559fb1ba5161ed2a7f13aec4 (diff) | |
| parent | 6dd06769a945f59e048d8328e37a77b41f8c798f (diff) | |
| download | emacs-148396568043f50499340911c656c7234cefd50d.tar.gz emacs-148396568043f50499340911c656c7234cefd50d.tar.bz2 emacs-148396568043f50499340911c656c7234cefd50d.zip | |
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-72
Merge from emacs--cvs-trunk--0
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-693
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-695
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-696
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-697
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-702
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-703
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-704
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-708
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-72
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-73
Merge from emacs--cvs-trunk--0
Diffstat (limited to 'lisp/emacs-lisp/cl-compat.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-compat.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/cl-compat.el b/lisp/emacs-lisp/cl-compat.el index c3fbbe0993b..baef6cb069d 100644 --- a/lisp/emacs-lisp/cl-compat.el +++ b/lisp/emacs-lisp/cl-compat.el @@ -1,6 +1,6 @@ ;;; cl-compat.el --- Common Lisp extensions for GNU Emacs Lisp (compatibility) -;; Copyright (C) 1993 Free Software Foundation, Inc. +;; Copyright (C) 1993, 2004 Free Software Foundation, Inc. ;; Author: Dave Gillespie <daveg@synaptics.com> ;; Version: 2.02 @@ -139,7 +139,7 @@ ;; Internal routines. (defun pair-with-newsyms (oldforms) - (let ((newsyms (mapcar (function (lambda (x) (gensym))) oldforms))) + (let ((newsyms (mapcar (lambda (x) (make-symbol "--cl-var--")) oldforms))) (Values (mapcar* 'list newsyms oldforms) newsyms))) (defun zip-lists (evens odds) @@ -185,5 +185,5 @@ (provide 'cl-compat) -;;; arch-tag: 9996bb4f-aaf5-4592-b436-bf64759a3163 +;; arch-tag: 9996bb4f-aaf5-4592-b436-bf64759a3163 ;;; cl-compat.el ends here |