* lisp/files.el (file-name-base): New convenience function.

* lisp/autoinsert.el, lisp/cus-dep.el, lisp/doc-view.el, lisp/image-dired.el,
* lisp/woman.el, lisp/eshell/esh-cmd.el, lisp/progmodes/ada-xref.el,
* lisp/progmodes/cc-defs.el, lisp/progmodes/cperl-mode.el,
* lisp/progmodes/flymake.el, lisp/progmodes/gud.el, lisp/progmodes/idlwave.el,
* lisp/textmodes/ispell.el, lisp/textmodes/reftex-ref.el,
* lisp/textmodes/tex-mode.el: Use it.
Did not touch cedet and org because they are maintained elsewhere.

1 files changed, 1 insertions, 3 deletions

diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el
index 850cecbc0a5..872d1cdd53e 100644
--- a/lisp/eshell/esh-cmd.el
+++ b/lisp/eshell/esh-cmd.el
@@ -1220,9 +1220,7 @@ COMMAND may result in an alias being executed, or a plain command."
     (if (and file
              (string-match "\\(em\\|esh\\)-\\(.*\\)\\(\\.el\\)?\\'" file))
         (let ((module-sym
-               (intern (file-name-sans-extension
-                        (file-name-nondirectory
-                         (concat "eshell-" (match-string 2 file)))))))
+               (intern (file-name-base (concat "eshell-" (match-string 2 file))))))
           (if (and (functionp sym)
                    (or (null module-sym)
                        (eshell-using-module module-sym)