|
| From: | LanX |
| Subject: | Re: managing my keybindings |
| Date: | Sun, 9 May 2010 12:12:45 -0700 (PDT) |
| User-agent: | G2/1.0 |
WORKS! :)
-----------------------------
(defun mine (func comment) ""
(let (my-func)
(setq my-func (intern (concat "my-" (symbol-name func))))
(defalias my-func func comment)
my-func
)
)
(local-set-key (kbd "M-a") (mine 'mark-whole-buffer "optional Comment
for Binding"))
(describe-key (kbd "M-a"))
--------------------------
| [Prev in Thread] | Current Thread | [Next in Thread] |