Mercurial > emacs
comparison lisp/emacs-lisp/find-func.el @ 90228:fa0da9b57058
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-82
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 542-553)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 116-121)
- Merge from emacs--cvs-trunk--0
- Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Mon, 19 Sep 2005 10:20:33 +0000 |
parents | 2d92f5c9d6ae c45ae2a74f0f |
children | 0ca0d9181b5e |
comparison
equal
deleted
inserted
replaced
90227:10fe5fadaf89 | 90228:fa0da9b57058 |
---|---|
258 (setq aliases (format "`%s' an alias for `%s'" | 258 (setq aliases (format "`%s' an alias for `%s'" |
259 function (symbol-name def))))) | 259 function (symbol-name def))))) |
260 (setq function (symbol-function function) | 260 (setq function (symbol-function function) |
261 def (symbol-function function))) | 261 def (symbol-function function))) |
262 (if aliases | 262 (if aliases |
263 (message aliases)) | 263 (message "%s" aliases)) |
264 (let ((library | 264 (let ((library |
265 (cond ((eq (car-safe def) 'autoload) | 265 (cond ((eq (car-safe def) 'autoload) |
266 (nth 1 def)) | 266 (nth 1 def)) |
267 ((subrp def) | 267 ((subrp def) |
268 (help-C-file-name def 'subr)) | 268 (help-C-file-name def 'subr)) |