Attempted to fix the package information file.

mattfidler · Dec 7, 2012 · cf04cdd · cf04cdd
1 parent 6f9615c
commit cf04cdd
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 6 deletions.
diff --git a/Readme.org b/Readme.org
@@ -289,6 +289,7 @@ Value: (keymap
 
 * History
 
+ - 07-Dec-2012 ::  Attempted to fix the package information file. (Matthew L. Fidler)
  - 07-Dec-2012 ::  Added tar package that includes the info file (Matthew L. Fidler)
  - 07-Dec-2012 ::  No longer deletes ilg files. (Matthew L. Fidler)
  - 07-Dec-2012 ::  Bug fix for info generation. (Matthew L. Fidler)

diff --git a/org-readme.el b/org-readme.el
@@ -79,6 +79,9 @@
 ;;; Change Log:
 ;; 07-Dec-2012    Matthew L. Fidler  
 ;;    Last-Updated: Wed Aug 22 13:11:26 2012 (-0500) #794 (Matthew L. Fidler)
+;;    Attempted to fix the package information file.
+;; 07-Dec-2012    Matthew L. Fidler  
+;;    Last-Updated: Wed Aug 22 13:11:26 2012 (-0500) #794 (Matthew L. Fidler)
 ;;    Added tar package that includes the info file
 ;; 07-Dec-2012    Matthew L. Fidler  
 ;;    Last-Updated: Wed Aug 22 13:11:26 2012 (-0500) #794 (Matthew L. Fidler)
@@ -1236,12 +1239,12 @@ When COMMENT-ADDED is non-nil, the comment has been added and the syncing should
                             (setq desc (buffer-substring (point) (point-at-eol))))
                           (goto-char (point-min))
                           (if (not (search-forward "@strong{Package-Requires} -- " nil t))
-                              (setq pkg (buffer-substring (point) (point-at-eol)))
-                            (setq pkg "()"))
+                              (setq pkg "()")
+                            (setq pkg (buffer-substring (point) (point-at-eol))))
                           (goto-char (point-min))
                           (if (not (search-forward "@strong{Version} -- " nil t))
-                              (setq ver (buffer-substring (point) (point-at-eol)))
-                            (setq ver "0.0"))
+                              (setq ver "0.0")
+                            (setq ver (buffer-substring (point) (point-at-eol))))
                           (buffer-string)))
               (with-temp-file file
                 (insert cnt)
@@ -1278,8 +1281,8 @@ When COMMENT-ADDED is non-nil, the comment has been added and the syncing should
                       (insert pkg)
                       (insert ")"))
                     (shell-command (concat
-                                    (if (executable-find "bsdtar")
-                                        "bsd" "") "tar -cvf " base ".tar " base "-ver")))))))))
+                                    (if (executable-find "bsdtar") "bsd" "")
+                                    "tar -cvf " base ".tar " base "-" ver)))))))))
 
       (when (and (featurep 'http-post-simple)
                  org-readme-sync-marmalade)

diff --git a/org-readme.info b/org-readme.info
@@ -149,6 +149,9 @@ File: org-readme.info,  Node: History,  Prev: Using org-readme,  Up: Org Readme
 1.3 History
 ===========
 
+   * *07-Dec-2012* - Attempted to fix the package information file.
+     (Matthew L. Fidler)
+
    * *07-Dec-2012* - Added tar package that includes the info file
      (Matthew L. Fidler)