                     ;; making the list. It makes a mode line
                     ;; construct which is just a string.
                     (system-name)
-                    ":"
-                    'default-directory
+                    ;;":"
+                    ;;'default-directory
                     "    "
                     'global-mode-string
                     "    "

 '(perl-tab-to-comment t)
 '(query-replace-highlight t)
 '(require-final-newline t)
 '(safe-local-variable-values (quote ((auto-recompile . t) (folding-mode . t) (outline-minor-mode . t) (sh-indent-comment . t) auto-recompile outline-minor-mode sh-indent-comment)))
 '(search-highlight t)
 '(sh-indent-comment t)

    (tool-bar-lines . 0)
    (menu-bar-lines . 1)
    (width . 80)
    (height . 42)
;    (font . "Monaco")
    )
)
