howm

gistfile1.el

(defvar *howm-truname-cache* nil)

(defun howm-file-truename (filename)
  (or
   (cdr (assoc filename *howm-truname-cache*))
   (let ((f (file-truename (expand-file-name filename))))
	 (add-to-list '*howm-truname-cache* (cons filename f))
	 f)))
	
(defun howm-normalize-file-name (filename)
  (let ((f (howm-file-truename (expand-file-name filename))))
    ;; for meadow
    (if (string-match "^[A-Z]:" f)
        (let ((drive (substring f 0 1))
              (rest (substring f 1)))
          (concat (downcase drive) rest))
      f)))