rButtonTemplate 

  
-- Key-binding shortcuts
  local function updatehotkey(self, actionButtonType)
	local replace = string.gsub
	local hotkey = _G[self:GetName() .. 'HotKey']
	local key = hotkey:GetText()
	key = replace(key, '(s%-)', 'S')
	key = replace(key, '(a%-)', 'A')
	key = replace(key, '(c%-)', 'C')
	key = replace(key, '(Mouse Button )', 'M')
	key = replace(key, '(Middle Mouse)', 'M3')
	key = replace(key, '(Mouse Wheel Down)', 'MWD')
	key = replace(key, '(Mouse Wheel Up)', 'MWU')
	key = replace(key, '(Num Pad )', 'N')
	key = replace(key, '(Page Up)', 'PU')
	key = replace(key, '(Page Down)', 'PD')
	key = replace(key, '(Spacebar)', 'SpB')
	key = replace(key, '(Insert)', 'Ins')
	key = replace(key, '(Home)', 'Hm')
	key = replace(key, '(Delete)', 'Del')
	if hotkey:GetText() == _G['RANGE_INDICATOR'] then
		hotkey:SetText('')
	else
		hotkey:SetText(key)
	end
  end

hooksecurefunc("ActionButton_UpdateHotkeys",  updatehotkey)

		
local t = ho:GetText()
if t == _G['RANGE_INDICATOR'] then
  ho:SetText("")
else
  t = t:replace("Num Pad ", "N")
  t = t:replace("Page ", "P-")
  ho:SetText(t)
end

local t = ho:GetText()
if(not t or t=="") then return end
t = t:gsub("Num Pad ", "n")
t = t:gsub("-", "")
ho:SetText(t)

Message: ...erface\AddOns\rActionButtonStyler\func\functions.lua:112: attempt to call method 'GetBindingText' (a nil value)
Time: 10/19/10 23:31:45
Count: 78
Stack: ...erface\AddOns\rActionButtonStyler\func\functions.lua:112: in function <...erface\AddOns\rActionButtonStyler\func\functions.lua:86>
[C]: in function `ActionButton_Update'
Interface\FrameXML\ActionButton.lua:440: in function `ActionButton_OnEvent'
[string "*:OnEvent"]:1: in function <[string "*:OnEvent"]:1>

