/[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.112 by eliz, Tue Nov 6 09:40:16 2001 UTC revision 1.113 by rms, Sun Nov 25 18:53:04 2001 UTC
# Line 2395  should be made by `quail-build-decode-ma Line 2395  should be made by `quail-build-decode-ma
2395          (insert ?\n))          (insert ?\n))
2396        (insert ?\n))))        (insert ?\n))))
2397    
2398    (define-button-type 'quail-keyboard-layout-button
2399      :supertype 'help-xref
2400      'help-function '(lambda (layout)
2401                        (help-setup-xref `(quail-keyboard-layout-button ,layout) nil)
2402                        (quail-show-keyboard-layout layout))
2403      'help-echo (purecopy "mouse-2, RET: show keyboard layout"))
2404    
2405    (define-button-type 'quail-keyboard-customize-button
2406      :supertype 'help-customize-variable
2407      'help-echo (purecopy "mouse-2, RET: customize keyboard layout"))
2408    
2409  (defun quail-help (&optional package)  (defun quail-help (&optional package)
2410    "Show brief description of the current Quail package.    "Show brief description of the current Quail package.
2411  Optional arg PACKAGE specifies the name of alternative Quail  Optional arg PACKAGE specifies the name of alternative Quail
2412  package to describe."  package to describe."
2413    (interactive)    (interactive)
2414    (if package    (require 'help-mode)
       (setq package (assoc package quail-package-alist))  
     (setq package quail-current-package))  
2415    (let ((help-xref-mule-regexp help-xref-mule-regexp-template)    (let ((help-xref-mule-regexp help-xref-mule-regexp-template)
2416          (default-enable-multibyte-characters enable-multibyte-characters))          (default-enable-multibyte-characters enable-multibyte-characters)
2417            (package-def
2418             (if package
2419                 (assoc package quail-package-alist)
2420               quail-current-package)))
2421      ;; At first, make sure that the help buffer has window.      ;; At first, make sure that the help buffer has window.
2422      (help-setup-xref (list #'quail-help package) (interactive-p))      (help-setup-xref (list #'quail-help package) (interactive-p))
2423      (with-output-to-temp-buffer (help-buffer)      (with-output-to-temp-buffer (help-buffer)
2424        (with-current-buffer standard-output        (with-current-buffer standard-output
2425          (setq quail-current-package package)))          (setq quail-current-package package-def)))
2426      ;; Then, insert text in the help buffer while paying attention to      ;; Then, insert text in the help buffer while paying attention to
2427      ;; the width of the frame in which the buffer displayed.      ;; the width of the frame in which the buffer displayed.
2428      (with-current-buffer (help-buffer)      (with-current-buffer (help-buffer)
# Line 2445  This input method works by translating i Line 2458  This input method works by translating i
2458  Assuming that your actual keyboard has the `")  Assuming that your actual keyboard has the `")
2459            (help-insert-xref-button            (help-insert-xref-button
2460             quail-keyboard-layout-type             quail-keyboard-layout-type
2461             #'quail-show-keyboard-layout quail-keyboard-layout-type             'quail-keyboard-layout-button
2462             "mouse-2, RET: show this layout")             quail-keyboard-layout-type)
2463            (insert "' layout,            (insert "' layout,
2464  translation results in the following \"virtual\" keyboard layout:  translation results in the following \"virtual\" keyboard layout:
2465  ")  ")
# Line 2456  translation results in the following \"v Line 2469  translation results in the following \"v
2469  `")  `")
2470            (help-insert-xref-button            (help-insert-xref-button
2471             "standard"             "standard"
2472             #'quail-show-keyboard-layout "standard"             'quail-keyboard-layout-button "standard")
            "mouse-2, RET: show this layout")  
2473            (insert "', the \"virtual\" keyboard you get with this input method            (insert "', the \"virtual\" keyboard you get with this input method
2474  will be rearranged in the same way.  will be rearranged in the same way.
2475    
# Line 2468  physical keyboard layout as specified wi Line 2480  physical keyboard layout as specified wi
2480  ")  ")
2481            (help-insert-xref-button            (help-insert-xref-button
2482             "[customize keyboard layout]"             "[customize keyboard layout]"
2483             #'customize-variable 'quail-keyboard-layout-type             'quail-keyboard-customize-button 'quail-keyboard-layout-type)
            "mouse-2, RET: set keyboard layout type")  
2484            (insert "\n"))            (insert "\n"))
2485    
2486          ;; Show key sequences.          ;; Show key sequences.

Legend:
Removed from v.1.112  
changed lines
  Added in v.1.113

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