From: Romain Francoise <romain@orebokech.com>
Date: Sat, 29 Oct 2005 14:12:08 +0000 (+0000)
Subject: (describe-simplify-lib-file-name): Fix regexp.
X-Git-Tag: emacs-pretest-22.0.90~6217
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1cf586a447d772dab3aff337b983f6cb4cc28b0d;p=emacs.git

(describe-simplify-lib-file-name): Fix regexp.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fbb9692b6b2..2dcc50d873a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2005-10-29  Romain Francoise  <romain@orebokech.com>
+
+	* help-fns.el (describe-simplify-lib-file-name): Fix regexp.
+
 2005-10-29  Ken Manheimer  <ken.manheimer@gmail.com>
 
 	* pgg-gpg.el
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index cffe313fd6c..88f32003867 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -291,7 +291,7 @@ face (according to `face-differs-from-default-p')."
 	;; Now convert that back to a file name and see if we get
 	;; the original one.  If so, they are equivalent.
 	(if (equal file (locate-file libname load-path '("")))
-	    (if (string-match "[.]elc?\\'" libname)
+	    (if (string-match "[.]elc\\'" libname)
 		(substring libname 0 -1)
 	      libname)
 	  file))))