(debug) backtrace: how to show source code at current location.

(debug) backtrace: how to show source code at current location.

[Larry Evans]

[-- Attachment #1: Type: text/plain, Size: 2180 bytes --]

In:

  ~/.emacs.d/init.common.el

which is attached, there's a (debug) call around line 150.
init.common.el is called by ~/.emacs, which is also attached.
After this line is executed, the *Backtrace* buffer is as
shown in the next attachment.  After 2 d's in the *Backtrace*
buffer, it shows as in the next attachment.

At this point, I've not a precise location of where the
debugger is in the emacs code.  There are no "source code"
windows showing this.  How can I see where the debugger
is now located in the source code?

After the next d, the top of the *Backtrace* shows:

> Debugger entered--beginning evaluation of function call form:
> * (quote c-insert-my-tab)
> * (define-key c++-mode-map (quote tab) (quote c-insert-my-tab))
>   c++-mode-my-hook()
>   run-hooks(c-mode-common-hook c++-mode-hook)

So, I guess the debugger will soon be in c-insert-my-tab (defined
in the 1st attachment).  So, I hit d again and get the following:

> Debugger entered--returning value: c-insert-my-tab
>   (quote c-insert-my-tab)
> * (define-key c++-mode-map (quote tab) (quote c-insert-my-tab))
>   c++-mode-my-hook()
>   run-hooks(c-mode-common-hook c++-mode-hook)

Which is not much help; so, I hit d again and get:

> Debugger entered--beginning evaluation of function call form:
> * (byte-code "ÁÂÃ\b!\"‡" [err message "File mode specification error: %s" prin1-to-string] 4)
>   normal-mode(t)
>   after-find-file(nil t)

Which tells me nothing about what code is being executed.
Hitting d again gives:

> Debugger entered--entering a function:
> * prin1-to-string((wrong-type-argument arrayp tab))
> * byte-code("ÁÂÃ\b!\"‡" [err message "File mode specification error: %s" prin1-to-string] 4)
>   normal-mode(t)
>   after-find-file(nil t)

which doesn't help much.

Finally, I hit c, resulting in the top *Backtrace* containing:

> Debugger entered--returning value: "(wrong-type-argument arrayp tab)"
>   prin1-to-string((wrong-type-argument arrayp tab))
> * byte-code("ÁÂÃ\b!\"‡" [err message "File mode specification error: %s" prin1-to-string] 4)


Please, how can I find out what's causing this error message:

  "(wrong-type-argument arrayp tab)"

TIA.

-Larry





[-- Attachment #2: init.common.el --]
[-- Type: text/x-emacs-lisp, Size: 9567 bytes --]

;;Purpose:
;;  init file common to both emacs and xemacs
;;
;;==================

;;==================================
;;  ChangeLog:2009-11-08
;;    The following is based on instructions from:
;;
;;      http://www.gnu.org/software/cflow/manual/cflow.html#Emacs
;;
;;(autoload 'cflow-mode "cflow-mode")
;;(setq auto-mode-alist (append auto-mode-alist
;;                              '(("\\.cflow$" . cflow-mode))))
;;==================================
;(debug)
;;(load-file "/usr/share/emacs/site-lisp/cedet-common/cedet.el")
;;Above load-file according to http://alexott.net/en/writings/emacs-devenv/EmacsCedet.html#sec2
;;========>Desktop save<============
;;;;Don't use the following desktop calls because
;;;;they seem to cause > to be indented 2 spaces
;;;;past where it's actually inserted in a .cpp file :(
;;(desktop-load-default)
;;
;; By default we starting in text mode.
(setq initial-major-mode
      (lambda ()
        (text-mode)
        (turn-on-auto-fill)
	(font-lock-mode 1)
	))

;; Define function to match a parenthesis otherwise insert a %

(defun match-paren (arg)
  "Go to the matching parenthesis if on parenthesis otherwise insert %."
  (interactive "p")
  (cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))
        ((looking-at "\\s\)") (forward-char 1) (backward-list 1))
        (t (self-insert-command (or arg 1)))))

(global-set-key "%" 'match-paren)

;;======>save recent files<=========
(recentf-mode t)

;;
;;(debug-on-entry 'run-hooks )
;;(debug-on-entry 'c++-mode-my-hook )
;;===================================
;;  ChangeLog:2010-12-08.1616
;;    As instructed by:
;;      http://haskell.org/haskellwiki/Haskell_mode_for_Emacs#Setup
;;
(load "/usr/share/emacs/site-lisp/haskell-mode/haskell-site-file")

(add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode)
(add-hook 'haskell-mode-hook 'turn-on-haskell-indentation)

;;************2011-01-04.2219:copied from ../xemacs/custom.el**********
;;************************************
(defun c-electric-my-brace (arg)
"my c-electric-brace. arg ignored.  Only present because required by ?"
  (interactive "P")
  (self-insert-command (prefix-numeric-value arg))
)
;;defun)c-electric-my-brace defun
;;************************************
(defun c-newline-indent-my-relative (arg)
"insert newline and then indent relative"
  (interactive "P")
  (newline )
  (indent-relative-maybe)
  ;;(message "indent-my-rel")
)
;;defun)c-newline-indent-my-relative
;;************************************
(defun c-insert-my-tab (arg)
"insert a tab. arg is ignored"
  (interactive "P")
  (message "{insert tab")
  (move-to-tab-stop)
  (message "}insert tab")
)
;;defun)c-insert-my-tab
;;************************************
(defun c-insert-my-shift-tab (arg)
"insert a shift-tab. arg is ignored"
  (interactive "P")
  (message "{insert shift-tab")
  (let 
    ((tabs tab-stop-list)
     (new-column 0)
    )
    (while 
      (and tabs (< (car tabs) (current-column)))
      (setq new-column (car tabs))
      (setq tabs (cdr tabs))
    );end while
    (if 
       tabs
       (move-to-column new-column t)
    );end if
  );end let
  (message "}insert shift-tab")
)
;;defun)c-insert-my-shift-tab
;;************************************
(defun c-tab-stop-my-list ()
"my tab-stop-list for c/c++ modes"
  (message "%s" "c-tab-stop-my-list message")
  (setq 
    tab-stop-list
    (let 
      ( (value)
        (tab-width 2)
      ) 
      (dotimes 
        (number 3 value) 
        (setq 
          value 
          (append
            value 
            (list (* number tab-width)) ; 1 element list
          )
        )
      )
    )
  )
)
;;defun)c-tab-stop-my-list
;;************************************
(defun c++-mode-my-hook ()
"my c++-mode-hook"
  (c-tab-stop-my-list)
  (message "%s" "c++-mode-my-hook message:tabs=")
  (message "%s" tab-stop-list)
  (define-key c++-mode-map "\r" 'c-newline-indent-my-relative)
  (define-key c++-mode-map "<" 'self-insert-command)
  (define-key c++-mode-map ">" 'self-insert-command)
  (define-key c++-mode-map "(" 'self-insert-command)
  (define-key c++-mode-map ")" 'self-insert-command)
  (define-key c++-mode-map "{" 'self-insert-command)
  (define-key c++-mode-map "}" 'self-insert-command)
  (define-key c++-mode-map "/" 'self-insert-command)
  (define-key c++-mode-map "," 'self-insert-command)
  (define-key c++-mode-map ";" 'self-insert-command)
  (define-key c++-mode-map ":" 'self-insert-command)
  (message "%s" "c++-mode-my-hook message{")
  (debug)
  (define-key c++-mode-map 'tab 'c-insert-my-tab)
  (message "%s" "c++-mode-my-hook message;")
  ;;(define-key c++-mode-map 'iso-left-tab 'c-insert-my-shift-tab)
  (message "%s" "c++-mode-my-hook message}")
  (setq indent-tabs-mode nil)
)
;;defun) c++-mode-my-hook
(setq c++-mode-hook 'c++-mode-my-hook
)
;;the filename extension in the following is for Template definitions
(setq auto-mode-alist (cons ( cons "\\.hpp\\'" 'c++-mode ) auto-mode-alist )
)
;;the filename extension in the following is for Template definitions
(setq auto-mode-alist (cons ( cons "\\.cpp\\'" 'c++-mode ) auto-mode-alist )
)
;;the filename extension in the following is for Template definitions
(setq auto-mode-alist (cons ( cons "\\.tpp\\'" 'c++-mode ) auto-mode-alist )
)
;;the filename extension in the following is for Forward declarations
(setq auto-mode-alist (cons ( cons "\\.fpp\\'" 'c++-mode ) auto-mode-alist )
)
;;the filename extension in the following is for "simple" include files
;; i.e. files included in another file which is a .cpp or .hpp file
(setq auto-mode-alist (cons ( cons "\\.ipp\\'" 'c++-mode ) auto-mode-alist )
)
;;************************************
(defun text-mode-my-hook ()
"my text-mode-hook"
;;  (message "text-mode-my-hook message")
  (c-tab-stop-my-list)
  (auto-fill-mode)
  (define-key text-mode-map "\r"  'c-newline-indent-my-relative)
)
;;defun) text-mode-my-hook
(setq text-mode-hook 'text-mode-my-hook
)
(setq auto-mode-alist (cons ( cons "\\.log\\'" 'text-mode ) auto-mode-alist )
)
(setq auto-mode-alist (cons ( cons "\\.pl\\'" 'text-mode ) auto-mode-alist )
)
(setq auto-mode-alist (cons ( cons "\\.pm\\'" 'text-mode ) auto-mode-alist )
)
(setq auto-mode-alist (cons ( cons "\\.g\\'" 'text-mode ) auto-mode-alist )
)
(setq auto-mode-alist (cons ( cons "\\.imk\\'" 'makefile-mode ) auto-mode-alist )
)
(setq auto-mode-alist (cons ( cons "\\.mk\\'" 'makefile-mode ) auto-mode-alist )
)
;;************************************

(put 'narrow-to-region 'disabled nil)


;; The following copied from ../.emacs.d/Abrahams.emacs
; is it gnu emacs or xemacs
(setq my-gnup (not (string-match "^\\(XEmacs\\).*" (emacs-version))))

;; font-lock-mode is what implements syntax coloring and hilighting.
(require 'font-lock)            ; require forces the module to load right away.

;;
;; Override some of the default version-control behavior
;;
(require 'vc-hooks)

(defun my-vc-file-owner (file)
  ;; vc-mode doesn't seems overly strict in checking the writable status of
  ;; checked-out files: It wants the CVS username to be identical to the login
  ;; of the emacs user. This is problematic if you work with repositories where
  ;; your userID is different from your OS login. This is typical when working
  ;; with remote repositories. Here we just fake emacs into thinking that these
  ;; things always match.
  (vc-user-login-name))

;;
;; Set defaults that will be picked up by various modes and other emacs packages.
;;
(setq-default

 ;; "Electrify" a few keys in SGML-mode for editing HTML documents
 sgml-quick-keys t
  sgml-validate-command "gtidy"
; sgml-validate-command "tidy -i -wrap 78 --keep-time 0 --gnu-emacs 1 --gnu-emacs-file"
 
 ;; Tell me if I use M-x <command-name> when there was a key binding for it
 teach-extended-commands-p t
 
 ;; Non-nil means truncate lines in all windows less than full frame wide.
 truncate-partial-width-windows nil

 ;; Show the file name in the buffer's mode-line
;; mode-line-buffer-identification '("%12b [%f]")

 ;; Always indent using spaces instead of tabs (hooked separately for makefiles below)
 indent-tabs-mode nil

 ;; By default, ediff all in one frame.
 ediff-window-setup-function 'ediff-setup-windows-plain

 ;; view diffs side-by-side
 ediff-split-window-function 'split-window-horizontally

 ;; only highlight the selected diff (keeps down gray cruft onscreen)
 ediff-highlight-all-diffs nil

 ;; don't try to use pkunzip to extract
 archive-zip-use-pkzip nil
 )

(if my-gnup
    (progn
      ;; Automatically revert unmodified buffers when they change out from under us on disk.
      (global-auto-revert-mode 1)

      ;; Turn on syntax highlighting in all modes by default
      (global-font-lock-mode 1)
      
      ;; This highlights the region (between point and mark) whenever the mark is
      ;; active. It also causes the mark to be able to become inactive (e.g. by
      ;; typing C-g. To get the mark back, just type C-x C-x.
      (transient-mark-mode 1)
))

;;==================================
;;  ChangeLog:2009-11-09
;;    The following is based on instructions from:
;;
;;      http://www.rattlesnake.com/intro/Loading-Files.html
;;
(setq load-path (cons "~/download/cflow/install/share/emacs/site-lisp" load-path))
;;==================================
;;  ChangeLog:2009-11-08
;;    The following is based on instructions from:
;;
;;      http://www.gnu.org/software/cflow/manual/cflow.html#Emacs
;;
(autoload 'cflow-mode "cflow-mode")
(setq auto-mode-alist (append auto-mode-alist
                              '(("\\.cflow$" . cflow-mode))))
;;==================================

[-- Attachment #3: .emacs --]
[-- Type: text/plain, Size: 5209 bytes --]

;;; XEmacs backwards compatibility file
(setq my-user-init-file
      (expand-file-name "init.common.el"
			(expand-file-name ".emacs.d" "~")))
(load-file my-user-init-file)
;;(message "{***(my-custom-file load)")
(setq my-custom-file
      (expand-file-name "custom.el"
			(expand-file-name ".xemacs" "~")))
;;(load-file my-custom-file)
;;(message "}***(my-custom-file load)")

(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(agda2-include-dirs (quote ("." "/usr/lib/agda-stdlib/")))
 '(c-cleanup-list nil)
 '(c-echo-syntactic-information-p t)
 '(c-hanging-braces-alist (quote ((brace-list-open) (brace-entry-open) (statement-cont) (substatement-open after) (block-close . c-snug-do-while) (extern-lang-open after) (namespace-open after) (module-open after) (composition-open after) (inexpr-class-open after) (inexpr-class-close before))))
 '(c-offsets-alist (quote ((arglist-close . 0))))
 '(c-report-syntactic-errors t)
 '(c-syntactic-indentation t)
 '(case-fold-search t)
 '(column-number-mode t)
 '(current-language-environment "Latin-1")
 '(default-input-method "latin-1-prefix")
 '(desktop-load-locked-desktop nil)
 '(desktop-save t)
 '(desktop-save-mode t)
 '(ecb-cedet-url "http://cedet.sourceforge.net/")
 '(haskell-doc-show-global-types t)
 '(haskell-program-name (or (cond ((not (fboundp (quote executable-find))) nil) ((executable-find "ghci") "ghci") ((executable-find "hugs") "hugs \"+.\"")) "ghci"))
 '(line-number-mode t)
 '(mail-archive-file-name "/home/evansl/Mail/emacs-sent-mail")
 '(mail-host-address "pop.suddenlink.net")
 '(recent-files-add-menu-before "nil")
 '(recent-files-include-save-now t)
 '(recent-files-menu-path nil)
 '(require-final-newline t)
 '(safe-local-variable-values (quote ((folded-file . t) (fold-internal-margins . 0) (Fill-column . 100))))
 '(save-place t nil (saveplace))
 '(shell-input-autoexpand (quote input))
 '(smtpmail-default-smtp-server "smtp.suddenlink.net")
 '(speedbar-frame-parameters (quote ((minibuffer) (width . 20) (border-width . 0) (menu-bar-lines . 0) (tool-bar-lines . 0) (unsplittable . t) (set-background-color "black"))))
 '(standard-indent 8)
 '(tab-width 8)
 '(tags-table-list (quote ("TAGS")))
 '(transient-mark-mode t)
 '(user-mail-address "cppljevans@suddenlink.net")
 '(version-control (quote never)))
(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(background "blue")
 '(font-lock-builtin-face ((((class color) (background dark)) (:foreground "Turquoise"))))
 '(font-lock-comment-face ((t (:foreground "MediumAquamarine"))))
 '(font-lock-constant-face ((((class color) (background dark)) (:bold t :foreground "DarkOrchid"))))
 '(font-lock-doc-string-face ((t (:foreground "green2"))))
 '(font-lock-function-name-face ((t (:foreground "SkyBlue"))))
 '(font-lock-keyword-face ((t (:bold t :foreground "CornflowerBlue"))))
 '(font-lock-preprocessor-face ((t (:italic nil :foreground "CornFlowerBlue"))))
 '(font-lock-reference-face ((t (:foreground "DodgerBlue"))))
 '(font-lock-string-face ((t (:foreground "LimeGreen"))))
 '(font-lock-type-face ((t (:foreground "#9290ff"))))
 '(font-lock-variable-name-face ((t nil)))
 '(font-lock-warning-face ((((class color) (background dark)) (:foreground "yellow" :background "red"))))
 '(highlight ((t (:background "CornflowerBlue"))))
 '(list-mode-item-selected ((t (:background "gold"))))
 '(makefile-space-face ((t (:background "wheat"))) t)
 '(mode-line ((t (:background "gray"))))
 '(mode-line-inactive ((default nil) (((class color) (min-colors 88) (background light)) (:background "grey90" :foreground "grey20" :box (:line-width -1 :color "grey40") :weight light))))
 '(paren-match ((t (:background "darkseagreen4"))))
 '(region ((t (:background "DarkSlateBlue"))))
 '(show-paren-match ((t (:foreground "black" :background "wheat"))))
 '(show-paren-mismatch ((((class color)) (:foreground "white" :background "red"))))
 '(speedbar-button-face ((((class color) (background dark)) (:foreground "green4"))))
 '(speedbar-directory-face ((((class color) (background dark)) (:foreground "khaki"))))
 '(speedbar-file-face ((((class color) (background dark)) (:foreground "cyan"))))
 '(speedbar-tag-face ((((class color) (background dark)) (:foreground "Springgreen"))))
 '(vhdl-speedbar-architecture-selected-face ((((class color) (background dark)) (:underline t :foreground "Blue"))))
 '(vhdl-speedbar-entity-face ((((class color) (background dark)) (:foreground "darkGreen"))))
 '(vhdl-speedbar-entity-selected-face ((((class color) (background dark)) (:underline t :foreground "darkGreen"))))
 '(vhdl-speedbar-package-face ((((class color) (background dark)) (:foreground "black"))))
 '(vhdl-speedbar-package-selected-face ((((class color) (background dark)) (:underline t :foreground "black"))))
 '(widget-field ((((class grayscale color) (background light)) (:background "DarkBlue")))))

[-- Attachment #4: bt.txt.~1.1~ --]
[-- Type: application/octet-stream, Size: 2111 bytes --]

[-- Attachment #5: bt.txt.~1.2~ --]
[-- Type: application/octet-stream, Size: 2209 bytes --]

RE: (debug) backtrace: how to show source code at current location.

[Drew Adams]

> Please, how can I find out what's causing this error message:
> 
>   "(wrong-type-argument arrayp tab)"

From your error message alone, it seems that the symbol `tab' is being passed to
some function that expects an array.  That's not much help yet, but things might
become clearer when you dig deeper using the debugger.

(setq debug-on-error t)

1. Load source (*.el) files for the library where the error occurred.

IOW, look at the `debug-on-error' backtrace to see which function(s) were
involved when the error occurred.  Then use `C-h f' or `find-func' to find the
function definition(s) (source file(s)).  Load the source file(s) (*.el) using
`load-file' or `load-library', including the extension `.el' in the name.

2. Provoke the error and backtrace again.  It should now show more source-code
entry points instead of byte-code (the `(byte-code "ÁÂÃ...' stuff)

3. You can also use `M-x debug-on-entry THE-FUNCTION' to enter the debugger
whenever a problematic function is invoked.  Then you can walk through the
invocation to see more about what caused the error.

Re: (debug) backtrace: how to show source code at current location.

[Larry Evans]

[-- Attachment #1: Type: text/plain, Size: 2226 bytes --]

On 01/05/11 13:06, Drew Adams wrote:
>> Please, how can I find out what's causing this error message:
>>
>>   "(wrong-type-argument arrayp tab)"
> 
> From your error message alone, it seems that the symbol `tab' is being passed to
> some function that expects an array.  That's not much help yet, but things might
> become clearer when you dig deeper using the debugger.
> 
> (setq debug-on-error t)
> 
> 1. Load source (*.el) files for the library where the error occurred.
> 
> IOW, look at the `debug-on-error' backtrace to see which function(s) were
> involved when the error occurred.  Then use `C-h f' or `find-func' to find the
> function definition(s) (source file(s)).  Load the source file(s) (*.el) using
> `load-file' or `load-library', including the extension `.el' in the name.
> 
> 2. Provoke the error and backtrace again.  It should now show more source-code
> entry points instead of byte-code (the `(byte-code "ÁÂÃ...' stuff)
> 
> 3. You can also use `M-x debug-on-entry THE-FUNCTION' to enter the debugger
> whenever a problematic function is invoked.  Then you can walk through the
> invocation to see more about what caused the error.
> 
> 
> 
Thank you very much for the help Drew.
What I did was started with just:

  (setq debug-on-error t)

as shown in the attachment (a revision of the one posted earlier).
The started emacs; however, no backtrace appeared.  OTOH, the
*Messages* buffer contained:

> Loading /home/evansl/.emacs.d/init.common.el (source)...
> Loading /home/evansl/.recentf...done
> Cleaning up the recentf list...done (0 removed)
> Loading /usr/share/emacs/site-lisp/haskell-mode/haskell-site-file.el (source)...done
> Loading /home/evansl/.emacs.d/init.common.el (source)...done
> Loading desktop...done
> Loading eldoc...done
> uncompressing indent.el.gz...done
> Note: file is write protected
> Loading cc-mode...done
> Note: file is write protected
> c-tab-stop-my-list message
> c++-mode-my-hook message:tabs=
> (0 2 4)
> c++-mode-my-hook message{
> File mode specification error: (wrong-type-argument arrayp tab)
> Loading /usr/share/emacs/site-lisp/haskell-mode/haskell-mode.el (source)...done

Is there something else I should do to get a backtrace?

TIA.

-regards,
Larry


[-- Attachment #2: init.common.el --]
[-- Type: text/x-emacs-lisp, Size: 9897 bytes --]

;;Purpose:
;;  init file common to both emacs and xemacs
;;
;;==================

;;==================================
;;  ChangeLog:2009-11-08
;;    The following is based on instructions from:
;;
;;      http://www.gnu.org/software/cflow/manual/cflow.html#Emacs
;;
;;(autoload 'cflow-mode "cflow-mode")
;;(setq auto-mode-alist (append auto-mode-alist
;;                              '(("\\.cflow$" . cflow-mode))))
;;==================================
;(debug)
;;(load-file "/usr/share/emacs/site-lisp/cedet-common/cedet.el")
;;Above load-file according to http://alexott.net/en/writings/emacs-devenv/EmacsCedet.html#sec2
;;========>Desktop save<============
;;;;Don't use the following desktop calls because
;;;;they seem to cause > to be indented 2 spaces
;;;;past where it's actually inserted in a .cpp file :(
;;(desktop-load-default)
;;
;; By default we starting in text mode.
(setq initial-major-mode
      (lambda ()
        (text-mode)
        (turn-on-auto-fill)
	(font-lock-mode 1)
	))

;; Define function to match a parenthesis otherwise insert a %

(defun match-paren (arg)
  "Go to the matching parenthesis if on parenthesis otherwise insert %."
  (interactive "p")
  (cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))
        ((looking-at "\\s\)") (forward-char 1) (backward-list 1))
        (t (self-insert-command (or arg 1)))))

(global-set-key "%" 'match-paren)

;;======>save recent files<=========
(recentf-mode t)

;;
;;(debug-on-entry 'run-hooks )
;;(debug-on-entry 'c++-mode-my-hook )
;;===================================
;;  ChangeLog:2010-12-08.1616
;;    As instructed by:
;;      http://haskell.org/haskellwiki/Haskell_mode_for_Emacs#Setup
;;  ChangeLog:2011-01-05.1326
;;    Because getting error about
;;      turn-on-haskell-indentation
;;    being void, and seeing in:
;;      /usr/share/emacs/site-lisp/haskell-mode/haskell-indent.el
;;    the instruction:
;;      (add-hook 'haskell-mode-hook 'turn-on-haskell-indent)
;;    followed that instruction.  
;;
(load "/usr/share/emacs/site-lisp/haskell-mode/haskell-site-file")

(add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode)
(add-hook 'haskell-mode-hook 'turn-on-haskell-indent)

;;************2011-01-04.2219:copied from ../xemacs/custom.el**********
;;************************************
(defun c-electric-my-brace (arg)
"my c-electric-brace. arg ignored.  Only present because required by ?"
  (interactive "P")
  (self-insert-command (prefix-numeric-value arg))
)
;;defun)c-electric-my-brace defun
;;************************************
(defun c-newline-indent-my-relative (arg)
"insert newline and then indent relative"
  (interactive "P")
  (newline )
  (indent-relative-maybe)
  ;;(message "indent-my-rel")
)
;;defun)c-newline-indent-my-relative
;;************************************
(defun c-insert-my-tab (arg)
"insert a tab. arg is ignored"
  (interactive "P")
  (message "{insert tab")
  (move-to-tab-stop)
  (message "}insert tab")
)
;;defun)c-insert-my-tab
;;************************************
(defun c-insert-my-shift-tab (arg)
"insert a shift-tab. arg is ignored"
  (interactive "P")
  (message "{insert shift-tab")
  (let 
    ((tabs tab-stop-list)
     (new-column 0)
    )
    (while 
      (and tabs (< (car tabs) (current-column)))
      (setq new-column (car tabs))
      (setq tabs (cdr tabs))
    );end while
    (if 
       tabs
       (move-to-column new-column t)
    );end if
  );end let
  (message "}insert shift-tab")
)
;;defun)c-insert-my-shift-tab
;;************************************
(defun c-tab-stop-my-list ()
"my tab-stop-list for c/c++ modes"
  (message "%s" "c-tab-stop-my-list message")
  (setq 
    tab-stop-list
    (let 
      ( (value)
        (tab-width 2)
      ) 
      (dotimes 
        (number 3 value) 
        (setq 
          value 
          (append
            value 
            (list (* number tab-width)) ; 1 element list
          )
        )
      )
    )
  )
)
;;defun)c-tab-stop-my-list
;;************************************
(defun c++-mode-my-hook ()
"my c++-mode-hook"
  (c-tab-stop-my-list)
  (message "%s" "c++-mode-my-hook message:tabs=")
  (message "%s" tab-stop-list)
  (define-key c++-mode-map "\r" 'c-newline-indent-my-relative)
  (define-key c++-mode-map "<" 'self-insert-command)
  (define-key c++-mode-map ">" 'self-insert-command)
  (define-key c++-mode-map "(" 'self-insert-command)
  (define-key c++-mode-map ")" 'self-insert-command)
  (define-key c++-mode-map "{" 'self-insert-command)
  (define-key c++-mode-map "}" 'self-insert-command)
  (define-key c++-mode-map "/" 'self-insert-command)
  (define-key c++-mode-map "," 'self-insert-command)
  (define-key c++-mode-map ";" 'self-insert-command)
  (define-key c++-mode-map ":" 'self-insert-command)
  (message "%s" "c++-mode-my-hook message{")
  (setq debug-on-error t)
  (define-key c++-mode-map 'tab 'c-insert-my-tab)
  (message "%s" "c++-mode-my-hook message;")
  ;;(define-key c++-mode-map 'iso-left-tab 'c-insert-my-shift-tab)
  (message "%s" "c++-mode-my-hook message}")
  (setq indent-tabs-mode nil)
)
;;defun) c++-mode-my-hook
(setq c++-mode-hook 'c++-mode-my-hook
)
;;the filename extension in the following is for Template definitions
(setq auto-mode-alist (cons ( cons "\\.hpp\\'" 'c++-mode ) auto-mode-alist )
)
;;the filename extension in the following is for Template definitions
(setq auto-mode-alist (cons ( cons "\\.cpp\\'" 'c++-mode ) auto-mode-alist )
)
;;the filename extension in the following is for Template definitions
(setq auto-mode-alist (cons ( cons "\\.tpp\\'" 'c++-mode ) auto-mode-alist )
)
;;the filename extension in the following is for Forward declarations
(setq auto-mode-alist (cons ( cons "\\.fpp\\'" 'c++-mode ) auto-mode-alist )
)
;;the filename extension in the following is for "simple" include files
;; i.e. files included in another file which is a .cpp or .hpp file
(setq auto-mode-alist (cons ( cons "\\.ipp\\'" 'c++-mode ) auto-mode-alist )
)
;;************************************
(defun text-mode-my-hook ()
"my text-mode-hook"
;;  (message "text-mode-my-hook message")
  (c-tab-stop-my-list)
  (auto-fill-mode)
  (define-key text-mode-map "\r"  'c-newline-indent-my-relative)
)
;;defun) text-mode-my-hook
(setq text-mode-hook 'text-mode-my-hook
)
(setq auto-mode-alist (cons ( cons "\\.log\\'" 'text-mode ) auto-mode-alist )
)
(setq auto-mode-alist (cons ( cons "\\.pl\\'" 'text-mode ) auto-mode-alist )
)
(setq auto-mode-alist (cons ( cons "\\.pm\\'" 'text-mode ) auto-mode-alist )
)
(setq auto-mode-alist (cons ( cons "\\.g\\'" 'text-mode ) auto-mode-alist )
)
(setq auto-mode-alist (cons ( cons "\\.imk\\'" 'makefile-mode ) auto-mode-alist )
)
(setq auto-mode-alist (cons ( cons "\\.mk\\'" 'makefile-mode ) auto-mode-alist )
)
;;************************************

(put 'narrow-to-region 'disabled nil)


;; The following copied from ../.emacs.d/Abrahams.emacs
; is it gnu emacs or xemacs
(setq my-gnup (not (string-match "^\\(XEmacs\\).*" (emacs-version))))

;; font-lock-mode is what implements syntax coloring and hilighting.
(require 'font-lock)            ; require forces the module to load right away.

;;
;; Override some of the default version-control behavior
;;
(require 'vc-hooks)

(defun my-vc-file-owner (file)
  ;; vc-mode doesn't seems overly strict in checking the writable status of
  ;; checked-out files: It wants the CVS username to be identical to the login
  ;; of the emacs user. This is problematic if you work with repositories where
  ;; your userID is different from your OS login. This is typical when working
  ;; with remote repositories. Here we just fake emacs into thinking that these
  ;; things always match.
  (vc-user-login-name))

;;
;; Set defaults that will be picked up by various modes and other emacs packages.
;;
(setq-default

 ;; "Electrify" a few keys in SGML-mode for editing HTML documents
 sgml-quick-keys t
  sgml-validate-command "gtidy"
; sgml-validate-command "tidy -i -wrap 78 --keep-time 0 --gnu-emacs 1 --gnu-emacs-file"
 
 ;; Tell me if I use M-x <command-name> when there was a key binding for it
 teach-extended-commands-p t
 
 ;; Non-nil means truncate lines in all windows less than full frame wide.
 truncate-partial-width-windows nil

 ;; Show the file name in the buffer's mode-line
;; mode-line-buffer-identification '("%12b [%f]")

 ;; Always indent using spaces instead of tabs (hooked separately for makefiles below)
 indent-tabs-mode nil

 ;; By default, ediff all in one frame.
 ediff-window-setup-function 'ediff-setup-windows-plain

 ;; view diffs side-by-side
 ediff-split-window-function 'split-window-horizontally

 ;; only highlight the selected diff (keeps down gray cruft onscreen)
 ediff-highlight-all-diffs nil

 ;; don't try to use pkunzip to extract
 archive-zip-use-pkzip nil
 )

(if my-gnup
    (progn
      ;; Automatically revert unmodified buffers when they change out from under us on disk.
      (global-auto-revert-mode 1)

      ;; Turn on syntax highlighting in all modes by default
      (global-font-lock-mode 1)
      
      ;; This highlights the region (between point and mark) whenever the mark is
      ;; active. It also causes the mark to be able to become inactive (e.g. by
      ;; typing C-g. To get the mark back, just type C-x C-x.
      (transient-mark-mode 1)
))

;;==================================
;;  ChangeLog:2009-11-09
;;    The following is based on instructions from:
;;
;;      http://www.rattlesnake.com/intro/Loading-Files.html
;;
(setq load-path (cons "~/download/cflow/install/share/emacs/site-lisp" load-path))
;;==================================
;;  ChangeLog:2009-11-08
;;    The following is based on instructions from:
;;
;;      http://www.gnu.org/software/cflow/manual/cflow.html#Emacs
;;
(autoload 'cflow-mode "cflow-mode")
(setq auto-mode-alist (append auto-mode-alist
                              '(("\\.cflow$" . cflow-mode))))
;;==================================

Re: (debug) backtrace: how to show source code at current location.

[Larry Evans]

On 01/05/11 13:43, Larry Evans wrote:
> On 01/05/11 13:06, Drew Adams wrote:
[snip]
> Is there something else I should do to get a backtrace?
> 
OOPS.  Never mind.  Moving the setq outside of the function to the top
of the init.common.el file worked.

Sorry for noise.

-Larry

RE: (debug) backtrace: how to show source code at current location.

[Drew Adams]

> What I did was started with just:
> 
>   (setq debug-on-error t)
> 
> as shown in the attachment (a revision of the one posted earlier).
> The started emacs; however, no backtrace appeared.

Eval (setq debug-on-error t) at top level before you do anything else. Put it in
your .emacs at the beginning, for instance.

> OTOH, the *Messages* buffer contained:
> > File mode specification error: (wrong-type-argument arrayp tab)
> Is there something else I should do to get a backtrace?

(setq debug-on-error t) should do it.

Grepping for your error message points to files.el in directory lisp/.  See the
code for `normal-mode' there.  You can try `M-x debug-on-entry RET normal-mode
RET'.

Re: (debug) backtrace: how to show source code at current location.

[Tim X]

Larry Evans <cppljevans@suddenlink.net> writes:

> On 01/05/11 13:06, Drew Adams wrote:
>>> Please, how can I find out what's causing this error message:
>>>
>>>   "(wrong-type-argument arrayp tab)"
>> 
>> From your error message alone, it seems that the symbol `tab' is being passed to
>> some function that expects an array.  That's not much help yet, but things might
>> become clearer when you dig deeper using the debugger.
>> 
>> (setq debug-on-error t)
>> 
>> 1. Load source (*.el) files for the library where the error occurred.
>> 
>> IOW, look at the `debug-on-error' backtrace to see which function(s) were
>> involved when the error occurred.  Then use `C-h f' or `find-func' to find the
>> function definition(s) (source file(s)).  Load the source file(s) (*.el) using
>> `load-file' or `load-library', including the extension `.el' in the name.
>> 
>> 2. Provoke the error and backtrace again.  It should now show more source-code
>> entry points instead of byte-code (the `(byte-code "ÁÂÃ...' stuff)
>> 
>> 3. You can also use `M-x debug-on-entry THE-FUNCTION' to enter the debugger
>> whenever a problematic function is invoked.  Then you can walk through the
>> invocation to see more about what caused the error.
>> 
>> 
>> 
> Thank you very much for the help Drew.
> What I did was started with just:
>
>   (setq debug-on-error t)
>
> as shown in the attachment (a revision of the one posted earlier).
> The started emacs; however, no backtrace appeared.  OTOH, the
> *Messages* buffer contained:
>
>> Loading /home/evansl/.emacs.d/init.common.el (source)...
>> Loading /home/evansl/.recentf...done
>> Cleaning up the recentf list...done (0 removed)
>> Loading /usr/share/emacs/site-lisp/haskell-mode/haskell-site-file.el (source)...done
>> Loading /home/evansl/.emacs.d/init.common.el (source)...done
>> Loading desktop...done
>> Loading eldoc...done
>> uncompressing indent.el.gz...done
>> Note: file is write protected
>> Loading cc-mode...done
>> Note: file is write protected
>> c-tab-stop-my-list message
>> c++-mode-my-hook message:tabs=
>> (0 2 4)
>> c++-mode-my-hook message{
>> File mode specification error: (wrong-type-argument arrayp tab)
>> Loading /usr/share/emacs/site-lisp/haskell-mode/haskell-mode.el (source)...done
>
> Is there something else I should do to get a backtrace?
>

Yep, start emacs as 

emacs --debug-init

Tim

-- 
tcross (at) rapttech dot com dot au

Re: (debug) backtrace: how to show source code at current location.

[Larry Evans]

On 01/05/11 17:31, Tim X wrote:
> Larry Evans <cppljevans@suddenlink.net> writes:
> 
>> On 01/05/11 13:06, Drew Adams wrote:
>>>> Please, how can I find out what's causing this error message:
>>>>
>>>>   "(wrong-type-argument arrayp tab)"
>>>
>>> From your error message alone, it seems that the symbol `tab' is being passed to
>>> some function that expects an array.  That's not much help yet, but things might
>>> become clearer when you dig deeper using the debugger.
>>>
>>> (setq debug-on-error t)
>>>
>>> 1. Load source (*.el) files for the library where the error occurred.
>>>
>>> IOW, look at the `debug-on-error' backtrace to see which function(s) were
>>> involved when the error occurred.  Then use `C-h f' or `find-func' to find the
>>> function definition(s) (source file(s)).  Load the source file(s) (*.el) using
>>> `load-file' or `load-library', including the extension `.el' in the name.
>>>
>>> 2. Provoke the error and backtrace again.  It should now show more source-code
>>> entry points instead of byte-code (the `(byte-code "ÁÂÃ...' stuff)
>>>
>>> 3. You can also use `M-x debug-on-entry THE-FUNCTION' to enter the debugger
>>> whenever a problematic function is invoked.  Then you can walk through the
>>> invocation to see more about what caused the error.
>>>
>>>
>>>
>> Thank you very much for the help Drew.
>> What I did was started with just:
>>
>>   (setq debug-on-error t)
>>
>> as shown in the attachment (a revision of the one posted earlier).
>> The started emacs; however, no backtrace appeared.  OTOH, the
>> *Messages* buffer contained:
>>
>>> Loading /home/evansl/.emacs.d/init.common.el (source)...
>>> Loading /home/evansl/.recentf...done
>>> Cleaning up the recentf list...done (0 removed)
>>> Loading /usr/share/emacs/site-lisp/haskell-mode/haskell-site-file.el (source)...done
>>> Loading /home/evansl/.emacs.d/init.common.el (source)...done
>>> Loading desktop...done
>>> Loading eldoc...done
>>> uncompressing indent.el.gz...done
>>> Note: file is write protected
>>> Loading cc-mode...done
>>> Note: file is write protected
>>> c-tab-stop-my-list message
>>> c++-mode-my-hook message:tabs=
>>> (0 2 4)
>>> c++-mode-my-hook message{
>>> File mode specification error: (wrong-type-argument arrayp tab)
>>> Loading /usr/share/emacs/site-lisp/haskell-mode/haskell-mode.el (source)...done
>>
>> Is there something else I should do to get a backtrace?
>>
> 
> Yep, start emacs as 
> 
> emacs --debug-init
> 
> Tim
> 
Thanks, Tim and Drew.
I did gunzip all the *.el.gz files in:

  /usr/share/emacs/23.1/lisp

and did:

  emacs --debug-init

However, I never could get the emacs debugger to
show me the actual line it was on when I issued the debug
commands, such as d or c.

Anyway, one time the top line in the *Backtrace* buffer
showed a (define-key ...) expression whose tail end included
the args to a (define-key...) from init.common.el file:

     (define-key c++-mode-map 'tab 'c-insert-my-tab)

I wondered what 'tab was, and then vaguely remember I had
some trouble hear years ago and, thru trial-and error,
I found:

     (define-key c++-mode-map 'tab 'c-insert-my-tab)

worked.  However, I guess something has changed and now:

     (define-key c++-mode-map "\t" 'c-insert-my-tab)

doesn't produce the error.  I just have to figure out the
corresponding correction for:

  (define-key c++-mode-map 'iso-left-tab 'c-insert-my-shift-tab)

I remember searching some files in site-lisp for somewhere else
for the symbol:

  'tab
  'iso-left-tab

however, that was long ago and I can't remember how I found those
symbols.

Thanks for your efforts.

  -kind regards,
  Larry

Re: (debug) backtrace: how to show source code at current location.

[Larry Evans]

On 01/05/11 20:53, Larry Evans wrote:
[snip]
> I remember searching some files in site-lisp for somewhere else
> for the symbol:
> 
>   'tab
>   'iso-left-tab
> 
> however, that was long ago and I can't remember how I found those
> symbols.
> 
[snip]

In /usr/share/emacs/23.1/lisp/progmodes/grep.el, found:

    (define-key map [backtab] 'compilation-previous-error)

so, used that in my init.common.el and it seems to work.

-Larry

RE: (debug) backtrace: how to show source code at current location.

[Drew Adams]

> I just have to figure out the corresponding correction for:
> (define-key c++-mode-map 'iso-left-tab 'c-insert-my-shift-tab)

(define-key c++-mode-map [iso-left-tab] 'c-insert-my-shift-tab)

You need to learn how to fish.  The manual is your friend.
C-h i
m Elisp
i define-key

Re: (debug) backtrace: how to show source code at current location.

[Larry Evans]

On 01/05/11 21:55, Drew Adams wrote:
>> I just have to figure out the corresponding correction for:
>> (define-key c++-mode-map 'iso-left-tab 'c-insert-my-shift-tab)
> 
> (define-key c++-mode-map [iso-left-tab] 'c-insert-my-shift-tab)
> 
> You need to learn how to fish.  The manual is your friend.
> C-h i
> m Elisp
> i define-key
> 
Thanks Drew.
Doing that got me to an info page with:

     If KEY is `[t]', this sets the default binding in KEYMAP.  When an
     event has no binding of its own, the Emacs command loop uses the
     keymap's default binding, if there is one.

but that doesn't tell me what are the possible values for t in `[t]'.
How did you know that "iso-left-tab" was a possible value for t?
As mentioned in my other post, I found grep.el had "backtab" instead
of "iso-left-tab".  I tried fishing through several info files after
the define-key one; however, none I viewed showed what the possible
values were for the t in [t].  Where is this information?

TIA.

  -regards,
  Larry

RE: (debug) backtrace: how to show source code at current location.

[Drew Adams]

> > C-h i m Elisp i define-key
> 
> Thanks Drew.
> Doing that got me to an info page with:
> 
>      If KEY is `[t]', this sets the default binding in 
> KEYMAP.  When an
>      event has no binding of its own, the Emacs command loop uses the
>      keymap's default binding, if there is one.
> 
> but that doesn't tell me what are the possible values for t in `[t]'.
> How did you know that "iso-left-tab" was a possible value for t?
> As mentioned in my other post, I found grep.el had "backtab" instead
> of "iso-left-tab".  I tried fishing through several info files after
> the define-key one; however, none I viewed showed what the possible
> values were for the t in [t].

No, [t] is something else, which you needn't worry about here.

> Where is this information?

On the same page I indicated (`i define-key' -> node `Changing Key Bindings').
It says:

 In writing the key sequence to rebind, it is good to use the special
 escape sequences for control and meta characters (*note String Type::).
 The syntax `\C-' means that the following character is a control
 character and `\M-' means that the following character is a meta
 character.  Thus, the string `"\M-x"' is read as containing a single
 `M-x', `"\C-f"' is read as containing a single `C-f', and `"\M-\C-x"'
 and `"\C-\M-x"' are both read as containing a single `C-M-x'.  You can
 also use this escape syntax in vectors, as well as others that aren't
 allowed in strings; one example is `[?\C-\H-x home]'.  *Note Character
 Type::.

Notice the last sentence, before the Note.  The example uses the `home' function
key, but a simpler example such as [iso-left-tab] would be easier to understand
for just a function key alone.

The paragraph that follows that one also discusses key notation.

Also, `i function keys' takes you to node `Function Keys', which describes keys
such as `iso-left-tab' (aka `<iso-left-tab>'.

Node `Menu Example' also mentions the vector notation for function keys (such as
[iso-left-tab]).

I agree that there doesn't seem to be an example in node `Changing Key Bindings'
of the vector notation with a simple function key.  And it would help for that
node to have some cross references to the other nodes.  And it's possible that a
complete discussion of this is elsewhere in the manual somewhere.  Why not file
a doc bug to have this info made more noticeable and easier to find?  To do
that: `M-x report-emacs-bug'.  Thx.