]> code.delx.au - gnu-emacs/blobdiff - lisp/eshell/em-prompt.el
Update copyright year to 2015
[gnu-emacs] / lisp / eshell / em-prompt.el
index 18731121c4e679c7add950ee5460d9e63ffafc3d..69c5bd62259dd17f94e50091be970b80bbea553b 100644 (file)
@@ -1,6 +1,6 @@
-;;; em-prompt.el --- command prompts
+;;; em-prompt.el --- command prompts  -*- lexical-binding:t -*-
 
-;; Copyright (C) 1999-2013 Free Software Foundation, Inc.
+;; Copyright (C) 1999-2015 Free Software Foundation, Inc.
 
 ;; Author: John Wiegley <johnw@gnu.org>
 
@@ -45,6 +45,8 @@ as is common with most shells."
   :type 'hook
   :group 'eshell-prompt)
 
+(autoload 'eshell/pwd "em-dirs")
+
 (defcustom eshell-prompt-function
   (function
    (lambda ()
@@ -122,9 +124,9 @@ arriving, or after."
       (and eshell-highlight-prompt
           (add-text-properties 0 (length prompt)
                                '(read-only t
-                                 face eshell-prompt
-                                 front-sticky (face read-only)
-                                 rear-nonsticky (face read-only))
+                                 font-lock-face eshell-prompt
+                                 front-sticky (font-lock-face read-only)
+                                 rear-nonsticky (font-lock-face read-only))
                                prompt))
       (eshell-interactive-print prompt)))
   (run-hooks 'eshell-after-prompt-hook))