Mercurial > hg > xemacs-beta
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 |