Author: sasugaanija
Date: Sun Sep 23 23:53:40 2007
New Revision: 5010
Modified:
trunk/emacs/uim-key.el
Log:
* emacs/uim-key.el
- (uim-this-command-keys-override): Keep the original function's
documentation.
Modified: trunk/emacs/uim-key.el
==============================================================================
--- trunk/emacs/uim-key.el (original)
+++ trunk/emacs/uim-key.el Sun Sep 23 23:53:40 2007
@@ -143,13 +143,15 @@
(defun uim-this-command-keys-override ()
(if (not uim-this-command-keys-original)
- (progn
+ (let ((doc (documentation 'this-command-keys)))
(uim-backup-this-command-keys)
- (defun this-command-keys ()
- (if (and (boundp 'uim-key-vector)
- uim-key-vector)
- uim-key-vector
- (funcall uim-this-command-keys-original))))))
+ (eval
+ `(defun this-command-keys ()
+ ,doc
+ (if (and (boundp 'uim-key-vector)
+ uim-key-vector)
+ uim-key-vector
+ (funcall uim-this-command-keys-original)))))))
(defun uim-command-execute (uim-key-vector &optional bind)
