Mercurial > hg > xemacs-beta

comparison lisp/x11/x-init.el @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents b82b59fe008d
children ee648375d8d6
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
78 78
79 (defun ow-find-backward () 79 (defun ow-find-backward ()
80 "Search backward the previous occurrence of the text of the selection." 80 "Search backward the previous occurrence of the text of the selection."
81 (interactive) 81 (interactive)
82 (ow-find t)) 82 (ow-find t))
83
84 (defun x-initialize-compose ()
85 "Enable compose processing"
86 (require 'x-compose))
83 87
84 ;;; Load X-server specific code. 88 ;;; Load X-server specific code.
85 ;;; Specifically, load some code to repair the grievous damage that MIT and 89 ;;; Specifically, load some code to repair the grievous damage that MIT and
86 ;;; Sun have done to the default keymap for the Sun keyboards. 90 ;;; Sun have done to the default keymap for the Sun keyboards.
87 91
179 ;; This runs after the first frame has been created (we can't 183 ;; This runs after the first frame has been created (we can't
180 ;; talk to the X server before that) but before the 184 ;; talk to the X server before that) but before the
181 ;; site-start-file or .emacs file, so sites and users have a 185 ;; site-start-file or .emacs file, so sites and users have a
182 ;; chance to override it. 186 ;; chance to override it.
183 (add-hook 'before-init-hook 'x-initialize-keyboard) 187 (add-hook 'before-init-hook 'x-initialize-keyboard)
188 (add-hook 'before-init-hook 'x-initialize-compose)
184 189
185 (setq post-x-win-initted t))) 190 (setq post-x-win-initted t)))
186 191
187 (defun make-frame-on-display (display &optional parms) 192 (defun make-frame-on-display (display &optional parms)
188 "Create a frame on the X display named DISPLAY. 193 "Create a frame on the X display named DISPLAY.