Mercurial > emacs

comparison lisp/term/mac-win.el @ 51364:b160887e424c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(iconify-or-deiconify-frame): Move to frame.el.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sat, 31 May 2003 16:01:04 +0000
parents 201ff32466bc
children 26fea2099cbc
comparison
equal deleted inserted replaced
51363:2d011e9999e9 51364:b160887e424c
1 ;;; mac-win.el --- support for "Macintosh windows" 1 ;;; mac-win.el --- support for "Macintosh windows"
2 2
3 ;; Copyright (C) 1999, 2000, 2002 Free Software Foundation, Inc. 3 ;; Copyright (C) 1999, 2000, 2002, 2003 Free Software Foundation, Inc.
4 4
5 ;; Author: Andrew Choi <akochoi@mac.com> 5 ;; Author: Andrew Choi <akochoi@mac.com>
6 6
7 ;; This file is part of GNU Emacs. 7 ;; This file is part of GNU Emacs.
8 8
169 ;; Emacs application icon can only be processed when the initial frame 169 ;; Emacs application icon can only be processed when the initial frame
170 ;; has been created: this is where the files should be opened. 170 ;; has been created: this is where the files should be opened.
171 (add-hook 'after-init-hook 171 (add-hook 'after-init-hook
172 '(lambda () 172 '(lambda ()
173 (defvar mac-ready-for-drag-n-drop t))) 173 (defvar mac-ready-for-drag-n-drop t)))
174
175 (defun iconify-or-deiconify-frame ()
176 "Iconify the selected frame, or deiconify if it's currently an icon."
177 (interactive)
178 (if (eq (cdr (assq 'visibility (frame-parameters))) t)
179 (iconify-frame)
180 (make-frame-visible)))
181 174
182 ; Define constant values to be set to mac-keyboard-text-encoding 175 ; Define constant values to be set to mac-keyboard-text-encoding
183 (defconst kTextEncodingMacRoman 0) 176 (defconst kTextEncodingMacRoman 0)
184 (defconst kTextEncodingISOLatin1 513 "0x201") 177 (defconst kTextEncodingISOLatin1 513 "0x201")
185 (defconst kTextEncodingISOLatin2 514 "0x202") 178 (defconst kTextEncodingISOLatin2 514 "0x202")