Re: How to get current keymap

[Kevin Rodgers <kevin.d.rodgers@gmail.com>]

Drew Adams wrote:
>> 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))

-- 
Kevin Rodgers
Denver, Colorado, USA