emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: How to debug this problem?


From: Leo
Subject: Re: How to debug this problem?
Date: Wed, 09 Sep 2009 19:54:47 +0100
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.0.60 (gnu/linux)

On 2009-09-09 15:26 +0100, Stefan Monnier wrote:
>> A wild guess might be it is a bug in the ns port.
>
> Could be, but it seems rather unlikely.
>
>>> M-: (format-mode-line minor-mode-alist) RET
>> With overwrite-mode enabled, that returns:
>> " Paredit" in the scratch buffer.
>
> This code should be pretty much 100% platform independent.
> So, please do M-x ielm
> and then in this read-eval-print interactive loop, make sure
> overwrite-mode is not nil, and then play around with
>
>   (format-mode-line minor-mode-alist)
>
> e.g. start with
>
>   (format-mode-line '((overwrite-mode overwrite-mode)))
>
> and if this one returns " Ovwrt" as it should, then add elements from
> minor-mode-alist little by little (ideally, using a bisection-search, aka
> binary-search) until you find what gets in the way.

This is the smallest list I can reproduce the problem. If I delete any
of them, it returns " Paredit Ovwrt".

(format-mode-line '((org-cdlatex-mode " OCDL")
                    (orgstruct-mode " OrgStruct")
                    (vc-parent-buffer vc-parent-buffer-name)
                    (dired-omit-mode
                     (:eval
                      (if
                          (eq major-mode 'dired-mode)
                          " Omit" "")))
                    (gnus-dired-mode "")
                    (snippet-mode " Snip")
                    (compilation-in-progress " Compiling")
                    (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)))
                    (reftex-mode " Ref")
                    (outline-minor-mode " Outl")
                    (TeX-interactive-mode "")
                    (TeX-PDF-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")
                    (gnus-topic-mode " Topic")
                    (gnus-undo-mode "")
                    (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)))


>         Stefan

-- 
Leo's Emacs uptime: 32 minutes, 17 seconds




reply via email to

[Prev in Thread] Current Thread [Next in Thread]