From 87f9ca973d753ddaa048abce93e73a7335dac74c Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 22 Nov 1999 07:08:19 +0000 Subject: [PATCH] (gnus-split-string): Remove. --- lisp/gnus-ems.el | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el index 30a2115..1d96e83 100644 --- a/lisp/gnus-ems.el +++ b/lisp/gnus-ems.el @@ -241,16 +241,6 @@ (goto-char (point-min)) (sit-for 0)))))) -(if (fboundp 'split-string) - (fset 'gnus-split-string 'split-string) - (defun gnus-split-string (string pattern) - "Return a list of substrings of STRING which are separated by PATTERN." - (let (parts (start 0)) - (while (string-match pattern string start) - (setq parts (cons (substring string start (match-beginning 0)) parts) - start (match-end 0))) - (nreverse (cons (substring string start) parts))))) - (defun-maybe assoc-ignore-case (key alist) "Like `assoc', but assumes KEY is a string and ignores case when comparing." (setq key (downcase key)) -- 1.7.10.4