Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
170:98a42ee61975 171:929b76928fce
463 (symbol-function function)))) 463 (symbol-function function))))
464 (if (eq (car-safe function) 'macro) 464 (if (eq (car-safe function) 'macro)
465 (setq function (cdr function))) 465 (setq function (cdr function)))
466 ;; XEmacs change from: (setq function (if (byte-code-function-p function) 466 ;; XEmacs change from: (setq function (if (byte-code-function-p function)
467 (setq function (if (compiled-function-p function) 467 (setq function (if (compiled-function-p function)
468 (if (> (length function) 4) 468 (if (fboundp 'compiled-function-doc-string)
469 (aref function 4)) 469 (compiled-function-doc-string function)
470 (if (> (length function) 4)
471 (aref function 4)))
470 (if (eq (car-safe function) 'autoload) 472 (if (eq (car-safe function) 'autoload)
471 (nth 2 function) 473 (nth 2 function)
472 (if (eq (car-safe function) 'lambda) 474 (if (eq (car-safe function) 'lambda)
473 (if (stringp (nth 2 function)) 475 (if (stringp (nth 2 function))
474 (nth 2 function) 476 (nth 2 function)