Remove --devel option, which aparently doesn't do anything.

Also remove now unused guile portion of --add-price-quote option.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@12947 57a11ea4-9604-0410-9ed3-97b8803252fd

src/bin/gnucash-bin.c

@@ -206,8 +206,6 @@ gnucash_command_line(int argc, char **argv)
          _("Show GnuCash version"), NULL},
         {"debug", '\0', POPT_ARG_NONE, NULL, 0,
          _("Enable debugging mode"), NULL},
-        {"devel", '\0', POPT_ARG_NONE, NULL, 0,
-         _("Enable developers mode"), NULL},
         {"loglevel", '\0', POPT_ARG_INT, NULL, 0,
          _("Set the logging level from 0 (least) to 6 (most)"), 
          _("LOGLEVEL")},

src/scm/command-line.scm

@@ -85,16 +85,6 @@
       #f))
     (gnc:config-var-value-set! gnc:*debugging?* #f current-value))
   
-  (let ((current-value gnc:*develmode*))
-    (set! 
-     gnc:*develmode*
-     (gnc:make-config-var
-      (N_ "Enable developers mode.")
-      (lambda (var value) (if (boolean? value) (list value) #f))
-      eq?
-      #f))
-    (gnc:config-var-value-set! gnc:*develmode* #f current-value))
-  
   (set! gnc:*loglevel*
         (gnc:make-config-var
          (N_ "Logging level from 0 (least logging) to 5 (most logging).")
@@ -136,13 +126,6 @@ the current value of the path.")
          #f
          (N_ "Enable debugging mode"))
 
-   (list "devel"
-         'boolean
-         (lambda (val)
-           (gnc:config-var-value-set! gnc:*develmode* #f val))
-         #f
-         (N_ "Enable developers mode"))
-   
    (list "loglevel"
          'integer
          (lambda (val)
@@ -170,26 +153,6 @@ the current value of the path.")
          "DOCPATH"
          (N_ "Set the search path for documentation files"))
    
-   (list "add-price-quotes"
-         'string
-         (lambda (val)
-           (set! gnc:*batch-mode-things-to-do*
-                 (cons
-                  (lambda ()
-                    (gnc:debug "Beginning to add price-quote")
-                    (gnc:use-guile-module-here! '(gnucash price-quotes))
-                    (gnc:suspend-gui-refresh)
-                    (gnc:engine-suspend-events)
-                    (if (not (gnc:add-quotes-to-book-at-url val))
-                        (begin
-                          (gnc:error "Failed to add quotes to " val)
-                          (gnc:shutdown 1)))
-                    (gnc:engine-suspend-events)
-                    (gnc:resume-gui-refresh))
-                  gnc:*batch-mode-things-to-do*)))
-         "FILE"
-         (N_ "Add price quotes to given FILE."))
-
 
 ))
 

src/scm/main.scm

@@ -110,7 +110,6 @@
 
 ;; These will be converted to config vars later (see command-line.scm)
 (define gnc:*debugging?* (if (getenv "GNC_DEBUG") #t #f))
-(define gnc:*develmode* (if (getenv "GNC_DEVEL_MODE") #t #f))
 
 ;; Function to get debugging
 (define (gnc:debugging?)
@@ -326,18 +325,6 @@ string and 'directories' must be a list of strings."
             (gnc:find-file file (list (car dirs)))
             (loop prefixes (cdr dirs))))))
 
-(define (gnc:startup-pass-1)
-  (gnc:debug "starting up (1).")
-  (gnc:setup-debugging)
-
-  ;; Now we can load a bunch of files.
-  (load-from-path "command-line.scm") ;; depends on app-utils (N_, etc.)...
-
-  (gnc:initialize-config-vars) ;; in command-line.scm
-  ;; handle unrecognized command line args
-  (if (not (gnc:handle-command-line-args))
-      (gnc:shutdown 1)))
-
 (define (gnc:startup-pass-2)
   (gnc:debug "starting up (2).")
 
@@ -490,7 +477,16 @@ string and 'directories' must be a list of strings."
   ;;  (statprof-start)
 
   ;; Now the fun begins.
-  (gnc:startup-pass-1)
+  (gnc:debug "starting up (1).")
+  (gnc:setup-debugging)
+
+  ;; Now we can load a bunch of files.
+  (load-from-path "command-line.scm") ;; depends on app-utils (N_, etc.)...
+
+  (gnc:initialize-config-vars) ;; in command-line.scm
+  ;; handle unrecognized command line args
+  (if (not (gnc:handle-command-line-args))
+      (gnc:shutdown 1))
 
   (if (null? gnc:*batch-mode-things-to-do*)
       (begin