From: Glenn Morris <rgm@gnu.org>
Date: Mon, 24 Sep 2012 18:22:10 +0000 (-0400)
Subject: * eshell/esh-cmd.el (eshell-find-alias-function): Tighten up file-name regexp.
X-Git-Url: http://git.hcoop.net/bpt/emacs.git/commitdiff_plain/289c24bdfd92c06a726ebbb22e5a3c781227bd01

* eshell/esh-cmd.el (eshell-find-alias-function): Tighten up file-name regexp.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c1f205eeaf..270d548b71 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-09-24  Glenn Morris  <rgm@gnu.org>
+
+	* eshell/esh-cmd.el (eshell-find-alias-function):
+	Tighten up file-name regexp.  (Bug#12499)
+
 2012-09-24  Fabián Ezequiel Gallina  <fgallina@cuca>
 
 	Enhancements for triple-quote string syntax.
diff --git a/lisp/eshell/esh-cmd.el b/lisp/eshell/esh-cmd.el
index 515a23f81d..921f08e36f 100644
--- a/lisp/eshell/esh-cmd.el
+++ b/lisp/eshell/esh-cmd.el
@@ -1218,7 +1218,8 @@ COMMAND may result in an alias being executed, or a plain command."
     ;; If the function exists, but is defined in an eshell module
     ;; that's not currently enabled, don't report it as found
     (if (and file
-	     (string-match "\\(em\\|esh\\)-\\(.*\\)\\(\\.el\\)?\\'" file))
+	     (string-match "\\(em\\|esh\\)-\\([[:alnum:]]+\\)\\(\\.elc?\\)?\\'"
+			   file))
 	(let ((module-sym
 	       (intern (file-name-base (concat "eshell-" (match-string 2 file))))))
 	  (if (and (functionp sym)