Mercurial > hg > xemacs-beta

comparison lisp/x11/x-init.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents ac2d302a0011
children 56c54cf7c5b6
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
148 ;; because the icon initialization needs to access the display to get 148 ;; because the icon initialization needs to access the display to get
149 ;; any toolbar-related color resources. 149 ;; any toolbar-related color resources.
150 (if (featurep 'toolbar) 150 (if (featurep 'toolbar)
151 (init-x-toolbar)) 151 (init-x-toolbar))
152 ;; these are only ever called if zmacs-regions is true. 152 ;; these are only ever called if zmacs-regions is true.
153 (add-hook 'zmacs-deactivate-region-hook 'x-disown-selection) 153 (add-hook 'zmacs-deactivate-region-hook
154 (add-hook 'zmacs-activate-region-hook 'x-activate-region-as-selection) 154 (lambda ()
155 (add-hook 'zmacs-update-region-hook 'x-activate-region-as-selection) 155 (if (console-on-window-system-p)
156 156 (x-disown-selection))))
157 (add-hook 'zmacs-activate-region-hook
158 (lambda ()
159 (if (console-on-window-system-p)
160 (x-activate-region-as-selection))))
161 (add-hook 'zmacs-update-region-hook
162 (lambda ()
163 (if (console-on-window-system-p)
164 (x-activate-region-as-selection))))
157 ;; Motif-ish bindings 165 ;; Motif-ish bindings
158 ;; The following two were generally unliked. 166 ;; The following two were generally unliked.
159 ;;(define-key global-map '(shift delete) 'x-kill-primary-selection) 167 ;;(define-key global-map '(shift delete) 'x-kill-primary-selection)
160 ;;(define-key global-map '(control delete) 'x-delete-primary-selection) 168 ;;(define-key global-map '(control delete) 'x-delete-primary-selection)
161 (define-key global-map '(shift insert) 'x-yank-clipboard-selection) 169 (define-key global-map '(shift insert) 'x-yank-clipboard-selection)