Re: python-mode.el doesn't associate python-mode with .PY files

[Stefan Monnier]

>> I'm browsing some old Python sources on a CD, and they're all opening
>> in fundamental-mode instead of python-mode.
>> 
>> All the filenames on the CD are in uppercase.
>> 
>> Perhaps python-mode.el could be modified to recognise .PY files as
>> well as .py files as containing Python code?

> That's not a bug, that's a feature!  But you can work around it in your
> ~/.emacs:

> (setq auto-mode-alist
>       (cons '("\\.PY\\'" . python-mode) auto-mode-alist))

It's at the very best a misfeature.  Far from a feature.
See sample patch below to fix this problem.


        Stefan


--- orig/lisp/files.el
+++ mod/lisp/files.el
@@ -2234,15 +2234,22 @@
              (setq name (file-name-sans-versions name))
              (while name
                ;; Find first matching alist entry.
-               (let ((case-fold-search
-                      (memq system-type '(vax-vms windows-nt cygwin))))
-                 (if (and (setq mode (assoc-default name auto-mode-alist
-                                                    'string-match))
-                          (consp mode)
-                          (cadr mode))
-                     (setq mode (car mode)
-                           name (substring name 0 (match-beginning 0)))
-                   (setq name)))
+                (if (and (setq mode
+                               (or (unless (memq system-type '(vax-vms 
windows-nt cygwin))
+                                     ;; First match case-sensitively if the
+                                     ;; system is case-sensitive.
+                                     (let ((case-fold-search nil))
+                                       (assoc-default name auto-mode-alist
+                                                      'string-match)))
+                                   ;; Fallback to case-insensitive match.
+                                   (let ((case-fold-search t))
+                                     (assoc-default name auto-mode-alist
+                                                    'string-match))))
+                         (consp mode)
+                         (cadr mode))
+                    (setq mode (car mode)
+                          name (substring name 0 (match-beginning 0)))
+                  (setq name))
                (when mode
                  (set-auto-mode-0 mode keep-mode-if-same)))))))))