Mercurial > emacs
comparison lisp/term/x-win.el @ 51181:9de1323b5882
(iconify-or-deiconify-frame): Move to frame.el.
Turn on mouse-wheel support by default.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 24 May 2003 16:13:06 +0000 |
| parents | ca35e855ba24 |
| children | c2c18aa16be3 |
comparison
equal
deleted
inserted
replaced
| 51180:8444fb4d51cf | 51181:9de1323b5882 |
|---|---|
| 241 (error "%s: missing argument to `%s' option" (invocation-name) switch)) | 241 (error "%s: missing argument to `%s' option" (invocation-name) switch)) |
| 242 (setq x-session-previous-id (car x-invocation-args) | 242 (setq x-session-previous-id (car x-invocation-args) |
| 243 x-invocation-args (cdr x-invocation-args))) | 243 x-invocation-args (cdr x-invocation-args))) |
| 244 | 244 |
| 245 (defvar emacs-save-session-functions nil | 245 (defvar emacs-save-session-functions nil |
| 246 "Functions to run when a save-session event occurs. | 246 "Special hook run when a save-session event occurs. |
| 247 The functions does not get any argument. | 247 The functions do not get any argument. |
| 248 Functions can return non-nil to inform the session manager that the | 248 Functions can return non-nil to inform the session manager that the |
| 249 window system shutdown should be aborted. | 249 window system shutdown should be aborted. |
| 250 | 250 |
| 251 See also `emacs-session-save'.") | 251 See also `emacs-session-save'.") |
| 252 | 252 |
| 1156 (and (color-supported-p this-color frame t) | 1156 (and (color-supported-p this-color frame t) |
| 1157 (setq defined-colors (cons this-color defined-colors)))) | 1157 (setq defined-colors (cons this-color defined-colors)))) |
| 1158 defined-colors)) | 1158 defined-colors)) |
| 1159 | 1159 |
| 1160 ;;;; Function keys | 1160 ;;;; Function keys |
| 1161 | |
| 1162 (defun iconify-or-deiconify-frame () | |
| 1163 "Iconify the selected frame, or deiconify if it's currently an icon." | |
| 1164 (interactive) | |
| 1165 (if (eq (cdr (assq 'visibility (frame-parameters))) t) | |
| 1166 (iconify-frame) | |
| 1167 (make-frame-visible))) | |
| 1168 | 1161 |
| 1169 (substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame | 1162 (substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame |
| 1170 global-map) | 1163 global-map) |
| 1171 | 1164 |
| 1172 ;; Map certain keypad keys into ASCII characters | 1165 ;; Map certain keypad keys into ASCII characters |
| 2365 (setq split-window-keep-point t) | 2358 (setq split-window-keep-point t) |
| 2366 | 2359 |
| 2367 ;; Don't show the frame name; that's redundant with X. | 2360 ;; Don't show the frame name; that's redundant with X. |
| 2368 (setq-default mode-line-frame-identification " ") | 2361 (setq-default mode-line-frame-identification " ") |
| 2369 | 2362 |
| 2370 ;;; Motif direct handling of f10 wasn't working right, | 2363 ;; Motif direct handling of f10 wasn't working right, |
| 2371 ;;; So temporarily we've turned it off in lwlib-Xm.c | 2364 ;; So temporarily we've turned it off in lwlib-Xm.c |
| 2372 ;;; and turned the Emacs f10 back on. | 2365 ;; and turned the Emacs f10 back on. |
| 2373 ;;; ;; Motif normally handles f10 itself, so don't try to handle it a second time. | 2366 ;; ;; Motif normally handles f10 itself, so don't try to handle it a second time. |
| 2374 ;;; (if (featurep 'motif) | 2367 ;; (if (featurep 'motif) |
| 2375 ;;; (global-set-key [f10] 'ignore)) | 2368 ;; (global-set-key [f10] 'ignore)) |
| 2369 | |
| 2370 ;; Turn on support for mouse wheels. | |
| 2371 (mouse-wheel-mode 1) | |
| 2376 | 2372 |
| 2377 ;;; x-win.el ends here | 2373 ;;; x-win.el ends here |