Jacob Faibussowitsch <
jacob.fai@gmail.com> writes:
How to reproduce:
$ emacs -Q
OR
$ git checkout master
$ make all
(The warning will appear when byte-compiling emacs internals in the second
case)
Hm; I'm not able to reproduce this...
+(while name
+ (setq mode
+ (if case-insensitive-p
+ ;; Filesystem is case-insensitive.
+ (let ((case-fold-search t))
+ (assoc-default alist 'string-match)))
Every other assoc-default() in this routine has “name” as an argument except
the above, i.e.
(assoc-default name alist ’string-match)
... but that's clearly the right fix here, I think, so I've now pushed
it to the trunk. Does the trunk work for you now?
--
(domestic pets only, the antidote for overdose, milk.)
bloggy blog:
http://lars.ingebrigtsen.no