dot dot is dead

(defun cindys-filename-hook()
  (if (buffer-file-name)
      (let (mlname name prname)
        (string-match "\\(.*/\\)\\([^/]+$\\)" (buffer-file-name))
        (setq name   (match-string 2 (buffer-file-name)))
        (setq prname (match-string 1 (buffer-file-name)))
        (if (string= name (buffer-name))
            (setq mlname (format "[%s]" (buffer-file-name)))
            (setq mlname (format "[%s%s]" prname (buffer-name))))
        (if (> (length mlname) 25)
            (setq mlname
                  (concat "[..." (substring mlname (- (length mlname) 22)))))
        (setq mode-line-buffer-identification (list mlname)))))

(add-hook 'find-file-hooks 'cindys-filename-hook)

; Sun Micro internship, Sunnyvale, CA 1996
; changes your Emacs modeline to show the trailing directory path