Re: How to debug this problem?

[Leo]

On 2009-09-04 03:15 +0100, Stefan Monnier wrote:
>> In my running Emacs, I have just found out that overwrite-mode and
>> turn-on-visual-line-mode do not have its mode string on the mode line,
>> i.e., when the mode is one there is no 'wrap' or 'Ovwrt'. How to debug a
>> problem like this? Thank you. 
>
> What are the values of mode-line-format and minor-mode-alist?

On an Emacs started last night, at the moment overwrite-mode does not
show the lighter but visual-line-mode does. The values of the two
variables are as follows.

>         Stefan


Mode-line format:

("%e"
 #("-" 0 1
   (help-echo "mouse-1: Select (drag to resize)\nmouse-2: Make current
   window occupy the whole frame\nmouse-3: Remove current window from
   display"))
 mode-line-mule-info mode-line-client mode-line-modified
 mode-line-remote mode-line-frame-identification
 mode-line-buffer-identification
 #("   " 0 3
   (help-echo "mouse-1: Select (drag to resize)\nmouse-2: Make current
   window occupy the whole frame\nmouse-3: Remove current window from
   display"))
 mode-line-position
 (vc-mode vc-mode)
 #("  " 0 2
   (help-echo "mouse-1: Select (drag to resize)\nmouse-2: Make current
   window occupy the whole frame\nmouse-3: Remove current window from
   display"))
 mode-line-modes
 (which-func-mode
  ("" which-func-format
   #("--" 0 2
     (help-echo "mouse-1: Select (drag to resize)\nmouse-2: Make current
     window occupy the whole frame\nmouse-3: Remove current window from
     display"))))
 (global-mode-string
  (#("--" 0 2
     (help-echo "mouse-1: Select (drag to resize)\nmouse-2: Make current
     window occupy the whole frame\nmouse-3: Remove current window from
     display"))
   global-mode-string))
 #("-%-" 0 3
   (help-echo "mouse-1: Select (drag to resize)\nmouse-2: Make current
   window occupy the whole frame\nmouse-3: Remove current window from 
display")))

minor-mode alist:

((compilation-in-progress " Compiling")
 (snippet-mode " Snip")
 (flyspell-mode flyspell-mode-line-string)
 (ispell-minor-mode " Spell")
 (reftex-mode " Ref")
 (TeX-interactive-mode "")
 (TeX-PDF-mode "")
 (org-remember-mode " Rem")
 (org-cdlatex-mode " OCDL")
 (orgstruct-mode " OrgStruct")
 (eldoc-mode eldoc-minor-mode-string)
 (w3m-form-input-textarea-mode " w3m form textarea")
 (w3m-bookmark-mode " bookmark")
 (w3m-minor-mode " w3m")
 (doc-view-minor-mode " DocView")
 (image-minor-mode
  (:eval
   (format " Image[%s]" image-type)))
 (gnus-topic-mode " Topic")
 (gnus-undo-mode "")
 (slime-fuzzy-target-buffer-completions-mode " Fuzzy Target Buffer Completions")
 (slime-repl-read-mode "[read]")
 (slime-macroexpansion-minor-mode " Macroexpand")
 (slime-edit-value-mode " Edit-Value")
 (slime-popup-buffer-mode
  (" Slime-Tmp" slime-modeline-string))
 (slime-mode
  (" Slime" slime-modeline-string))
 (hs-minor-mode " hs")
 (global-whitespace-newline-mode " NL")
 (global-whitespace-mode " WS")
 (whitespace-newline-mode " nl")
 (whitespace-mode " ws")
 (diff-minor-mode " Diff")
 (vc-parent-buffer vc-parent-buffer-name)
 (outline-minor-mode " Outl")
 (paredit-mode " Paredit")
 (scratch-pad-mode " draft")
 (type-break-mode-line-message-mode
  ("" type-break-mode-line-break-message type-break-mode-line-warning))
 (savehist-mode "")
 (server-buffer-clients " Server")
 (global-auto-revert-mode global-auto-revert-mode-text)
 (auto-revert-tail-mode auto-revert-tail-mode-text)
 (auto-revert-mode auto-revert-mode-text)
 (view-mode
  #(" View" 0 5
    (help-echo "mouse-3: minor mode menu" local-map
               (keymap
                (header-line keymap
                             (down-mouse-3 keymap
                                           (reftex-mode menu-item "RefTeX Mode" 
reftex-mode :button
                                                        (:toggle . reftex-mode))
                                           (abbrev-mode menu-item "Abbrev 
(Abbrev)" abbrev-mode :help "Automatically expand abbreviations" :button
                                                        (:toggle . abbrev-mode))
                                           (auto-fill-mode menu-item "Auto fill 
(Fill)" auto-fill-mode :help "Automatically insert new lines" :button
                                                           (:toggle . 
auto-fill-function))
                                           (auto-revert-mode menu-item "Auto 
revert (ARev)" auto-revert-mode :help "Revert the buffer when the file on disk 
changes" :button
                                                             (:toggle 
bound-and-true-p auto-revert-mode))
                                           (auto-revert-tail-mode menu-item 
"Auto revert tail (Tail)" auto-revert-tail-mode :help "Revert the tail of the 
buffer when buffer grows" :enable
                                                                  
(buffer-file-name)
                                                                  :button
                                                                  (:toggle 
bound-and-true-p auto-revert-tail-mode))
                                           (flyspell-mode menu-item "Flyspell 
(Fly)" flyspell-mode :help "Spell checking on the fly" :button
                                                          (:toggle 
bound-and-true-p flyspell-mode))
                                           (font-lock-mode menu-item "Font 
Lock" font-lock-mode :help "Syntax coloring" :button
                                                           (:toggle . 
font-lock-mode))
                                           (glasses-mode menu-item "Glasses 
(o^o)" glasses-mode :help "Insert virtual separators to make long identifiers 
easy to read" :button
                                                         (:toggle 
bound-and-true-p glasses-mode))
                                           (hide-ifdef-mode menu-item "Hide 
ifdef (Ifdef)" hide-ifdef-mode :help "Show/Hide code within #ifdef constructs" 
:button
                                                            (:toggle 
bound-and-true-p hide-ifdef-mode))
                                           (highlight-changes-mode menu-item 
"Highlight changes (Chg)" highlight-changes-mode :help "Show changes in the 
buffer in a distinctive color" :button
                                                                   (:toggle 
bound-and-true-p highlight-changes-mode))
                                           (outline-minor-mode menu-item 
"Outline (Outl)" outline-minor-mode :help "" :button
                                                               (:toggle 
bound-and-true-p outline-minor-mode))
                                           (overwrite-mode menu-item "Overwrite 
(Ovwrt)" overwrite-mode :help "Overwrite mode: typed characters replace 
existing text" :button
                                                           (:toggle . 
overwrite-mode))
                                           "Minor Modes"))
                (mode-line keymap
                           (down-mouse-3 keymap
                                         (reftex-mode menu-item "RefTeX Mode" 
reftex-mode :button
                                                      (:toggle . reftex-mode))
                                         (abbrev-mode menu-item "Abbrev 
(Abbrev)" abbrev-mode :help "Automatically expand abbreviations" :button
                                                      (:toggle . abbrev-mode))
                                         (auto-fill-mode menu-item "Auto fill 
(Fill)" auto-fill-mode :help "Automatically insert new lines" :button
                                                         (:toggle . 
auto-fill-function))
                                         (auto-revert-mode menu-item "Auto 
revert (ARev)" auto-revert-mode :help "Revert the buffer when the file on disk 
changes" :button
                                                           (:toggle 
bound-and-true-p auto-revert-mode))
                                         (auto-revert-tail-mode menu-item "Auto 
revert tail (Tail)" auto-revert-tail-mode :help "Revert the tail of the buffer 
when buffer grows" :enable
                                                                
(buffer-file-name)
                                                                :button
                                                                (:toggle 
bound-and-true-p auto-revert-tail-mode))
                                         (flyspell-mode menu-item "Flyspell 
(Fly)" flyspell-mode :help "Spell checking on the fly" :button
                                                        (:toggle 
bound-and-true-p flyspell-mode))
                                         (font-lock-mode menu-item "Font Lock" 
font-lock-mode :help "Syntax coloring" :button
                                                         (:toggle . 
font-lock-mode))
                                         (glasses-mode menu-item "Glasses 
(o^o)" glasses-mode :help "Insert virtual separators to make long identifiers 
easy to read" :button
                                                       (:toggle 
bound-and-true-p glasses-mode))
                                         (hide-ifdef-mode menu-item "Hide ifdef 
(Ifdef)" hide-ifdef-mode :help "Show/Hide code within #ifdef constructs" :button
                                                          (:toggle 
bound-and-true-p hide-ifdef-mode))
                                         (highlight-changes-mode menu-item 
"Highlight changes (Chg)" highlight-changes-mode :help "Show changes in the 
buffer in a distinctive color" :button
                                                                 (:toggle 
bound-and-true-p highlight-changes-mode))
                                         (outline-minor-mode menu-item "Outline 
(Outl)" outline-minor-mode :help "" :button
                                                             (:toggle 
bound-and-true-p outline-minor-mode))
                                         (overwrite-mode menu-item "Overwrite 
(Ovwrt)" overwrite-mode :help "Overwrite mode: typed characters replace 
existing text" :button
                                                         (:toggle . 
overwrite-mode))
                                         "Minor Modes")
                           (mouse-2 . mode-line-minor-mode-help)
                           (down-mouse-1 . mouse-minor-mode-menu))))))
 (rcirc-omit-mode " Omit")
 (rcirc-low-priority-flag " LowPri")
 (rcirc-ignore-buffer-activity-flag " Ignore")
 (rcirc-track-minor-mode "")
 (rcirc-multiline-minor-mode " rcirc-mline")
 (visible-mode " Vis")
 (global-visual-line-mode " vl")
 (visual-line-mode " wrap")
 (next-error-follow-minor-mode " Fol")
 (abbrev-mode " Abbrev")
 (overwrite-mode overwrite-mode)
 (auto-fill-function " Fill")
 (defining-kbd-macro " Def")
 (isearch-mode isearch-mode))


-- 
Leo's Emacs uptime: 1 day, 21 hours, 23 minutes, 15 seconds