1 |
;;; mac-win.el --- support for "Macintosh windows" |
;;; mac-win.el --- support for "Macintosh windows" |
2 |
|
|
3 |
;; Copyright (C) 1999, 2000, 2002 Free Software Foundation, Inc. |
;; Copyright (C) 1999, 2000, 2002, 2003 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Andrew Choi <akochoi@mac.com> |
;; Author: Andrew Choi <akochoi@mac.com> |
6 |
|
|
172 |
'(lambda () |
'(lambda () |
173 |
(defvar mac-ready-for-drag-n-drop t))) |
(defvar mac-ready-for-drag-n-drop t))) |
174 |
|
|
|
(defun iconify-or-deiconify-frame () |
|
|
"Iconify the selected frame, or deiconify if it's currently an icon." |
|
|
(interactive) |
|
|
(if (eq (cdr (assq 'visibility (frame-parameters))) t) |
|
|
(iconify-frame) |
|
|
(make-frame-visible))) |
|
|
|
|
175 |
; Define constant values to be set to mac-keyboard-text-encoding |
; Define constant values to be set to mac-keyboard-text-encoding |
176 |
(defconst kTextEncodingMacRoman 0) |
(defconst kTextEncodingMacRoman 0) |
177 |
(defconst kTextEncodingISOLatin1 513 "0x201") |
(defconst kTextEncodingISOLatin1 513 "0x201") |