emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Chong Yidong
Subject: [Emacs-diffs] Changes to emacs/lisp/international/quail.el,v
Date: Fri, 05 Sep 2008 22:08:38 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      08/09/05 22:08:37

Index: quail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/international/quail.el,v
retrieving revision 1.164
retrieving revision 1.165
diff -u -b -r1.164 -r1.165
--- quail.el    6 May 2008 04:18:15 -0000       1.164
+++ quail.el    5 Sep 2008 22:08:37 -0000       1.165
@@ -53,7 +53,7 @@
 
 ;;; Code:
 
-(eval-when-compile (require 'help-mode))
+(require 'help-mode)
 
 (defgroup quail nil
   "Quail: multilingual input method."
@@ -2424,10 +2424,7 @@
        (insert ?\n))
       (insert ?\n))))
 
-(defun quail-help-init ()
-  (unless (featurep 'help-mode)
-    (require 'help-mode)
-    (define-button-type 'quail-keyboard-layout-button
+(define-button-type 'quail-keyboard-layout-button
       :supertype 'help-xref
       'help-function '(lambda (layout)
                        (help-setup-xref `(quail-keyboard-layout-button ,layout)
@@ -2435,16 +2432,16 @@
                        (quail-show-keyboard-layout layout))
       'help-echo (purecopy "mouse-2, RET: show keyboard layout"))
 
-    (define-button-type 'quail-keyboard-customize-button
+(define-button-type 'quail-keyboard-customize-button
       :supertype 'help-customize-variable
-      'help-echo (purecopy "mouse-2, RET: customize keyboard layout"))))
+  'help-echo (purecopy "mouse-2, RET: customize keyboard layout"))
 
 (defun quail-help (&optional package)
   "Show brief description of the current Quail package.
 Optional arg PACKAGE specifies the name of alternative Quail
 package to describe."
   (interactive)
-  (quail-help-init)
+  (require 'help-mode)
   (let ((help-xref-mule-regexp help-xref-mule-regexp-template)
        (mb enable-multibyte-characters)
        (package-def




reply via email to

[Prev in Thread] Current Thread [Next in Thread]