[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

eshell prompt function error

From: Guido Van Hoecke
Subject: eshell prompt function error
Date: Sat, 20 Oct 2012 15:48:36 +0200


I am not very proficient in lisp, so I would like some advise.

I like my eshell prompt of the form

2012-10-20 15:21 ~/dir/subdir

I use following function gratefully based upon code in

(setq eshell-prompt-function
      (lambda ()
        (let ((prompt (eshell/pwd))
              (now (format-time-string "\n%Y-%m-%d %H:%M " (current-time)))
              (home-dir (expand-file-name "~")))
          ;; get rid of the nasty backslashes
          (while (string-match "\\\\" home-dir)
            (setq home-dir (replace-match "/" nil t home-dir)))

          ;; match home-dir at the begining of the line
          ;; be careful not to match `/users/foo.old' if $HOME is `/users/foo'
          (if (string-match
               (concat "^\\(" home-dir "\\)\\(/.*\\)?$")

          (setq prompt (replace-match
                        (if (and (match-string 2))

        ;; return the prompt
        ;;   -tack on \n$ or \n# depending on user id
        (concat now prompt
                (if (= (user-uid) 0) "\n# " "\n$ ")))))

Works fine 99,99% of the time

I also want to clear my eshell buffer from time to time and copied
(thank you oh original author) following method:

(defun eshell/clear ()
  "04Dec2001 - sailor, to clear the eshell buffer."
  (let ((inhibit-read-only t))

Can somebody explain why my prompt function does not work anymore after
having issued the clear command?

It prints following text in the eshell buffer and no longer shows a

Args out of range: 13, 38

When entering a command in this promptless buffer, it does work and
shows the prompt after executing the command.

I'd like to know what causes this and how to avoid it.

Any one?

Thanks in advance,


La-dee-dee, la-dee-dah. ... and go2 places!

reply via email to

[Prev in Thread] Current Thread [Next in Thread]