Mercurial > hg > xemacs-beta

comparison lisp/cus-dep.el @ 412:697ef44129c6 r21-2-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents de805c49cfc1
children
comparison
equal deleted inserted replaced
411:12e008d41344 412:697ef44129c6
2 ;; 2 ;;
3 ;; Copyright (C) 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1997 Free Software Foundation, Inc.
4 ;; 4 ;;
5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>, then 5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>, then
6 ;; Richard Stallman <rms@gnu.ai.mit.edu>, then 6 ;; Richard Stallman <rms@gnu.ai.mit.edu>, then
7 ;; Hrvoje Niksic <hniksic@xemacs.org> (rewritten for XEmacs) 7 ;; Hrvoje Niksic <hniksic@srce.hr> (rewritten for XEmacs)
8 ;; Maintainer: Hrvoje Niksic <hniksic@xemacs.org> 8 ;; Maintainer: Hrvoje Niksic <hniksic@srce.hr>
9 ;; Keywords: internal 9 ;; Keywords: internal
10 10
11 ;; This file is part of XEmacs. 11 ;; This file is part of XEmacs.
12 12
13 ;; XEmacs is free software; you can redistribute it and/or modify 13 ;; XEmacs is free software; you can redistribute it and/or modify
156 (t 156 (t
157 (princ (format "Generating %s...\n" cusload-base-file)) 157 (princ (format "Generating %s...\n" cusload-base-file))
158 (with-temp-file cusload-file 158 (with-temp-file cusload-file
159 (insert ";;; " cusload-base-file 159 (insert ";;; " cusload-base-file
160 " --- automatically extracted custom dependencies\n" 160 " --- automatically extracted custom dependencies\n"
161 "\n;;; Code:\n\n" 161 "\n;;; Code:\n\n")
162 "(autoload 'custom-add-loads \"cus-load\")\n\n")
163 (mapatoms 162 (mapatoms
164 (lambda (sym) 163 (lambda (sym)
165 (let ((members (get sym 'custom-group)) 164 (let ((members (get sym 'custom-group))
166 item where found) 165 item where found)
167 (when members 166 (when members