Added some missing autoloads for the new ledger-mode

lisp/ldg-mode.el

@@ -22,6 +22,8 @@
 ;;;###autoload
 (define-derived-mode ledger-mode text-mode "Ledger"
   "A mode for editing ledger data files."
+  (ledger-post-setup)
+
   (set (make-local-variable 'comment-start) " ; ")
   (set (make-local-variable 'comment-end) "")
   (set (make-local-variable 'indent-tabs-mode) nil)

lisp/ldg-new.el

@@ -34,6 +34,10 @@
 
 (require 'ldg-post)
 
+(autoload #'ledger-mode "ldg-mode" nil t)
+
+(autoload #'ledger-fully-complete-entry "ldg-complete" nil t)
+
 (autoload #'ledger-texi-update-test "ldg-texi" nil t)
 (autoload #'ledger-texi-update-examples "ldg-texi" nil t)
 

lisp/ldg-post.el

@@ -83,6 +83,13 @@ to choose from."
 		(delete-char 1)))))))
     (goto-char pos)))
 
+(defun ledger-next-amount (&optional end)
+  (when (re-search-forward "\\(  \\|\t\\| \t\\)[ \t]*-?\\([A-Z$]+ *\\)?\\(-?[0-9,]+?\\)\\(.[0-9]+\\)?\\( *[A-Z$]+\\)?\\([ \t]*@@?[^\n;]+?\\)?\\([ \t]+;.+?\\)?$" (marker-position end) t)
+    (goto-char (match-beginning 0))
+    (skip-syntax-forward " ")
+    (- (or (match-end 4)
+	   (match-end 3)) (point))))
+
 (defun ledger-align-amounts (&optional column)
   "Align amounts in the current region.
 This is done so that the last digit falls in COLUMN, which defaults to 52."
@@ -164,6 +171,4 @@ This is done so that the last digit falls in COLUMN, which defaults to 52."
       (add-hook 'after-change-functions 'ledger-post-maybe-align t t))
   (add-hook 'after-save-hook #'(lambda () (setq ledger-post-current-list nil))))
 
-(add-hook 'ledger-mode-hook 'ledger-post-setup)
-
 (provide 'ldg-post)

lisp/ldg-regex.el

@@ -96,7 +96,7 @@
 
     (cons 'progn defs)))
 
-(put 'ledger-define-regexp 'lisp-indent-function 2)
+(put 'ledger-define-regexp 'lisp-indent-function 1)
 
 (ledger-define-regexp date
   (let ((sep '(or ?- (any ?. ?/))))	; can't do (any ?- ?. ?/) due to bug

lisp/ldg-register.el

@@ -57,8 +57,7 @@
       (let ((pos (point))
 	    (inhibit-read-only t))
 	(erase-buffer)
-	(ledger-register-render
-	 buf (apply #'ledger-exec-read buf args))
+	(ledger-register-render buf (apply #'ledger-exec-read buf args))
 	(goto-char pos))
       (set-buffer-modified-p nil)
       (toggle-read-only t)