Mercurial > hg > xemacs-beta

comparison lisp/x-init.el @ 284:558f606b08ae r21-0b40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b40
author cvs
date Mon, 13 Aug 2007 10:34:13 +0200
parents c42ec1d1cded
children 33bdb3d4b97f
comparison
equal deleted inserted replaced
283:fa3d41851a08 284:558f606b08ae
323 (lambda () 323 (lambda ()
324 (if (console-on-window-system-p) 324 (if (console-on-window-system-p)
325 (x-activate-region-as-selection)))) 325 (x-activate-region-as-selection))))
326 ;; Motif-ish bindings 326 ;; Motif-ish bindings
327 ;; The following two were generally unliked. 327 ;; The following two were generally unliked.
328 ;;(define-key global-map '(shift delete) 'x-kill-primary-selection) 328 ;;(define-key global-map '(shift delete) 'kill-primary-selection)
329 ;;(define-key global-map '(control delete) 'x-delete-primary-selection) 329 ;;(define-key global-map '(control delete) 'delete-primary-selection)
330 (define-key global-map '(shift insert) 'x-yank-clipboard-selection) 330 (define-key global-map '(shift insert) 'yank-clipboard-selection)
331 (define-key global-map '(control insert) 'x-copy-primary-selection) 331 (define-key global-map '(control insert) 'copy-primary-selection)
332 ;; These are Sun-isms. 332 ;; These are Sun-isms.
333 (define-key global-map 'copy 'x-copy-primary-selection) 333 (define-key global-map 'copy 'copy-primary-selection)
334 (define-key global-map 'paste 'x-yank-clipboard-selection) 334 (define-key global-map 'paste 'yank-clipboard-selection)
335 (define-key global-map 'cut 'x-kill-primary-selection) 335 (define-key global-map 'cut 'kill-primary-selection)
336 336
337 (define-key global-map 'menu 'popup-mode-menu) 337 (define-key global-map 'menu 'popup-mode-menu)
338 ;;(define-key global-map '(shift menu) 'x-goto-menubar) ;NYI 338 ;;(define-key global-map '(shift menu) 'x-goto-menubar) ;NYI
339 339
340 (setq post-x-win-initted t))) 340 (setq post-x-win-initted t)))