50 |
(let* ((package-dir (pop command-line-args-left)) |
(let* ((package-dir (pop command-line-args-left)) |
51 |
(package-name (pop command-line-args-left)) |
(package-name (pop command-line-args-left)) |
52 |
(release-version (eval (read (pop command-line-args-left)))) |
(release-version (eval (read (pop command-line-args-left)))) |
53 |
|
(author-version (eval (read (pop command-line-args-left)))) |
54 |
(append-file (pop command-line-args-left)) |
(append-file (pop command-line-args-left)) |
55 |
(lisp-dir (expand-file-name (format "lisp/%s/" package-name) |
(lisp-dir (expand-file-name (format "lisp/%s/" package-name) |
56 |
package-dir)) |
package-dir)) |
78 |
"(package-provide '" package-name "\n" |
"(package-provide '" package-name "\n" |
79 |
" :version " |
" :version " |
80 |
release-version "\n" |
release-version "\n" |
81 |
|
" :author-version " |
82 |
|
"\"" author-version "\"\n" |
83 |
" :type 'regular)\n"))) |
" :type 'regular)\n"))) |
84 |
; Delete and regenerate the auto-autoloads file. |
; Delete and regenerate the auto-autoloads file. |
85 |
(message "Updating autoloads for the directory %s..." lisp-dir) |
(message "Updating autoloads for the directory %s..." lisp-dir) |