--- completer.el.~1~	2006-06-28 17:40:45.000000000 -0700
+++ completer.el	2006-06-28 17:41:15.000000000 -0700
@@ -277,7 +277,9 @@
 				end (+ begin wordlen)))
 		      (and (<= end (length choice))
 			   (or (zerop wordlen)
-			       (string-equal 
+                               (funcall (if case-fold-search
+                                            #'string-equal-ignore-case
+                                          #'string-equal)
 				(car pat)
 				(substring choice begin end))))))
 	  (setq from (string-match regexp choice 
@@ -593,6 +595,10 @@
 expanded.  Optional ANY is a delimiter that can match any delimiter in
 WORDS.  Optional MODE is nil for complete, 'help for help and 'exit
 for exit."
+  (let ((completion-ignore-case
+         (if (eq system-type 'darwin)
+             t
+           completion-ignore-case)))
   (if (and (stringp completer-string) 
 	   (string= string completer-string)
 	   (eq table completer-table)
@@ -653,6 +659,7 @@
 		       (list nil nil nil nil))))))
        completer-string string)
       completer-result))
+  )
 
 ;;;%%Display choices
 (defun completer-display-choices (choices &optional match message end