Mercurial > hg > xemacs-beta

comparison lisp/x11/x-init.el @ 50:ee648375d8d6 r19-16b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b91
author cvs
date Mon, 13 Aug 2007 08:56:41 +0200
parents 56c54cf7c5b6
children 131b0175ea99
comparison
equal deleted inserted replaced
49:b46643e427ac 50:ee648375d8d6
81 (interactive) 81 (interactive)
82 (ow-find t)) 82 (ow-find t))
83 83
84 (defun x-initialize-compose () 84 (defun x-initialize-compose ()
85 "Enable compose processing" 85 "Enable compose processing"
86 (require 'x-compose)) 86 (when (x-keysym-on-keyboard-p "Multi_key")
87 (require 'x-compose)))
87 88
88 ;;; Load X-server specific code. 89 ;;; Load X-server specific code.
89 ;;; Specifically, load some code to repair the grievous damage that MIT and 90 ;;; Specifically, load some code to repair the grievous damage that MIT and
90 ;;; Sun have done to the default keymap for the Sun keyboards. 91 ;;; Sun have done to the default keymap for the Sun keyboards.
91 92