(rng-autoload-modules, rng-update-autoloads)

(rng-compile-modules, rng-byte-compile-load, rng-write-version): Remove.

2 files changed, 3 insertions, 68 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 553c188cbff..0c0db1539a4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,8 @@
 2007-12-19  Jason Rumney  <jasonr@gnu.org>
 
-        * nxml/rng-maint.el (rng-update-autoloads, rng-byte-compile-load)
-        (rng-format-manual, rng-write-version): Do not autoload.
+        * nxml/rng-maint.el (rng-format-manual): Do not autoload.
+        (rng-autoload-modules, rng-update-autoloads, rng-compile-modules)
+        (rng-byte-compile-load, rng-write-version): Remove.
 
         * nxml/rng-loc.el (rng-schema-locating-files-default)
         (rng-schema-locating-file-schema-file): Use files in etc/schemas.
diff --git a/lisp/nxml/rng-maint.el b/lisp/nxml/rng-maint.el
index fa72dcf46bc..d535c45691a 100644
--- a/lisp/nxml/rng-maint.el
+++ b/lisp/nxml/rng-maint.el
@@ -32,64 +32,6 @@
 
 (defvar rng-dir (file-name-directory load-file-name))
 
-(defconst rng-autoload-modules
-  '(xmltok
-    nxml-mode
-    nxml-uchnm
-    nxml-glyph
-    rng-cmpct
-    rng-maint
-    rng-valid
-    rng-xsd
-    rng-nxml))
-
-(defun rng-update-autoloads ()
-  "Update the autoloads in rng-auto.el."
-  (interactive)
-  (let* ((generated-autoload-file (expand-file-name "rng-auto.el"
-                                                    rng-dir)))
-    (mapcar (lambda (x)
-              (update-file-autoloads
-               (expand-file-name (concat (symbol-name x) ".el") rng-dir)))
-            rng-autoload-modules)))
-
-
-(defconst rng-compile-modules
-  '(xmltok
-    nxml-util
-    nxml-enc
-    nxml-glyph
-    nxml-rap
-    nxml-outln
-    nxml-mode
-    nxml-uchnm
-    nxml-ns
-    nxml-parse
-    nxml-maint
-    xsd-regexp
-    rng-util
-    rng-dt
-    rng-xsd
-    rng-uri
-    rng-pttrn
-    rng-cmpct
-    rng-match
-    rng-parse
-    rng-loc
-    rng-valid
-    rng-nxml
-    rng-maint))
-
-(defun rng-byte-compile-load ()
-  "Byte-compile and load all of the RELAX NG library in an appropriate order."
-  (interactive)
-  (mapcar (lambda (x)
-            (byte-compile-file (expand-file-name (concat (symbol-name x) ".el")
-                                                 rng-dir)
-                               t))
-          rng-compile-modules))
-
-
 ;;; Conversion from XML to texinfo.
 ;; This is all a hack and is just enough to make the conversion work.
 ;; It's not intended for public use.
@@ -285,14 +227,6 @@
           (insert ?\n))
       (insert "\n\n"))))
 
-;;; Versioning
-
-(defun rng-write-version ()
-  (find-file "VERSION")
-  (erase-buffer)
-  (insert nxml-version "\n")
-  (save-buffer))
-
 ;;; Timing
 
 (defun rng-time-to-float (time)