Changeset 4200 for trunk/lisp/erc/erc-compat.el

Timestamp:

2007年04月07日 15時49分28秒 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/erc/erc-compat.el (modified) (1 diff)

trunk/lisp/erc/erc-compat.el

@@ -162 +162 @@
-    (nreverse newseq)))
-
-;; Provide a simpler replacement for `gensym'.
-(defvar *erc-sym-counter* 0)
-(defun erc-gensym ()
-  "Generate a new uninterned symbol."
-  (let ((num (prog1 *erc-sym-counter*
-               (setq *erc-sym-counter* (1+ *erc-sym-counter*)))))
-    (make-symbol (format "*erc-sym-%d*" num))))
-
-;; Copied from cl-extra.el
-(defun erc-subseq (seq start &optional end)