# HG changeset patch
# User Romain Francoise <romain@orebokech.com>
# Date 1130595128 0
# Node ID 7ca34a6ac6c65d333a0dc72782ec85d8e601e933
# Parent  8f27de5a8c195c7de1bb5d5e48a9e5f83879dd2a
(describe-simplify-lib-file-name): Fix regexp.

diff -r 8f27de5a8c19 -r 7ca34a6ac6c6 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Oct 29 11:40:18 2005 +0000
+++ b/lisp/ChangeLog	Sat Oct 29 14:12:08 2005 +0000
@@ -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 -r 8f27de5a8c19 -r 7ca34a6ac6c6 lisp/help-fns.el
--- a/lisp/help-fns.el	Sat Oct 29 11:40:18 2005 +0000
+++ b/lisp/help-fns.el	Sat Oct 29 14:12:08 2005 +0000
@@ -291,7 +291,7 @@
 	;; 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))))