Mercurial > hg > xemacs-beta

comparison lisp/help.el @ 5027:22179cd0fe15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Wed, 10 Feb 2010 07:25:19 -0600
parents d6368048cd8c
children b0f4adffca7d
comparison
equal deleted inserted replaced
5026:46cf825f6158 5027:22179cd0fe15
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