auctex-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[AUCTeX-diffs] Changes to auctex/preview/prv-install.el


From: Ralf Angeli
Subject: [AUCTeX-diffs] Changes to auctex/preview/prv-install.el
Date: Wed, 22 Mar 2006 09:56:28 +0000

Index: auctex/preview/prv-install.el
diff -u auctex/preview/prv-install.el:1.12 auctex/preview/prv-install.el:1.13
--- auctex/preview/prv-install.el:1.12  Fri Jun 24 08:14:05 2005
+++ auctex/preview/prv-install.el       Wed Mar 22 09:56:27 2006
@@ -51,7 +51,7 @@
         (package-name (pop command-line-args-left))
         (release-version (eval (read (pop command-line-args-left))))
         (author-version (eval (read (pop command-line-args-left))))
-        (append-file (pop command-line-args-left))
+        append-file
          (lisp-dir (expand-file-name (format "lisp/%s/" package-name)
                                     package-dir))
          (metadata (expand-file-name "_pkg.el" lisp-dir))
@@ -103,11 +103,12 @@
               (update-autoload-files (list lisp-dir) "auctex"))
              (t (error "Failed to generate autoloads.")))
       (fset 'message si:message))
-    (when (file-exists-p generated-autoload-file)
-      (with-temp-buffer (insert-file append-file)
-                       (append-to-file (point-min) (point-max)
-                                       generated-autoload-file))
-      (byte-compile-file generated-autoload-file))))
+    (while (setq append-file (pop command-line-args-left))
+      (when (file-exists-p generated-autoload-file)
+       (with-temp-buffer (insert-file append-file)
+                         (append-to-file (point-min) (point-max)
+                                         generated-autoload-file))))
+    (byte-compile-file generated-autoload-file)))
 
 
 ;;; prv-install.el ends here




reply via email to

[Prev in Thread] Current Thread [Next in Thread]