Re: tilde in dired default-directory but not elsewhere

[Michael Heerdegen]

Emanuel Berg <embe8573@student.uu.se> writes:

> (setq    column-number-mode  nil)
> (setq    line-number-mode    nil)
> (defvar  show-modified       t)
> (defvar  show-path           t)
> (defvar  show-modes          nil)
>
> (setq-default mode-line-format
>    `(" "
>      (show-modified mode-line-modified)
>      " "
>      (show-path (:eval (abbreviate-file-name (buffer-file-name)) ))
>      " "
>      (show-modes mode-line-modes)
>      (line-number-mode   "[%l] ")
>      (column-number-mode "{%c}")
>      ))

Looks like a reasonable approach.  Be careful with errors from :eval
expressions, e.g.

  (:eval (abbreviate-file-name (buffer-file-name)) )

will give you annoying error messages when redisplay is performed when
(buffer-file-name) yields nil.  Of course you can ensure that show-path
is always nil in this case ... but

    (:eval (and buffer-file-name (abbreviate-file-name buffer-file-name)))

is probably safer.


Michael.