* eshell/em-hist.el:

* eshell/em-dirs.el (eshell-complete-user-reference): Declare
pcomplete functions and variables to avoid compiler warnings.

* eshell/em-script.el (eshell-login-script, eshell-rc-script):
* eshell/em-dirs.el (eshell-last-dir-ring-file-name):
* eshell/em-alias.el (eshell-aliases-file):
* eshell/em-hist.el (eshell-history-file-name): Use
expand-file-name instead of concat to make file names (Bug#4308).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index da9f156ab2261dbd200f7578fe39b035087f1329..3e727a115eda01df2c87655b24e05cb802e39155 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,17 @@
+2009-09-13  Chong Yidong  <cyd@stupidchicken.com>
+
+       * eshell/em-hist.el:
+       * eshell/em-dirs.el (eshell-complete-user-reference): Declare
+       pcomplete functions and variables to avoid compiler warnings.
+
+2009-09-13  Leo  <sdl.web@gmail.com>  (tiny change)
+
+       * eshell/em-script.el (eshell-login-script, eshell-rc-script):
+       * eshell/em-dirs.el (eshell-last-dir-ring-file-name):
+       * eshell/em-alias.el (eshell-aliases-file):
+       * eshell/em-hist.el (eshell-history-file-name): Use
+       expand-file-name instead of concat to make file names (Bug#4308).
+
 2009-09-13  Glenn Morris  <rgm@gnu.org>
 
        * ediff-merg.el (ediff-do-merge):

diff --git a/lisp/eshell/em-alias.el b/lisp/eshell/em-alias.el
index f0b026175f1dddbdfe969fbe81203a6ec8a737f9..7e1a0a82258622ad6b4cc53a43e30d644c4f10ac 100644 (file)
--- a/lisp/eshell/em-alias.el
+++ b/lisp/eshell/em-alias.el
@@ -102,7 +102,7 @@
   ;; :link '(info-link "(eshell)Command aliases")
   :group 'eshell-module)
 
-(defcustom eshell-aliases-file (concat eshell-directory-name "alias")
+(defcustom eshell-aliases-file (expand-file-name "alias" eshell-directory-name)
   "*The file in which aliases are kept.
 Whenever an alias is defined by the user, using the `alias' command,
 it will be written to this file.  Thus, alias definitions (and

diff --git a/lisp/eshell/em-dirs.el b/lisp/eshell/em-dirs.el
index fa1af37f80837a9ea6d1d89518577f86757323d8..cc95d81021329bed21dc834698b238c29d1fa17c 100644 (file)
--- a/lisp/eshell/em-dirs.el
+++ b/lisp/eshell/em-dirs.el
@@ -138,7 +138,7 @@ This is effective only if directory tracking is enabled."
   :group 'eshell-dirs)
 
 (defcustom eshell-last-dir-ring-file-name
-  (concat eshell-directory-name "lastdir")
+  (expand-file-name "lastdir" eshell-directory-name)
   "*If non-nil, name of the file to read/write the last-dir-ring.
 See also `eshell-read-last-dir-ring' and `eshell-write-last-dir-ring'.
 If it is nil, the last-dir-ring will not be written to disk."
@@ -276,6 +276,11 @@ Thus, this does not include the current directory.")
           (path (eshell-find-previous-directory regexp)))
       (concat (or path letter) "/"))))
 
+(defvar pcomplete-stub)
+(defvar pcomplete-last-completion-raw)
+(declare-function pcomplete-actual-arg "pcomplete")
+(declare-function pcomplete-uniqify-list "pcomplete")
+
 (defun eshell-complete-user-reference ()
   "If there is a user reference, complete it."
   (let ((arg (pcomplete-actual-arg)))

diff --git a/lisp/eshell/em-hist.el b/lisp/eshell/em-hist.el
index 844a736c65c53b95da61f7a7af2a7c318194f033..3ca3dc77c0ec61aefe2209149ba697f284685878 100644 (file)
--- a/lisp/eshell/em-hist.el
+++ b/lisp/eshell/em-hist.el
@@ -86,7 +86,7 @@
   :group 'eshell-hist)
 
 (defcustom eshell-history-file-name
-  (concat eshell-directory-name "history")
+  (expand-file-name "history" eshell-directory-name)
   "*If non-nil, name of the file to read/write input history.
 See also `eshell-read-history' and `eshell-write-history'.
 If it is nil, Eshell will use the value of HISTFILE."
@@ -583,6 +583,10 @@ See also `eshell-read-history'."
                  posb (cdr posb)
                  pose (cdr pose))))))))
 
+(defvar pcomplete-stub)
+(defvar pcomplete-last-completion-raw)
+(declare-function pcomplete-actual-arg "pcomplete")
+
 (defun eshell-complete-history-reference ()
   "Complete a history reference, by completing the event designator."
   (let ((arg (pcomplete-actual-arg)))

diff --git a/lisp/eshell/em-script.el b/lisp/eshell/em-script.el
index fbe10278c370537fe326f47b6be8c62facecc1a7..2d063ea4c2c1023eba9f6225f207ee842ab88ad1 100644 (file)
--- a/lisp/eshell/em-script.el
+++ b/lisp/eshell/em-script.el
@@ -40,14 +40,14 @@ commands, as a script file."
   :type 'hook
   :group 'eshell-script)
 
-(defcustom eshell-login-script (concat eshell-directory-name "login")
+(defcustom eshell-login-script (expand-file-name "login" eshell-directory-name)
   "*If non-nil, a file to invoke when starting up Eshell interactively.
 This file should be a file containing Eshell commands, where comment
 lines begin with '#'."
   :type 'file
   :group 'eshell-script)
 
-(defcustom eshell-rc-script (concat eshell-directory-name "profile")
+(defcustom eshell-rc-script (expand-file-name "profile" eshell-directory-name)
   "*If non-nil, a file to invoke whenever Eshell is started.
 This includes when running `eshell-command'."
   :type 'file