Mercurial > emacs

comparison lisp/term/mac-win.el @ 50331:5742fd7a94a7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(iconify-or-deiconify-frame): Define for compatibility with packages that use it.
author Juanma Barranquero <lekktu@gmail.com>
date Fri, 28 Mar 2003 17:46:09 +0000
parents 5ade352e8d1c
children 201ff32466bc
comparison
equal deleted inserted replaced
50330:e3d87b72b575 50331:5742fd7a94a7
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)))
174 181
175 ; Define constant values to be set to mac-keyboard-text-encoding 182 ; Define constant values to be set to mac-keyboard-text-encoding
176 (defconst kTextEncodingMacRoman 0) 183 (defconst kTextEncodingMacRoman 0)
177 (defconst kTextEncodingISOLatin1 513 "0x201") 184 (defconst kTextEncodingISOLatin1 513 "0x201")
178 (defconst kTextEncodingISOLatin2 514 "0x202") 185 (defconst kTextEncodingISOLatin2 514 "0x202")