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

[Shigio YAMAGUCHI]

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?
--
Shigio YAMAGUCHI <address@hidden>
PGP fingerprint: D1CB 0B89 B346 4AB6 5663  C4B6 3CA5 BBB3 57BE DDA3