Re: [RFC] Removing pushy mouse key assignment from gtags.el.

[Aneesh Kumar K. V]

On Tue, 18 Jan 2011 12:44:14 +0900, "Shigio YAMAGUCHI" <address@hidden> wrote:
> Hi all,
> 
> It seems that a lot of people who are using gtags.el say,
> "Return the default mouse mapping of emacs!"
> I should answer this.
> 
> How about changing gtags.el like follows?
> 
> o All the assignment of mouse key is abolished.
> o Instead, new custom variable 'gtags-suggested-keymap' is added.
> 
>   If you hope old key mapping then you should write your .emacs file
>   like this:
>   [$HOME/.emacs]
>   +------------------------------------------------
>   |(setq gtags-mode-hook
>   |  '(lambda ()
>   |        (setq gtags-suggested-keymap t)
>   |))
> 
>   This is equivalent to the following settings:
>   [$HOME/.emacs]
>   +------------------------------------------------
>   |(setq gtags-mode-hook
>   |   '(lambda ()
>   |         (define-key gtags-mode-map "\eh" 'gtags-display-browser)
>   |         (define-key gtags-mode-map "\C-]" 'gtags-find-tag-from-here)
>   |         (define-key gtags-mode-map "\C-t" 'gtags-pop-stack)
>   |         (define-key gtags-mode-map "\el" 'gtags-find-file)
>   |         (define-key gtags-mode-map "\eg" 'gtags-find-with-grep)
>   |         (define-key gtags-mode-map "\eI" 'gtags-find-with-idutils)
>   |         (define-key gtags-mode-map "\es" 'gtags-find-symbol)
>   |         (define-key gtags-mode-map "\er" 'gtags-find-rtag)
>   |         (define-key gtags-mode-map "\et" 'gtags-find-tag)
>   |         (define-key gtags-mode-map "\ev" 'gtags-visit-rootdir)
>   |         (if (not gtags-running-xemacs) nil
>   |             (define-key gtags-mode-map 'button3 'gtags-pop-stack)
>   |             (define-key gtags-mode-map 'button2 'gtags-find-tag-by-event))
>   |         (if gtags-running-xemacs nil
>   |             (define-key gtags-mode-map [mouse-3] 'gtags-pop-stack)
>   |             (define-key gtags-mode-map [mouse-2] 
> 'gtags-find-tag-by-event))
>   |))
>   | 
>   |(setq gtags-select-mode-hook
>   |   '(lambda ()
>   |         (if (not gtags-running-xemacs) nil
>   |             (define-key gtags-select-mode-map 'button3 'gtags-pop-stack)
>   |             (define-key gtags-select-mode-map 'button2 
> 'gtags-select-tag-by-event))
>   |         (if gtags-running-xemacs nil
>   |             (define-key gtags-select-mode-map [mouse-3] 'gtags-pop-stack)
>   |             (define-key gtags-select-mode-map [mouse-2] 
> 'gtags-select-tag-by-event))
>   |))
> 
> As a result, the following mappings remain assuming that is compulsory.
> 
> (define-key gtags-mode-map "\e*" 'gtags-pop-stack)
> (define-key gtags-mode-map "\e." 'gtags-find-tag)
> (define-key gtags-mode-map "\C-x4." 'gtags-find-tag-other-window)
> 
> (define-key gtags-select-mode-map "\e*" 'gtags-pop-stack)
> (define-key gtags-select-mode-map "\^?" 'scroll-down)
> (define-key gtags-select-mode-map " " 'scroll-up)
> (define-key gtags-select-mode-map "\C-b" 'scroll-down)
> (define-key gtags-select-mode-map "\C-f" 'scroll-up)
> (define-key gtags-select-mode-map "k" 'previous-line)
> (define-key gtags-select-mode-map "j" 'next-line)
> (define-key gtags-select-mode-map "p" 'previous-line)
> (define-key gtags-select-mode-map "n" 'next-line)
> (define-key gtags-select-mode-map "q" 'gtags-pop-stack)
> (define-key gtags-select-mode-map "u" 'gtags-pop-stack)
> (define-key gtags-select-mode-map "\C-t" 'gtags-pop-stack)
> (define-key gtags-select-mode-map "\C-m" 'gtags-select-tag)
> (define-key gtags-select-mode-map "\C-o" 'gtags-select-tag-other-window)
> (define-key gtags-select-mode-map "\e." 'gtags-select-tag)
> 
> What do you think?

Any chance of getting the per-frame tag stack. 

http://lists.gnu.org/archive/html/bug-global/2009-03/msg00002.html

-aneesh