Choose whether to load *.el or *.elc by modification time.

[Davin Pearson]

The following hack uses the time of last modification to
choose which of *.el or *.elc to load, choosing the most
recently edited file, which is probably what the user wants.

(defadvice load-file (around dlisp activate)
  (when (string-match "\\.\\(el\\|elc\\)$" file)
    (setq name-sans-extension (substring file 0 (match-beginning 0)))
    (setq name-plus-el        (concat name-sans-extension ".el" ))
    (setq name-plus-elc       (concat name-sans-extension ".elc"))
    (setq date-el  (nth 5 (file-attributes name-plus-el )))
    (setq date-elc (nth 5 (file-attributes name-plus-elc)))
    (setq time-el  (+ (* 65536.0 (or (car date-el ) 1)) (or (cadr date-el ) 0)))
    (setq time-elc (+ (* 65536.0 (or (car date-elc) 1)) (or (cadr date-elc) 0)))
    (if (> time-el time-elc)
        (progn
          (message "loaded file=%s" name-plus-el)
          (setq file name-plus-el)
          ad-do-it)
      (message "loaded file=%s" name-plus-elc)
      (setq file name-plus-elc)
      ad-do-it)))