github/melpa
1
0
Fork 0
mirror of https://github.com/correl/melpa.git synced 2024-11-22 19:18:39 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix for files that don't properly end the comments section. It's OK

Browse source 
if it's redundant it goes away in the end.
This commit is contained in:
Donald Ephraim Curtis 2012-01-22 12:19:04 -06:00
parent 91081a34dd
commit 05acbfa931
1 changed files with 11 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
package-build.el
View file

@ -218,17 +218,22 @@
(mapc 'package-build-archive pkgs)
(package-build-dump-archive-contents))
(defun package-build-get-package-info (file-name)
(when (file-exists-p file-name)
(defun package-build-get-package-info (file-path)
(when (file-exists-p file-path)
(ignore-errors
(save-window-excursion
(find-file file-name)
(find-file file-path)
;; next two lines are a hack for some packages that aren't
;; commented properly.
(goto-char (point-max))
(insert (concat "\n;;; " (file-name-nondirectory file-path) " ends here"))
(print (buffer-substring-no-properties (point-min) (point-max)))
(flet ((package-strip-rcs-id (str) "0"))
(package-buffer-info))))))
(defun package-build-get-pkg-file-info (file-name)
(when (file-exists-p file-name)
(let ((pkgfile-info (cdr (package-read-from-file file-name))))
(defun package-build-get-pkg-file-info (file-path)
(when (file-exists-p file-path)
(let ((pkgfile-info (cdr (package-read-from-file file-path))))
(vector
(nth 0 pkgfile-info)
(mapcar