[Top][All Lists]
[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/international/quail.el,v,
Chong Yidong <=