Mercurial > hg > xemacs-beta

comparison lisp/utils/loadhist.el @ 80:1ce6082ce73f r20-0b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b90
author cvs
date Mon, 13 Aug 2007 09:06:37 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
79:5b0a5bbffab6 80:1ce6082ce73f
32 ;;; Code: 32 ;;; Code:
33 33
34 (defun symbol-file (sym) 34 (defun symbol-file (sym)
35 "Return the input source from which SYM was loaded. 35 "Return the input source from which SYM was loaded.
36 This is a file name, or nil if the source was a buffer with no associated file." 36 This is a file name, or nil if the source was a buffer with no associated file."
37 (interactive "S") ; XEmacs
37 (catch 'foundit 38 (catch 'foundit
38 (mapcar 39 (mapcar
39 (function (lambda (x) (if (memq sym (cdr x)) (throw 'foundit (car x))))) 40 (function (lambda (x) (if (memq sym (cdr x)) (throw 'foundit (car x)))))
40 load-history) 41 load-history)
41 nil)) 42 nil))