Mercurial > hg > xemacs-beta

diff lisp/help.el @ 5017:d6368048cd8c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
remove bogus usage of annotations from help.el -------------------- ChangeLog entries follow: -------------------- lisp/ChangeLog addition: 2010-02-08 Ben Wing <ben@xemacs.org> * help.el (describe-function-1): Don't use compiled-function-annotation to retrieve the file name for a function since it doesn't provide this info and load-history already does provide it.
author Ben Wing <ben@xemacs.org>
date Mon, 08 Feb 2010 21:35:50 -0600
parents 755ae5b97edb
children b0f4adffca7d
line wrap: on
line diff
--- a/lisp/help.el	Mon Feb 08 21:28:57 2010 -0600
+++ b/lisp/help.el	Mon Feb 08 21:35:50 2010 -0600
@@ -1385,15 +1385,8 @@
 			   (symbol-name def)))
 		(format "an alias for `%s', " (symbol-name def)))))
       (setq def (symbol-function def)))
-    (if (and (fboundp 'compiled-function-annotation)
-	     (compiled-function-p def))
-	(setq file-name (declare-fboundp (compiled-function-annotation def))))
     (if (eq 'macro (car-safe def))
 	(setq fndef (cdr def)
-	      file-name (and (compiled-function-p (cdr def))
-			     (fboundp 'compiled-function-annotation)
-			     (declare-fboundp
-			      (compiled-function-annotation (cdr def))))
 	      macrop t)
       (setq fndef def))
     (if aliases (princ aliases))