/[emacs]/emacs/leim/quail/uni-input.el
ViewVC logotype

Diff of /emacs/leim/quail/uni-input.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by handa, Tue Sep 21 02:25:16 2004 UTC revision 1.7 by handa, Sat Sep 25 02:08:41 2004 UTC
# Line 99  Line 99 
99                          (ucs-input-insert-char key))                          (ucs-input-insert-char key))
100                      (let ((last-command-char key)                      (let ((last-command-char key)
101                            (current-prefix-arg))                            (current-prefix-arg))
102                        (condition-case nil                        (condition-case err
103                            (call-interactively (key-binding seq))))                            (call-interactively (key-binding seq))
104                            (quail-error (message "%s" (cdr err)) (beep))))
105                      (quail-delete-region)                      (quail-delete-region)
106                      (throw 'non-digit (append (reverse events)                      (throw 'non-digit (append (reverse events)
107                                                (listify-key-sequence seq))))))                                                (listify-key-sequence seq))))))

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26