1#@!#!123s

��JFIF�� 1#@!#!123s
: / usr / share / emacs / 24.3 / lisp / term /
Filename : ns-win.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:12:51 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/term/ns-win.el
;;; in Emacs version 24.3
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\204\f�\302\303\304 \"\210\305\306!\210\305\307!\210\305\310!\210\305\311!\210\305\312!\210\313\301\314\315\316\317%\207" [featurep ns error "%s: Loading ns-win.el but not compiled for GNUstep/MacOS" invocation-name require frame mouse faces menu-bar fontset custom-declare-group nil "GNUstep/Mac OS X specific features." :group environment] 6)
(defvar ns-command-line-resources nil)
(defalias 'ns-handle-nxopen #[513 "\303\203\n�\304\202�\305\"\303	\n\211A@C\"\211\207" [unread-command-events ns-input-file x-invocation-args append (ns-open-temp-file) (ns-open-file)] 6 "\n\n(fn SWITCH &optional TEMP)"])
(defalias 'ns-handle-nxopentemp #[257 "\300\301\"\207" [ns-handle-nxopen t] 4 "\n\n(fn SWITCH)"])
(defalias 'ns-ignore-1-arg #[257 "A\211\207" [x-invocation-args] 3 "\n\n(fn SWITCH)"])
#@195 Parse a Nextstep-style geometry string GEOM.
Returns an alist of the form ((top . TOP), (left . LEFT) ... ).
The properties returned may include `top', `left', `height', and `width'.

(fn GEOM)
(defalias 'ns-parse-geometry #[257 "\300\301\"\205J�\302\303\304\305\306\307\"!BC\306\310\"\205$�\311\305\306\310\"!BC\306\312\"\2056�\313\305\306\312\"!BC\306\314\"\205H�\315\305\306\314	\"!BCF\"\207" [string-match "\\([0-9]+\\)\\( \\([0-9]+\\)\\( \\([0-9]+\\)\\( \\([0-9]+\\) ?\\)?\\)?\\)?" apply append top string-to-number match-string 1 3 left 5 height 7 width] 11 (#$ . 1374)])
(byte-code "\301\302\303\304#\210\305\211\203(�\211@\302N\203!�\303N\204!�\306\303\302N#\210A\266\202\202�\210\307\302\303\310#\210\311\312\313#\210\311\314\315#\210\311\316\317#\210\311\320\321#\210\311\322\323#\210\311\324\325#\210\311\326\327#\210\311\330\331#\210\311\332\333#\210\311\334\335#\210\311\336\337#\210\311\340\341#\210\311\342\343#\210\311\344\345#\210\311\346\347#\210\311\350\351#\210\311\352\353#\210\311\354\355#\210\311\356\357#\210\311\360\361#\210\311\362\363#\210\311\364\365#\210\311\366\367#\210\311\370\371#\210\311\372\373#\210\311\374\335#\210\311\375\376#\210\311\377\201@�#\210\311\201A�\201B�#\210\311\201C�\201D�#\210\311\201E�\201F�#\210\311\201G�\201H�#\210\311\201I�\201J�#\210\311\201K�\201L�#\210\311\201M�\201N�#\210\311\201O�\201P�#\210\311\201Q�\201R�#\210\311\201S�\201T�#\210\311\201U�\201V�#\210\311\201W�\201X�#\210\311\201Y�\201Z�#\210\311\201[�\201Z�#\210\311\201\\�\201]�#\210\311\201^�\321#\210\311\201_�\201`�#\210\311\201a�\201b�#\210\311\201c�\201`�#\210\311\201d�\201b�#\210\311\201e�\201f�#\210\311\201g�\201h�#\210\311\201i�\201j�#\210\201k�\201l�!\210\311\201m�\201H�#\210\311\201n�\201o�#\210\311\201p�\201q�#\210\311\201r�\201o�#\210\311\201s�\201t�#\210\311\201u�\201v�#\210\311\201w�\201x�#\210\311\201y�\201z�#\210\311\201{�\201|�#\210\311\201}�\201~�#\210\311\201�\201B�#\210\311\201\200�\201\201�#\210\311\201\202�\313#\210\301\201\203�\201\204�\"\210\301\201\205�\201\206�\"\210\301\201\207�\201\210�\"\210\301\201\211�\201\212�\"\210\301\201\213�\201\214�\"\210\301\201\215�\201\216�\"\210\301\201\217�\201\220�\"\210\301\201\221�\201\222�\"\210\201\223�\201\224�\201\225�\"\207" [global-map defvaralias ns-alternatives-map x-alternatives-map nil (saved-value saved-variable-comment) put make-obsolete-variable "24.1" define-key [8388652] customize [8388647] next-multiframe-window [8388704] other-frame [8388734] ns-prev-frame [8388653] center-line [8388666] ispell [8388667] ispell-next [8388671] info [8388702] kill-some-buffers [8388646] kill-this-buffer [8388675] ns-popup-color-panel [8388676] dired [8388677] edit-abbrevs [8388684] shell-command [8388685] manual-entry [8388691] ns-write-file-using-panel [8388705] mark-whole-buffer [8388707] ns-copy-including-secondary [8388708] isearch-repeat-backward [8388709] isearch-yank-kill [8388710] isearch-forward [8388711] isearch-repeat-forward [8388712] ns-do-hide-emacs [8388680] ns-do-hide-others [8388714] exchange-point-and-mark [8388715] [8388716] goto-line [8388717] iconify-frame [8388718] make-frame [8388719] ns-open-file-using-panel [8388720] ns-print-buffer [8388721] save-buffers-kill-emacs [8388723] save-buffer [8388724] ns-popup-font-panel [8388725] revert-buffer [8388726] yank [8388727] delete-frame [8388728] kill-region [8388729] ns-paste-secondary [8388730] undo [8388732] shell-command-on-region [s-kp-bar] [s-right] ns-next-frame [s-left] [home] beginning-of-buffer [end] end-of-buffer [kp-home] [kp-end] [kp-prior] scroll-down-command [kp-next] scroll-up-command [S-mouse-1] mouse-save-then-kill global-unset-key [S-down-mouse-1] [ns-power-off] [ns-open-file] ns-find-file [ns-open-temp-file] [ns-open-file] [ns-drag-file] [ns-drag-color] ns-set-foreground-at-mouse [S-ns-drag-color] ns-set-background-at-mouse [ns-drag-text] ns-insert-text [ns-change-font] ns-respond-to-change-font [ns-open-file-line] ns-open-file-select-line [ns-spi-service-call] ns-spi-service-call [ns-new-frame] [ns-toggle-toolbar] ns-toggle-toolbar [ns-show-prefs] mac-allow-anti-aliasing ns-antialias-text mac-command-modifier ns-command-modifier mac-right-command-modifier ns-right-command-modifier mac-control-modifier ns-control-modifier mac-right-control-modifier ns-right-control-modifier mac-option-modifier ns-option-modifier mac-right-option-modifier ns-right-option-modifier mac-function-modifier ns-function-modifier defalias do-applescript ns-do-applescript] 7)
(defalias 'ns-define-service #[257 "\301\302\303\304#\305\306\307\310\302\303\311	B\312##!\313\314\315\316\317\320!\321\"\322\323\324&\"\210\325\"\203q�A\203\\�\317\305@!C\"\262\326\325\"!\204U�\327@\330@!B#\210A\262\202.�\317\305@!C\"\262\327@B#\210\207" [global-map [menu-bar services] mapconcat identity "/" intern subst-char-in-string 32 45 "ns-service" "-" defalias make-byte-code 257 "\211;\203	�\211\202�	\205�\303 \304 {\305\300\";\203�\211\202>�\211\205>�\203.�\230?\205>�	\2038�\303 \304 |\210\211c\210\306\211\207" vconcat vector [mark-active deactivate-mark region-beginning region-end ns-perform-service nil] 5 "\n\n(fn ARG)" "p" lookup-key keymapp define-key make-sparse-keymap] 13 "\n\n(fn PATH)"])
#@37 Respond to a service request.

(fn)
(defalias 'ns-spi-service-call #[0 "\302\230\203�\303\304\305!!\210	c\207\306\230\203�\307	\310\"\207\311\230\203,�\312 \210\313 \210\314y\210	c\207\315\230\2036�\312	!\207\316\317\320Q!\207" [ns-input-spi-name ns-input-spi-arg "open-selection" switch-to-buffer generate-new-buffer "*untitled*" "open-file" dnd-open-file nil "mail-selection" compose-mail rfc822-goto-eoh 1 "mail-to" error "Service " " not recognized"] 4 (#$ . 6690) nil])
(custom-declare-face 'ns-working-text-face '((t :underline t)) "Face used to highlight working text during compose sequence insert." :group 'ns)
#@151 Overlay used to highlight working text during compose sequence insert.
When text is in th echo area, this just stores the length of the working text.
(defvar ns-working-overlay nil (#$ . 7324))
#@108 Whether, for purposes of inserting working composition text, the minibuffer
is currently being used.

(fn)
(defalias 'ns-in-echo-area #[0 "\206>�	\203
�\302 \206>�\303`\304\"\206>�o?\205>�\303`\305\"\203-�\303`S\305\"\303`\305\"=\206>�\303`\306\"\205>�\303`S\306\"\303`\306\"=\207" [isearch-mode cursor-in-echo-area current-message get-char-property invisible display composition] 4 (#$ . 7525)])
(defalias 'ns-put-working-text #[0 "\300 \203�\301 \207\302 \207" [ns-in-echo-area ns-echo-working-text ns-insert-working-text] 1 "\n\n(fn)" nil])
(defalias 'ns-unput-working-text #[0 "\300 \207" [ns-delete-working-text] 1 "\n\n(fn)" nil])
#@209 Insert contents of `ns-working-text' as UTF-8 string and mark with
`ns-working-overlay'.  Any previously existing working text is cleared first.
The overlay is assigned the face `ns-working-text-face'.

(fn)
(defalias 'ns-insert-working-text #[0 "\302 \210`c\210\303\304`p\305\306%\211\307\310#\207" [ns-working-text ns-working-overlay ns-delete-working-text overlay-put make-overlay nil t face ns-working-text-face] 8 (#$ . 8171) nil])
#@97 Echo contents of `ns-working-text' in message display area.
See `ns-insert-working-text'.

(fn)
(defalias 'ns-echo-working-text #[0 "\303 \210\304 \211G\305	G	P\262\306\211\n\\\307\310%\210\311\312\")\207" [message-log-max ns-working-text ns-working-overlay ns-delete-working-text current-message nil put-text-property face ns-working-text-face message "%s"] 8 (#$ . 8617)])
#@59 Delete working text and clear `ns-working-overlay'.

(fn)
(defalias 'ns-delete-working-text #[0 "\302!\203\"�\303!\203\"�r\303!q\210\304!\305!|\210\306!\210)\202;�\250\203;�\307 \310\211\311GZO\262\312\313\"\210)\210\310\211\207" [ns-working-overlay message-log-max overlayp overlay-buffer overlay-start overlay-end delete-overlay current-message nil 0 message "%s"] 5 (#$ . 9006) nil])
(byte-code "\301=\203�\302\303\304\"\210\305\306\307\310\311\312\313\314\315\316\303&\n\210\317\306!\210\301\207" [system-type darwin defalias ns-utf8-nfd-post-read-conversion #[257 "\212\214``\\}\210\300 ed|\210\301!c\210deZ\262*\207" [buffer-string ns-convert-utf8-nfd-to-nfc] 4 "Calls `ns-convert-utf8-nfd-to-nfc' to compose char sequences.\n\n(fn LENGTH)"] define-coding-system utf-8-nfd "UTF-8 NFD (decomposed) encoding." :coding-type utf-8 :mnemonic 85 :charset-list (unicode) :post-read-conversion set-file-name-coding-system] 11)
#@52 Insert contents of `ns-input-text' at point.

(fn)
(defalias 'ns-insert-text #[0 "c\210\301\211\207" [ns-input-text nil] 2 (#$ . 9955) nil])
#@142 Insert contents of file `ns-input-file' like insert-file but with less
prompting.  If file is a directory perform a `find-file' on it.

(fn)
(defalias 'ns-insert-file #[0 "\211A@\302!\203�\303!\202�\304`\305!\211A@)\\!\207" [ns-input-file x file-directory-p find-file push-mark insert-file-contents] 6 (#$ . 10105) nil])
#@70 Overlay used to highlight areas in files requested by Nextstep apps.
(defvar ns-select-overlay nil (#$ . 10440))
(make-variable-buffer-local 'ns-select-overlay)
#@110 Open a buffer containing the file `ns-input-file'.
Lines are highlighted according to `ns-input-line'.

(fn)
(defalias 'ns-open-file-select-line #[0 "\306 \210\203\246�\307 \203\246�	\203�\310	!\311\204�\n\205\220�\f\312=\203+�\242\312=\202,�\f\203d�\313 \203d�\314 \203d�
\203G�\315\316
\"\210\311\202d�\317 \320 U\204d�\321\316!\204[�\322\316!\204d�\315\316\317 \320 {\"\210\n\204\200�\323=\204z�\242\312=\203\200�A\204\200�\311\211\202\220�\242\312=\203\212�A\311\324\325!)\210eb\210:\203\242�@A^\202\243�Sy\207\203k	\204\271�\326\327ee\"\211\330\331#\210\212eb\210\332:\203\313�@A^\202\314�!)\212eb\210\332:\203\340�@A]\202\341�T!)\333	#\210\311\204\364�\n\205f\f\312=\203\242\312=\202\f\203:\313 \203:\314 \203:
\203\315\316
\"\210\311\202:\317 \320 U\204:\321\316!\2041\322\316!\204:\315\316\317 \320 {\"\210\n\204V\323=\204P\242\312=\203VA\204V\311\211\202f\242\312=\203`A\311\324\325!)\210b\207	\205t\310	!\211\207" [ns-input-line ns-select-overlay force transient-mark-mode select-active-regions saved-region-selection ns-find-file buffer-modified-p delete-overlay nil only region-active-p display-selections-p x-set-selection PRIMARY region-beginning region-end x-selection-owner-p x-selection-exists-p lambda run-hooks deactivate-mark-hook overlay-put make-overlay face highlight line-beginning-position move-overlay mark-active] 6 (#$ . 10608) nil])
#@60 Removes any Nextstep highlight a buffer may contain.

(fn)
(defalias 'ns-unselect-line #[0 "\205	�\301!\211\207" [ns-select-overlay delete-overlay] 2 (#$ . 12046)])
(add-hook 'first-change-hook 'ns-unselect-line)
(defalias 'get-lisp-resource #[514 "\300\"\211\204\f�\301\202%�\211\226\302\230\203�\303\202%�\211\226\304\230\203\"�\305\202%�\306!\207" [ns-get-resource unbound "YES" t "NO" nil read] 5 "\n\n(fn ARG1 ARG2)"])
#@504 Read file name, prompting with PROMPT in directory DIR.
Use a file selection dialog.  Select DEFAULT-FILENAME in the dialog's file
selection box, if specified.  If MUSTMATCH is non-nil, the returned file
or directory must exist.

This function is only defined on NS, MS Windows, and X Windows with the
Motif or Gtk toolkits.  With the Motif toolkit, ONLY-DIR-P is ignored.
Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories.

(fn PROMPT DIR DEFAULT_FILENAME MUSTMATCH ONLY_DIR_P)
(defalias 'x-file-dialog #[1285 "\300%\207" [ns-read-file-name] 11 (#$ . 12484)])
#@64 Pop up open-file panel, and load the result in a buffer.

(fn)
(defalias 'ns-open-file-using-panel #[0 "\301\302\303\304\303$\211\205�C\211\205�\305 \207" [ns-input-file ns-read-file-name "Select File to Load" nil t ns-find-file] 6 (#$ . 13081) nil])
#@66 Pop up save-file panel, and save buffer in resulting name.

(fn)
(defalias 'ns-write-file-using-panel #[0 "\300\301\302\300\211\211$\262\303!\210\211\205�\304!\207" [nil ns-read-file-name "Save As" message write-file] 6 (#$ . 13343) nil])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable ns-pop-up-frames funcall function #[0 "\300\207" [fresh] 1 "\n\n(fn)"] "Non-nil means open files upon request from the Workspace in a new frame.\nIf t, always do so.  Any other non-nil value means open a new frame\nunless the current buffer is a scratch buffer." :type (choice (const :tag "Never" nil) (const :tag "Always" t) (other :tag "Except for scratch buffer" fresh)) :version "23.1" :group ns] 10)
#@62 Do a `find-file' with the `ns-input-file' as argument.

(fn)
(defalias 'ns-find-file #[0 "\304\305\211A@	\"!\306!\307\310\"\307\311\310\"\203+�\312\313!!\210\314\313!!\210\315!\202h�\n\316=\203O�\211\203O�\317\320!\210\312\313!!\210\314\313!!\210\315!\210\321!\202h�\n\203a�\317\320!\210\322\323\324\")\202h�\317\320!\210\321!\207" [ns-input-file command-line-default-directory ns-pop-up-frames pop-up-frames file-truename expand-file-name find-file-noselect get-buffer-window visible "*scratch*" select-frame window-frame raise-frame select-window fresh ns-hide-emacs activate find-file t pop-to-buffer nil] 7 (#$ . 14092) nil])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [defvaralias ns-option-modifier ns-alternate-modifier ns-right-option-modifier ns-right-alternate-modifier] 3)
(defalias 'ns-do-hide-emacs #[0 "\300\301!\207" [ns-hide-emacs t] 2 "\n\n(fn)" nil])
(defalias 'ns-do-hide-others #[0 "\300 \207" [ns-hide-others] 1 "\n\n(fn)" nil])
(defalias 'ns-do-emacs-info-panel #[0 "\300 \207" [ns-emacs-info-panel] 1 "\n\n(fn)" nil])
#@37 Switch to next visible frame.

(fn)
(defalias 'ns-next-frame #[0 "\300\301!\207" [other-frame 1] 2 (#$ . 15161) nil])
#@41 Switch to previous visible frame.

(fn)
(defalias 'ns-prev-frame #[0 "\300\301!\207" [other-frame -1] 2 (#$ . 15285) nil])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [add-hook before-make-frame-hook #[0 "\302\303 \236A\304\303 \236A:\203�\211A@)\262\211:\203$�\211\211A@)\262\304	\236\206I�\302	\236\206I�?\206I�\211?\206I�\302\305\\B\304\305\\B	BB\211\207" [x parameters left frame-parameters top 25] 7 "\n\n(fn)"] after-make-frame-functions select-frame] 3)
#@132 Switches the tool bar on and off in frame FRAME.
 If FRAME is nil, the change applies to the selected frame.

(fn &optional FRAME)
(defalias 'ns-toggle-toolbar #[256 "\301\302\303\302\"\206�\304\304V\203�\304\202�\305BC\"\210?\205!�\300\306!\207" [tool-bar-mode modify-frame-parameters tool-bar-lines frame-parameter 0 1 t] 7 (#$ . 15770) nil])
#@82 Interactive front-end to `print-buffer': asks for user confirmation first.

(fn)
(defalias 'ns-print-buffer #[0 "\302\303!\203:�<\204�\304\305	!!\203:�\306\307	!>\203:�<\203$�\202%�\310\311\312\313\314 \"!\2035�\315 \2028�\316\317!)\207\315 \207" [last-nonmenu-event last-command-event called-interactively-p interactive char-or-string-p event-basic-type super event-modifiers (mouse-1 POSITION 1) y-or-n-p format "Print buffer %s? " buffer-name print-buffer error "Cancelled"] 4 (#$ . 16127) nil])
(byte-code "\301\302\303\304\305#\210\302\306\304\305#\207" [scalable-fonts-allowed t defalias x-select-font ns-popup-font-panel "Pop up the font panel.\nThis function has been overloaded in Nextstep." mouse-set-font] 4)
#@100 Respond to changeFont: event, expecting `ns-input-font' and
`ns-input-fontsize' of new font.

(fn)
(defalias 'ns-respond-to-change-font #[0 "\302\303 \304BC\"\210\302\303 \305	BC\"\210\306	!\207" [ns-input-fontsize ns-input-font modify-frame-parameters selected-frame fontsize font set-frame-font] 4 (#$ . 16860) nil])
#@211 String of fontset spec of the standard fontset.
This defines a fontset consisting of the Courier and other fonts that
come with OS X.
See the documentation of `create-fontset-from-fontset-spec' for the format.
(defvar ns-standard-fontset-spec (mapconcat 'identity '("-ns-*-*-*-*-*-10-*-*-*-*-*-fontset-standard" "latin:-*-Courier-*-*-*-*-10-*-*-*-*-*-iso10646-1" "han:-*-Kai-*-*-*-*-10-*-*-*-*-*-iso10646-1" "cyrillic:-*-Trebuchet$MS-*-*-*-*-10-*-*-*-*-*-iso10646-1") ",") (#$ . 17187))
(byte-code "\301\302!\203�\303 \210\304\305\306D\307\305\310\304EDC\217\210\311\312\313\314\315#\210\316\313\314\317#\210\312\320\321\315#\210\316\320\321\317#\207" [ns-reg-to-script fboundp new-fontset create-default-fontset #:err funcall #[0 "\301\302\"\207" [ns-standard-fontset-spec create-fontset-from-fontset-spec t] 3 "\n\n(fn)"] error #[257 "\300\301\302\303\"\304#\207" [display-warning initialization format "Creation of the standard fontset failed: %s" :error] 6 "\n\n(fn ERR)"] (("iso8859-1" . latin) ("iso8859-2" . latin) ("iso8859-3" . latin) ("iso8859-4" . latin) ("iso8859-5" . cyrillic) ("microsoft-cp1251" . cyrillic) ("koi8-r" . cyrillic) ("iso8859-6" . arabic) ("iso8859-7" . greek) ("iso8859-8" . hebrew) ("iso8859-9" . latin) ("iso8859-10" . latin) ("iso8859-11" . thai) ("tis620" . thai) ("iso8859-13" . latin) ("iso8859-14" . latin) ("iso8859-15" . latin) ("iso8859-16" . latin) ("viscii1.1-1" . latin) ("jisx0201" . kana) ("jisx0208" . han) ("jisx0212" . han) ("jisx0213" . han) ("gb2312.1980" . han) ("gb18030" . han) ("gbk-0" . han) ("big5" . han) ("cns11643" . han) ("sisheng_cwnn" . bopomofo) ("ksc5601.1987" . hangul) ("ethiopic-unicode" . ethiopic) ("is13194-devanagari" . indian-is13194) ("iso10646.indian-1" . devanagari)) defalias ns-get-cut-buffer-internal ns-get-selection-internal nil make-obsolete "24.1" ns-store-cut-buffer-internal ns-store-selection-internal] 6)
#@44 Returns the value of the pasteboard.

(fn)
(defalias 'ns-get-pasteboard #[0 "\300\301!\207" [ns-get-selection-internal CLIPBOARD] 2 (#$ . 19088)])
#@79 Store STRING into the pasteboard of the Nextstep display server.

(fn STRING)
(defalias 'ns-set-pasteboard #[257 "\211;\204	�\300\301!\210\302\303\"\207" [error "Nonstring given to pasteboard" ns-store-selection-internal CLIPBOARD] 4 (#$ . 19241)])
(defvar ns-last-selected-text nil)
(defalias 'x-selection-value #[0 "\301\211\204	�\302 \262\211\303\230\203�\301\262\211\204�\301\2023�\211=\203$�\301\2023�\211\230\2030�\211\301\2023�\211\211\207" [ns-last-selected-text nil ns-get-pasteboard ""] 3 "\n\n(fn)"])
(defalias 'ns-copy-including-secondary #[0 "\300\301!\210\302\303`\304\305!{\"\207" [call-interactively kill-ring-save ns-store-selection-internal SECONDARY mark t] 5 "\n\n(fn)" nil])
(defalias 'ns-paste-secondary #[0 "\300\301!c\207" [ns-get-selection-internal SECONDARY] 2 "\n\n(fn)" nil])
(byte-code "\300\301\302\"\210\303\304!\210\303\305!\207" [global-set-key [vertical-scroll-bar down-mouse-1] ns-handle-scroll-bar-event global-unset-key [vertical-scroll-bar mouse-1] [vertical-scroll-bar drag-mouse-1]] 3)
#@70 Scroll the frame according to a Nextstep scroller event.

(fn EVENT)
(defalias 'ns-scroll-bar-move #[257 "\300!\211@\3018r\302!q\210\211@A=\203�db\210\2025�\211@\303U\203)�eb\210\2025�\304e\305\306deZ\"#b\210\307 \210\310`\"\210\311\312!\301\245\")\207" [event-end 2 window-buffer 0 + 1 scroll-bar-scale beginning-of-line set-window-start vertical-motion window-height] 11 (#$ . 20282) "e"])
#@74 Handle scroll bar EVENT to emulate Nextstep style scrolling.

(fn EVENT)
(defalias 'ns-handle-scroll-bar-event #[257 "\300!\3018@\302 \303=\203�\304!\202�\305=\203?�\302 =\2039�\306\307\310\311\312\313\314\315\f!\316\"\317\320%DD!\202�\304!\202�\321!\210\322=\203U�\323!b\210\324\325!\210\202|�\326=\203a�\324 \210\202|�\327=\203m�\330 \210\202|�\331=\203|�\323!b\210\330\325!\210\321!\207" [event-start 4 selected-window ratio ns-scroll-bar-move handle eval track-mouse funcall make-byte-code 0 "\301\300!\207" vconcat vector [ns-scroll-bar-move] 2 "\n\n(fn)" select-window up window-start scroll-down 1 above-handle below-handle scroll-up down] 14 (#$ . 20689) "e"])
(defalias 'ns-face-at-pos #[257 "\211@\211A@)\211AA)B\302@A#\303\"\304!\305!\204(�\306\202\235�\307=\2032�\307\202\235�\310=\203<�\311\202\235�:\203\234�rq\210\312\313!@A@B\314!\315	!S\306\n&@\211\316!=\203m�\317\202\226�	\203\203�\320 W\203\203�\211\321 W\203\203�\322\202\226�\323\324#\211:\203\223�\211@\202\224�\211\262\262)\202\235�\306\207" [x mark-active window-at coordinates-in-window-p window-buffer window-edges nil mode-line vertical-line default compute-motion window-start window-end window-width window-point cursor region-beginning region-end region get-char-property face] 16 "\n\n(fn POS)"])
#@75 Set the foreground color at the mouse location to `ns-input-color'.

(fn)
(defalias 'ns-set-foreground-at-mouse #[0 "\301 \211@\302!\211\303=\203�\304\305BC\"\202*�\211\204%�\304\306BC\"\202*�\307#\207" [ns-input-color mouse-position ns-face-at-pos cursor modify-frame-parameters cursor-color foreground-color set-face-foreground] 7 (#$ . 22029) nil])
#@75 Set the background color at the mouse location to `ns-input-color'.

(fn)
(defalias 'ns-set-background-at-mouse #[0 "\301 \211@\302!\211\303=\203�\304\305BC\"\202*�\211\204%�\304\306BC\"\202*�\307#\207" [ns-input-color mouse-position ns-face-at-pos cursor modify-frame-parameters cursor-color background-color set-face-background] 7 (#$ . 22396) nil])
(byte-code "\302\211\302\207" [frame-title-format icon-title-format t] 2)
#@53 Non-nil if Nextstep windowing has been initialized.
(defvar ns-initialized nil (#$ . 22839))
#@66 Initialize Emacs for Nextstep (Cocoa / GNUstep) windowing.

(fn)
(defalias 'ns-initialize-window-system #[0 "\203\n�\303\304\305C\"\210\306	!\307\310 \311\312#\210\313 \211\203?�\211@\211@\314=\203,�\315A!\210\2028�\316\n\317@!\315A!#\210A\266\202\202�\210\320\311\321\"\312=\203W�\320\311\322\"\312=\203W�\323\324\325\"\210\326\320\311\327\"\203c�\330\202d�\331!\210\332\311\333\334#\210\335 \210\312\211\207" [ns-initialized command-line-args global-map signal cl-assertion-failed (not ns-initialized) x-handle-args x-open-connection system-name nil t ns-list-services undefined ns-define-service define-key vector get-lisp-resource "NXAutoLaunch" "HideOnAutoLaunch" add-hook after-init-hook ns-do-hide-emacs menu-bar-mode "Menus" 1 -1 ns-set-resource "ApplePressAndHoldEnabled" "NO" x-apply-session-resources] 7 (#$ . 22938)])
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\311\312!\207" [add-to-list display-format-alist ("\\`ns\\'" . ns) handle-args-function-alist (ns . x-handle-args) frame-creation-function-alist (ns . x-create-frame-with-faces) window-system-initialization-alist (ns . ns-initialize-window-system) provide ns-win] 3)