git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@4006 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2001-04-22 01:20:05 +00:00
parent c546115701
commit b9621b5c66

View File

@ -361,9 +361,9 @@
mnemonic mnemonic
(cons fq-method-sym (list commodity tz))))) (cons fq-method-sym (list commodity tz)))))
(let ((cmd-list (map account->fq-cmd account-list)) (let ((cmd-list (delete #f (map account->fq-cmd account-list)))
(cmd-hash (make-hash-table 31))) (cmd-hash (make-hash-table 31)))
;; Now collect symbols going to the same backend. ;; Now collect symbols going to the same backend.
(item-list->hash! cmd-list cmd-hash car cdr hashq-ref hashq-set! #t) (item-list->hash! cmd-list cmd-hash car cdr hashq-ref hashq-set! #t)
;; Now translate to just what finance-quote-helper expects. ;; Now translate to just what finance-quote-helper expects.