Locals: self = VehicleMenuBarActionButton6 {
 0 = <userdata>
 feedback_action = 78
 action = 78
 isBonus = 1
 flashing = 0
 rangeTimer = -1
 eventsRegistered = true
 alwaysBonus = 1
 FlyoutBorder = VehicleMenuBarActionButton6FlyoutBorder {
 }
 FlyoutBorderShadow = VehicleMenuBarActionButton6FlyoutBorderShadow {
 }
 flashtime = 0
 FlyoutArrow = VehicleMenuBarActionButton6FlyoutArrow {
 }
 icon = VehicleMenuBarActionButton6Icon {
 }
 bg = VehicleMenuBarActionButton6BG {
 }
}
action = 78
name = "VehicleMenuBarActionButton6"
bu = VehicleMenuBarActionButton6 {
 0 = <userdata>
 feedback_action = 78
 action = 78
 isBonus = 1
 flashing = 0
 rangeTimer = -1
 eventsRegistered = true
 alwaysBonus = 1
 FlyoutBorder = VehicleMenuBarActionButton6FlyoutBorder {
 }
 FlyoutBorderShadow = VehicleMenuBarActionButton6FlyoutBorderShadow {
 }
 flashtime = 0
 FlyoutArrow = VehicleMenuBarActionButton6FlyoutArrow {
 }
 icon = VehicleMenuBarActionButton6Icon {
 }
 bg = VehicleMenuBarActionButton6BG {
 }
}
ic = VehicleMenuBarActionButton6Icon {
 0 = <userdata>
}
co = VehicleMenuBarActionButton6Count {
 0 = <userdata>
}
bo = VehicleMenuBarActionButton6Border {
 0 = <userdata>
 Show = <function> defined @Interface\AddOns\rActionButtonStyler\func\functions.lua:10
}
ho = VehicleMenuBarActionButton6HotKey {
 0 = <userdata>
 SetPoint = <function> defined @Interface\FrameXML\VehicleMenuBar.lua:808
}
cd = VehicleMenuBarActionButton6Cooldown {
 0 = <userdata>
}
na = VehicleMenuBarActionButton6Name {
 0 = <userdata>
}
fl = VehicleMenuBarActionButton6Flash {
 0 = <userdata>
}
nt = VehicleMenuBarActionButton6NormalTexture {
 0 = <userdata>
}
(*temporary) = nil
(*temporary) = VehicleMenuBarActionButton6HotKey {
 0 = <userdata>
 SetPoint = <function> defined @Interface\FrameXML\VehicleMenuBar.lua:808
}
(*temporary) = "attempt to call method 'GetBindingText' (a nil value)"
_G = <table> {
 ActionButton7FlyoutBorder = ActionButton7FlyoutBorder {
 }
 MultiCastActionButton6Cooldown = MultiCastActionButton6Cooldown {
 }
 MerchantItem9ItemButtonStock = MerchantItem9ItemButtonStock {
 }
 GetTrainerServiceTypeFilter = <function> defined =[C]:-1
 UNIT_NAMES_COMBATLOG_TOOLTIP = "Color unit names."
 KBASE_NUM_FAKE_CATEGORIES = 1
 SetTrainerServiceTypeFilter = <function> defined =[C]:-1
 TutorialFrameLeft19 = TutorialFrameLeft19 {
 }
 MultiCastActionButton2Cooldown = MultiCastActionButton2Cooldown {
 }
 ERR_TRADE_EQUIPPED_BAG = "You can't trade equipped bags."
 PVP_RANK_6_1 = "Corporal"
 BOOKTYPE_PROFESSION = "professions"
 AudioOptionsVoicePanelOutputDeviceDropDownButtonHighlightTexture = AudioOptionsVoicePanelOutputDeviceDropDownButtonHighlightTexture {
 }
 InterfaceOptionsDisplayPanelShowAggroPercentageText = InterfaceOptionsDisplayPanelShowAggroPercentageText {
 }
 VideoOptionsFrameDefaults = VideoOptionsFrameDefaults {
 }
 MerchantItem4AltCurrencyFrameItem1Text = MerchantItem4AltCurrencyFrameItem1Text {
 }
 BINDING_NAME_NAMEPLATES = "Show Enemy Name Plates"
 IsReferAFriendLinked = <function> defined =[C]:-1
 MAIL_LETTER_TOOLTIP = "Click to make a permanent
copy of this letter."
 AudioOptionsVoicePanelMicrophoneVolumeThumb = AudioOptionsVoicePanelMicrophoneVolumeThumb {
 }
 ContainerFrame1Item22Cooldown = ContainerFrame1Item22Cooldown {
 }
 CHAT_CONFIG_OTHER_COMBAT = <table> {
 }
 CONSOLIDATED_BUFFS_PER_ROW = 4
 TutorialFrameRight19 = TutorialFrameRight19 {
 }
 MoneyFrame_OnEvent = <function> defined @Interface\FrameXML\MoneyFrame.lua:199
 BN_UNABLE_TO_RESOLVE_NAME = "Unable to whisper '%s'. Battle.net may be

        text = replace(text, '(s%-)', 'S')
        text = replace(text, '(a%-)', 'A')
        text = replace(text, '(c%-)', 'C')
        text = replace(text, '(Mouse Button )', 'M')
        text = replace(text, '(Middle Mouse)', 'M3')
        text = replace(text, '(Num Pad )', 'N')
        text = replace(text, '(Page Up)', 'PU')
        text = replace(text, '(Page Down)', 'PD')
        text = replace(text, '(Spacebar)', 'SpB')
        text = replace(text, '(Insert)', 'Ins')
        text = replace(text, '(Home)', 'Hm')
        text = replace(text, '(Delete)', 'Del')