comparison lisp/gtk-init.el @ 487:54fa1a5c2d12

[xemacs-hg @ 2001-04-28 07:48:36 by ben] misc changes, some for 21.4 remove bogus lines setting zmacs_region_stays to 0. remove debug lines. Correct general info about init file. Fix up Cygwin section. More contributions. Fix spurious setting of zmacs-region-stays to t after a non-shift motion command. Sync up with FSF 20.7, to fix bugs handling some etags line formats. Move non-window-system specific code that was duplicated in all window systems into the generic code. * gutter.el (init-gutter): Removed. (unused) Clean up the rectangle code w.r.t. selections. You'll now get the right text copied into the primary selection (but not the clipboard yet, unfortunately -- that really requires defining our own rectangle type).
author ben
date Sat, 28 Apr 2001 07:48:46 +0000
parents 0784d089fdc9
children 7039e6323819
comparison
equal deleted inserted replaced
486:a83afd50994d 487:54fa1a5c2d12
124 (init-post-gtk-win) 124 (init-post-gtk-win)
125 (setq gtk-win-initted t))) 125 (setq gtk-win-initted t)))
126 126
127 (defun init-post-gtk-win () 127 (defun init-post-gtk-win ()
128 (unless gtk-post-win-initted 128 (unless gtk-post-win-initted
129 (if (and (not (featurep 'infodock)) (featurep 'toolbar))
130 (init-x-toolbar))
131 (if (and (featurep 'infodock) (featurep 'toolbar))
132 (require 'id-x-toolbar))
133
134 (when (featurep 'mule) 129 (when (featurep 'mule)
135 (define-specifier-tag 'mule-fonts 130 (define-specifier-tag 'mule-fonts
136 (lambda (device) (eq 'gtk (device-type device)))) 131 (lambda (device) (eq 'gtk (device-type device))))
137 (set-face-font 132 (set-face-font
138 'default 133 'default
185 "-*-mincho-medium-r-*--*-ksc5601.1987-*" ; Korean 180 "-*-mincho-medium-r-*--*-ksc5601.1987-*" ; Korean
186 "-*-fixed-medium-r-*--*-tis620.2529-1" ; Thai 181 "-*-fixed-medium-r-*--*-tis620.2529-1" ; Thai
187 ) 182 )
188 'global '(mule-fonts) 'append)) 183 'global '(mule-fonts) 'append))
189 184
190 (add-hook 'zmacs-deactivate-region-hook
191 (lambda ()
192 (if (console-on-window-system-p)
193 (disown-selection))))
194 (add-hook 'zmacs-activate-region-hook
195 (lambda ()
196 (if (console-on-window-system-p)
197 (activate-region-as-selection))))
198 (add-hook 'zmacs-update-region-hook
199 (lambda ()
200 (if (console-on-window-system-p)
201 (activate-region-as-selection))))
202
203 (define-key global-map 'menu 'popup-mode-menu)
204 (setq gtk-post-win-initted t))) 185 (setq gtk-post-win-initted t)))
205 186
206 (push '("-geometry" . gtk-init-handle-geometry) command-switch-alist) 187 (push '("-geometry" . gtk-init-handle-geometry) command-switch-alist)
207 188
208 ;;; Stuff to get compose keys working on GTK 189 ;;; Stuff to get compose keys working on GTK