/[emacs]/emacs/lisp/international/quail.el
ViewVC logotype

Diff of /emacs/lisp/international/quail.el

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

revision 1.125 by fx, Sat Nov 9 12:55:37 2002 UTC revision 1.126 by lektu, Tue Feb 4 13:09:38 2003 UTC
# Line 147  See the documentation of `quail-define-p Line 147  See the documentation of `quail-define-p
147          title          title
148        (condition-case nil        (condition-case nil
149            (mapconcat            (mapconcat
150             (lambda (x)             (lambda (x)
151               (cond ((stringp x) x)               (cond ((stringp x) x)
152                     ((and (listp x) (symbolp (car x)) (= (length x) 3))                     ((and (listp x) (symbolp (car x)) (= (length x) 3))
153                      (if (symbol-value (car x))                      (if (symbol-value (car x))
# Line 2404  should be made by `quail-build-decode-ma Line 2404  should be made by `quail-build-decode-ma
2404    
2405  (define-button-type 'quail-keyboard-layout-button  (define-button-type 'quail-keyboard-layout-button
2406    :supertype 'help-xref    :supertype 'help-xref
2407    'help-function '(lambda (layout)    'help-function '(lambda (layout)
2408                      (help-setup-xref `(quail-keyboard-layout-button ,layout) nil)                      (help-setup-xref `(quail-keyboard-layout-button ,layout) nil)
2409                      (quail-show-keyboard-layout layout))                      (quail-show-keyboard-layout layout))
2410    'help-echo (purecopy "mouse-2, RET: show keyboard layout"))    'help-echo (purecopy "mouse-2, RET: show keyboard layout"))

Legend:
Removed from v.1.125  
changed lines
  Added in v.1.126

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