Mercurial > emacs
comparison lisp/simple.el @ 25294:16dc368b49dd
(assoc-ignore-case, assoc-ignore-representation): Moved to subr.el.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Mon, 16 Aug 1999 21:04:19 +0000 |
parents | 0a9e93f020a3 |
children | 99d49ec31b8a |
comparison
equal
deleted
inserted
replaced
25293:fd43e1a99384 | 25294:16dc368b49dd |
---|---|
3504 (put symbol 'composefunc composefunc) | 3504 (put symbol 'composefunc composefunc) |
3505 (put symbol 'sendfunc sendfunc) | 3505 (put symbol 'sendfunc sendfunc) |
3506 (put symbol 'abortfunc (or abortfunc 'kill-buffer)) | 3506 (put symbol 'abortfunc (or abortfunc 'kill-buffer)) |
3507 (put symbol 'hookvar (or hookvar 'mail-send-hook))) | 3507 (put symbol 'hookvar (or hookvar 'mail-send-hook))) |
3508 | 3508 |
3509 (defun assoc-ignore-case (key alist) | |
3510 "Like `assoc', but ignores differences in case and text representation. | |
3511 KEY must be a string. Upper-case and lower-case letters are treated as equal. | |
3512 Unibyte strings are converted to multibyte for comparison." | |
3513 (let (element) | |
3514 (while (and alist (not element)) | |
3515 (if (eq t (compare-strings key 0 nil (car (car alist)) 0 nil t)) | |
3516 (setq element (car alist))) | |
3517 (setq alist (cdr alist))) | |
3518 element)) | |
3519 | |
3520 (defun assoc-ignore-representation (key alist) | |
3521 "Like `assoc', but ignores differences in text representation. | |
3522 KEY must be a string. | |
3523 Unibyte strings are converted to multibyte for comparison." | |
3524 (let (element) | |
3525 (while (and alist (not element)) | |
3526 (if (eq t (compare-strings key 0 nil (car (car alist)) 0 nil)) | |
3527 (setq element (car alist))) | |
3528 (setq alist (cdr alist))) | |
3529 element)) | |
3530 | |
3531 (define-mail-user-agent 'sendmail-user-agent | 3509 (define-mail-user-agent 'sendmail-user-agent |
3532 'sendmail-user-agent-compose | 3510 'sendmail-user-agent-compose |
3533 'mail-send-and-exit) | 3511 'mail-send-and-exit) |
3534 | 3512 |
3535 (defun rfc822-goto-eoh () | 3513 (defun rfc822-goto-eoh () |