Mercurial > hg > xemacs-beta

comparison lisp/x11/x-init.el @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents 131b0175ea99
children 538048ae2ab8
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
151 (if (featurep 'toolbar) 151 (if (featurep 'toolbar)
152 (init-x-toolbar)) 152 (init-x-toolbar))
153 (if (featurep 'mule) 153 (if (featurep 'mule)
154 (init-mule-x-win)) 154 (init-mule-x-win))
155 ;; these are only ever called if zmacs-regions is true. 155 ;; these are only ever called if zmacs-regions is true.
156 (add-hook 'zmacs-deactivate-region-hook 'x-disown-selection) 156 (add-hook 'zmacs-deactivate-region-hook
157 (add-hook 'zmacs-activate-region-hook 'x-activate-region-as-selection) 157 (lambda ()
158 (add-hook 'zmacs-update-region-hook 'x-activate-region-as-selection) 158 (if (console-on-window-system-p)
159 159 (x-disown-selection))))
160 (add-hook 'zmacs-activate-region-hook
161 (lambda ()
162 (if (console-on-window-system-p)
163 (x-activate-region-as-selection))))
164 (add-hook 'zmacs-update-region-hook
165 (lambda ()
166 (if (console-on-window-system-p)
167 (x-activate-region-as-selection))))
160 ;; Motif-ish bindings 168 ;; Motif-ish bindings
161 ;; The following two were generally unliked. 169 ;; The following two were generally unliked.
162 ;;(define-key global-map '(shift delete) 'x-kill-primary-selection) 170 ;;(define-key global-map '(shift delete) 'x-kill-primary-selection)
163 ;;(define-key global-map '(control delete) 'x-delete-primary-selection) 171 ;;(define-key global-map '(control delete) 'x-delete-primary-selection)
164 (define-key global-map '(shift insert) 'x-yank-clipboard-selection) 172 (define-key global-map '(shift insert) 'x-yank-clipboard-selection)