From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 16 Aug 1999 21:04:19 +0000 (+0000)
Subject: (assoc-ignore-case, assoc-ignore-representation): Moved to subr.el.
X-Git-Tag: emacs-pretest-21.0.90~7147
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2127b7c641d9c3faf42f44e43302846ece61f3b0;p=emacs.git

(assoc-ignore-case, assoc-ignore-representation): Moved to subr.el.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index fe13802654b..456911c6c9a 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3506,28 +3506,6 @@ The properties used on SYMBOL are `composefunc', `sendfunc',
   (put symbol 'abortfunc (or abortfunc 'kill-buffer))
   (put symbol 'hookvar (or hookvar 'mail-send-hook)))
 
-(defun assoc-ignore-case (key alist)
-  "Like `assoc', but ignores differences in case and text representation.
-KEY must be a string.  Upper-case and lower-case letters are treated as equal.
-Unibyte strings are converted to multibyte for comparison."
-  (let (element)
-    (while (and alist (not element))
-      (if (eq t (compare-strings key 0 nil (car (car alist)) 0 nil t))
-	  (setq element (car alist)))
-      (setq alist (cdr alist)))
-    element))
-
-(defun assoc-ignore-representation (key alist)
-  "Like `assoc', but ignores differences in text representation.
-KEY must be a string.  
-Unibyte strings are converted to multibyte for comparison."
-  (let (element)
-    (while (and alist (not element))
-      (if (eq t (compare-strings key 0 nil (car (car alist)) 0 nil))
-	  (setq element (car alist)))
-      (setq alist (cdr alist)))
-    element))
-
 (define-mail-user-agent 'sendmail-user-agent
   'sendmail-user-agent-compose
   'mail-send-and-exit)