emacs-devel
[Top][All Lists]
Advanced

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

Re: [PATCH] left-fringe for speedbar


From: Kim F. Storm
Subject: Re: [PATCH] left-fringe for speedbar
Date: Tue, 15 Nov 2005 00:08:35 +0100
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux)

Nick Roberts <address@hidden> writes:

> So, I would still like to put the left fringe back.  No-one complained about
> it being there for the last four years and it makes things more consistent.
> However, these issues become larger than they really should.  I think it as an
> insignificant change to the general user.

If this problem is primarily observed with speedbar, the following patch
seems to give good results without enabling left fringe in speedbar frame:


*** gud.el      13 Nov 2005 21:04:40 +0100      1.69
--- gud.el      15 Nov 2005 00:07:12 +0100      
***************
*** 122,127 ****
--- 122,132 ----
        (info "(emacs)GDB Graphical Interface")
        (info "(emacs)Debuggers"))))
  
+ (defun gud-tool-bar-item-visible-no-fringe ()
+   (not (or (eq (buffer-local-value 'major-mode (window-buffer)) 
'speedbar-mode)
+          (and (memq gud-minor-mode '(gdbmi gdba))
+               (> (car (window-fringes)) 0)))))
+ 
  (easy-mmode-defmap gud-menu-map
    '(([help]     "Info" . gud-goto-info)
      ([tooltips] menu-item "Toggle GUD tooltips" gud-tooltip-mode
***************
*** 136,154 ****
      ([until]  menu-item "Continue to selection" gud-until
                    :enable (and (not gud-running)
                               (memq gud-minor-mode '(gdbmi gdba gdb perldb)))
!                 :visible (not (and (memq gud-minor-mode '(gdbmi gdba))
!                      (> (car (window-fringes)) 0))))
      ([remove] menu-item "Remove Breakpoint" gud-remove
                    :enable (not gud-running)
!                 :visible (not (and (memq gud-minor-mode '(gdbmi gdba))
!                       (> (car (window-fringes)) 0))))
      ([tbreak] menu-item "Temporary Breakpoint" gud-tbreak
                  :enable (memq gud-minor-mode
                                '(gdbmi gdba gdb sdb xdb bashdb)))
      ([break]  menu-item "Set Breakpoint" gud-break
                    :enable (not gud-running)
!                 :visible (not (and (memq gud-minor-mode '(gdbmi gdba))
!                       (> (car (window-fringes)) 0))))
      ([up]     menu-item "Up Stack" gud-up
                  :enable (and (not gud-running)
                               (memq gud-minor-mode
--- 141,156 ----
      ([until]  menu-item "Continue to selection" gud-until
                    :enable (and (not gud-running)
                               (memq gud-minor-mode '(gdbmi gdba gdb perldb)))
!                 :visible (gud-tool-bar-item-visible-no-fringe))
      ([remove] menu-item "Remove Breakpoint" gud-remove
                    :enable (not gud-running)
!                 :visible (gud-tool-bar-item-visible-no-fringe))
      ([tbreak] menu-item "Temporary Breakpoint" gud-tbreak
                  :enable (memq gud-minor-mode
                                '(gdbmi gdba gdb sdb xdb bashdb)))
      ([break]  menu-item "Set Breakpoint" gud-break
                    :enable (not gud-running)
!                 :visible (gud-tool-bar-item-visible-no-fringe))
      ([up]     menu-item "Up Stack" gud-up
                  :enable (and (not gud-running)
                               (memq gud-minor-mode

-- 
Kim F. Storm <address@hidden> http://www.cua.dk





reply via email to

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