Re: How to get current keymap

[netawater <netstandin-003@yahoo.com.cn>]

"Drew Adams" <drew.adams@oracle.com> writes:

>> >> 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.
Thank you very much for repling, I have resolved my problem. thanks very much!