(timezone-parse-date): Match forms 1 and 2 first.

[gnu-emacs] / lisp / cus-dep.el

diff --git a/lisp/cus-dep.el b/lisp/cus-dep.el
index ac156cad18d4345351d6b60505a1c6b917ebea2b..67d19055b780fc49ac5986084c34c2c2e789a31f 100644 (file)
--- a/lisp/cus-dep.el
+++ b/lisp/cus-dep.el
@@ -5,6 +5,23 @@
 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
 ;; Keywords: internal
 
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
 ;;; Code:
 
 (require 'cl)
@@ -58,11 +75,16 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies"
                          (insert " ")
                        (insert "(put '" (symbol-name symbol) 
                                " 'custom-loads '("))
-                     (insert (prin1-to-string where))
+                     (prin1 where (current-buffer))
                      (push where found)))
-                 (insert "))\n")))))
-  (insert "\n;;; cus-load.el ends here\n")
+                 (when found
+                   (insert "))\n"))))))
+  (insert "\
+
+\(provide 'cus-load)
+
+;;; cus-load.el ends here\n")
   (save-buffer)
-  (message "Generating cus-load.el..."))
+  (message "Generating cus-load.el...done"))
 
 ;;; cus-dep.el ends here