Mercurial > hg > xemacs-beta

comparison lisp/simple.el @ 5445:6506fcb40fcf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged with trunk.
author Mats Lidell <matsl@xemacs.org>
date Fri, 31 Dec 2010 00:27:29 +0100
parents 308d34e9f07d 57a64ab2ae45
children ac37a5f7e5be
comparison
equal deleted inserted replaced
5444:388762703a21 5445:6506fcb40fcf
3328 3328
3329 ;; XEmacs: Some functions moved to cmdloop.el: 3329 ;; XEmacs: Some functions moved to cmdloop.el:
3330 ;; keyboard-quit 3330 ;; keyboard-quit
3331 ;; buffer-quit-function 3331 ;; buffer-quit-function
3332 ;; keyboard-escape-quit 3332 ;; keyboard-escape-quit
3333
3334 (defun assoc-ignore-case (key alist)
3335 "Like `assoc', but assumes KEY is a string and ignores case when comparing."
3336 (assoc* key alist :test #'equalp))
3337
3338 3333
3339 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 3334 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3340 ;; mail composition code ;; 3335 ;; mail composition code ;;
3341 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 3336 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3342 3337