Mercurial > hg > xemacs-beta

diff lisp/packages/apropos.el @ 171:929b76928fce r20-3b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b12
author cvs
date Mon, 13 Aug 2007 09:47:52 +0200
parents 538048ae2ab8
children
line wrap: on
line diff
--- a/lisp/packages/apropos.el	Mon Aug 13 09:47:00 2007 +0200
+++ b/lisp/packages/apropos.el	Mon Aug 13 09:47:52 2007 +0200
@@ -465,8 +465,10 @@
       (setq function (cdr function)))
   ;; XEmacs change from: (setq function (if (byte-code-function-p function)
   (setq function (if (compiled-function-p function)
-		     (if (> (length function) 4)
-			 (aref function 4))
+		     (if (fboundp 'compiled-function-doc-string)
+			 (compiled-function-doc-string function)
+		       (if (> (length function) 4)
+			   (aref function 4)))
 		   (if (eq (car-safe function) 'autoload)
 		       (nth 2 function)
 		     (if (eq (car-safe function) 'lambda)