Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
5016:2ade80e8c640 5017:d6368048cd8c
1383 (format 1383 (format
1384 "\n which is an alias for `%s', " 1384 "\n which is an alias for `%s', "
1385 (symbol-name def))) 1385 (symbol-name def)))
1386 (format "an alias for `%s', " (symbol-name def))))) 1386 (format "an alias for `%s', " (symbol-name def)))))
1387 (setq def (symbol-function def))) 1387 (setq def (symbol-function def)))
1388 (if (and (fboundp 'compiled-function-annotation)
1389 (compiled-function-p def))
1390 (setq file-name (declare-fboundp (compiled-function-annotation def))))
1391 (if (eq 'macro (car-safe def)) 1388 (if (eq 'macro (car-safe def))
1392 (setq fndef (cdr def) 1389 (setq fndef (cdr def)
1393 file-name (and (compiled-function-p (cdr def))
1394 (fboundp 'compiled-function-annotation)
1395 (declare-fboundp
1396 (compiled-function-annotation (cdr def))))
1397 macrop t) 1390 macrop t)
1398 (setq fndef def)) 1391 (setq fndef def))
1399 (if aliases (princ aliases)) 1392 (if aliases (princ aliases))
1400 (let ((int #'(lambda (string an-p macro-p) 1393 (let ((int #'(lambda (string an-p macro-p)
1401 (princ (format 1394 (princ (format