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 <[email protected]> PGP fingerprint: D1CB 0B89 B346 4AB6 5663 C4B6 3CA5 BBB3 57BE DDA3 _______________________________________________ Bug-global mailing list [email protected] http://lists.gnu.org/mailman/listinfo/bug-global
