comparison lisp/cus-dep.el @ 396:6719134a07c2 r21-2-13

Import from CVS: tag r21-2-13
author cvs
date Mon, 13 Aug 2007 11:12:05 +0200
parents 064ab7fed2e0
children 74fd4e045ea6
comparison
equal deleted inserted replaced
395:de2c2a7459d2 396:6719134a07c2
171 (unless (or (null where) 171 (unless (or (null where)
172 (member where found)) 172 (member where found))
173 (if found 173 (if found
174 (insert " ") 174 (insert " ")
175 (insert "(custom-add-loads '" 175 (insert "(custom-add-loads '"
176 (symbol-name sym) " '(")) 176 (prin1-to-string sym) " '("))
177 (prin1 where (current-buffer)) 177 (prin1 where (current-buffer))
178 (push where found))) 178 (push where found)))
179 (when found 179 (when found
180 (insert "))\n")))))) 180 (insert "))\n"))))))
181 (insert "\n;;; custom-load.el ends here\n")) 181 (insert "\n;;; custom-load.el ends here\n"))