[Emacs-diffs] Changes to emacs/lisp/international/quail.el

[Juanma Barranquero]

Index: emacs/lisp/international/quail.el
diff -c emacs/lisp/international/quail.el:1.125 
emacs/lisp/international/quail.el:1.126
*** emacs/lisp/international/quail.el:1.125     Sat Nov  9 07:55:37 2002
--- emacs/lisp/international/quail.el   Tue Feb  4 08:09:38 2003
***************
*** 147,153 ****
        title
        (condition-case nil
          (mapconcat
!          (lambda (x) 
             (cond ((stringp x) x)
                   ((and (listp x) (symbolp (car x)) (= (length x) 3))
                    (if (symbol-value (car x))
--- 147,153 ----
        title
        (condition-case nil
          (mapconcat
!          (lambda (x)
             (cond ((stringp x) x)
                   ((and (listp x) (symbolp (car x)) (= (length x) 3))
                    (if (symbol-value (car x))
***************
*** 2404,2410 ****
  
  (define-button-type 'quail-keyboard-layout-button
    :supertype 'help-xref
!   'help-function '(lambda (layout) 
                    (help-setup-xref `(quail-keyboard-layout-button ,layout) 
nil)
                    (quail-show-keyboard-layout layout))
    'help-echo (purecopy "mouse-2, RET: show keyboard layout"))
--- 2404,2410 ----
  
  (define-button-type 'quail-keyboard-layout-button
    :supertype 'help-xref
!   'help-function '(lambda (layout)
                    (help-setup-xref `(quail-keyboard-layout-button ,layout) 
nil)
                    (quail-show-keyboard-layout layout))
    'help-echo (purecopy "mouse-2, RET: show keyboard layout"))