Debugging .emacs file

[SteveFKI]

I am new to EMACS, and have created my own .emacs file (because I want to
learn how to do it from scratch). When I open a C file I get the message
"File mode specification error (wrong-type-argument : listp 3).

I would like to be able to debug my .emacs file, and see what is going on,
but if I start EMACS with emacs -debug-init test.c I don't get any debug
info. (This is obviosuly not the right thing to do).

This is my .emacs file

(custom-set-variables
   ;; custom-set-variables was added by Custom -- don't edit or cut/paste
it!
   ;; Your init file should contain only one such instance.
   '(case-fold-search t)
   '(current-language-environment "Latin-9")
   '(default-input-method "latin-9-prefix")
   '(hungry-delete t)
   '(setq delete-key-deletes-forward t)
   '(global-font-lock-mode t nil (font-lock)))
(custom-set-faces
  ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 )

;; My modifications

   (setq delete-key-deletes-forward t)
        
   ;; C-Language customising
   (setq standard-indent 3)

   ;; My C Style
   (defconst myCStyle
     '(
       (c-offsets-alist . ((case-label . 3)
                           (substatement-open . 0)
                           (defun-block-intro . 3)
                           (statement-case-intro . 3)
                           (statement-block-intro . 3)
                           (topmost-intro . -1)
                           ))

     )
   "My C Programming Style")

   (defun myCModeCommonHook ()
      (c-add-style "personal" myCStyle t)
      (setq c-basic-offset . 3)
   )

   ;; Hook my C Style to the standard one
   (add-hook 'c-mode-common-hook 'myCModeCommonHook)

  ;; (c-add-style "myCStyle" '("bsd" (c-basic-offset . 3)))
  ;; (add-hook 'c-mode-common-hook '(lambda () (c-set-style "myCStyle")))

   ;; Key bindings
   ;; C-z is Undo
   (define-key global-map "\C-z" 'undo)
   ;; F5 - goto line
   (define-key global-map [f5] 'goto-line)
   ;; F6 - Replace String
   (define-key global-map [f6] 'replace-string)
   ;; F7 - Search forward for ^L (function breaks)
   (define-key global-map [f7] "\C-e\C-s\C-q\C-l")
   ;; C-F7 - Search backward for ^L (function breaks)
   (define-key global-map [C-f7] "\C-a\C-r\C-q\C-l")
   ;; M-Pg Up Go to beginning of buffer
   (define-key global-map [M-prior] 'beginning-of-buffer)
   ;; M-Pg Down Go to beginning of buffer
   (define-key global-map [M-next] 'end-of-buffer)

Can somebody point me in the right direction to fix this please.

Thanks

Steve
-- 
View this message in context: 
http://www.nabble.com/Debugging-.emacs-file-tf3266166.html#a9079277
Sent from the Emacs - Help mailing list archive at Nabble.com.