RE: How to get current keymap

["Drew Adams" <drew.adams@oracle.com>]

> >> I used (concat (symbol-name major-mode) "-map") to get 
> >> current keymap, but it failed for LaTeX mode. Are there
> >> other methode to get current keymap.
> > 
> > If I enter a buffer, do `M-x latex-mode',
> > then M-: (concat (symbol-name major-mode) "-map")
> > it returns "latex-mode-map". What did you want?
> > 
> > That's the name of a symbol whose value is the latex mode 
> > keymap. If you want the keymap itself, then you want this:
> > 
> > (symbol-value ; Value of
> >  (intern      ; Symbol whose name is
> >   (concat (symbol-name major-mode) "-map")))
> > 
> > However, (current-local-map) gives you the same thing, and 
> > it works regardless of the name of the symbol.
> > 
> > (eq (symbol-value
> >      (intern
> >       (concat (symbol-name major-mode) "-map")))
> >     (current-local-map))
> > 
> > => t
> 
> A different way to find the symbol, instead of relying on its name:
> 
> (when (current-local-map)
>    (let ((result nil))
>      (mapatoms (function (lambda (symbol)
> 			  (when (and (boundp symbol)
> 				     (eq (symbol-value symbol)
> 					 (current-local-map)))
> 			    (push symbol result)))))
>    result))

Yes. To be clear, I didn't mean to suggest that one should use the
map-variable's name, or that the above `eq' sexp would always return t. What I
meant was that, for _LaTeX_ mode, the two expressions are `eq'. I should have
made that clear. My point was to _not_ rely on the name, but to use
`current-local-map' instead.

Most uses of keymaps never require knowing the map variable itself; its value
can be used directly. But if for some reason one needs the map variable, then
the code you provided is the way to go.