diff options
Diffstat (limited to 'lisp/erc/erc-compat.el')
| -rw-r--r-- | lisp/erc/erc-compat.el | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/lisp/erc/erc-compat.el b/lisp/erc/erc-compat.el index 60cbe992d19..dcfcfe84c98 100644 --- a/lisp/erc/erc-compat.el +++ b/lisp/erc/erc-compat.el @@ -161,14 +161,6 @@ avoid corrupting the original SEQ." (setq newseq (cons el newseq)))) (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) "Return the subsequence of SEQ from START to END. |