From 2127b7c641d9c3faf42f44e43302846ece61f3b0 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 16 Aug 1999 21:04:19 +0000 Subject: [PATCH] (assoc-ignore-case, assoc-ignore-representation): Moved to subr.el. --- lisp/simple.el | 22 ---------------------- 1 file changed, 22 deletions(-) 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) -- 2.39.5