lisp/term/mac-win.el

42 ;; Command line		Resource Manager string
87 (defvar mac-ts-active-input-overlay)
115 			    (string-to-number (car x-invocation-args)))
213       (if (string-match "^--[^=]*=" this-switch)
217       (if (string-match "^--" this-switch)
246 (defconst mac-pointer-arrow 0)
247 (defconst mac-pointer-copy-arrow 1)
248 (defconst mac-pointer-alias-arrow 2)
249 (defconst mac-pointer-contextual-menu-arrow 3)
276 (defconst x-pointer-left-ptr mac-pointer-arrow)
284 (defconst x-pointer-sb-h-double-arrow mac-pointer-resize-left-right)
287 (defconst x-pointer-sb-v-double-arrow mac-pointer-resize-up-down)
1116 XLFD-CHARSET is a string which will appear in the XLFD font name
1256 ;;;; Conversion between common flavors and Lisp string.
1264 (defun mac-utxt-to-string (data &optional coding-system)
1270 	 (str (and (fboundp 'mac-code-convert-string)
1271 		   (mac-code-convert-string data nil
1274       (setq str (decode-coding-string str coding-system))
1278 	  (if (string-match "[\xa0\xfd-\xff]" str)
1281 	    (unless (mac-code-convert-string data nil mac-text-encoding-ascii)
1282 	      (subst-char-in-string ?\x5c ?\(J\(B str t)
1283 	      (subst-char-in-string ?\x80 ?\\ str t)))))
1285 	(decode-coding-string data
1288 (defun mac-string-to-utxt (string &optional coding-system)
1291     (when (and (fboundp 'mac-code-convert-string)
1293 		     (find-coding-systems-string string)))
1296       (let ((str string))
1300 	  (setq str (subst-char-in-string ?\\ ?\x80 str))
1301 	  (subst-char-in-string ?\(J\(B ?\x5c str t)
1303 	  (if (string-match "\\`[\x00-\x7f]*\\'" str)
1306 	     (setq data (mac-code-convert-string
1307 			 (encode-coding-string str coding-system)
1309     (or data (encode-coding-string string (if (eq (byteorder) ?B)
1313 (defun mac-TEXT-to-string (data &optional coding-system)
1315   (prog1 (setq data (decode-coding-string data coding-system))
1317       ;; (subst-char-in-string ?\x5c ?\(J\(B data t)
1318       (subst-char-in-string ?\x80 ?\\ data t))))
1320 (defun mac-string-to-TEXT (string &optional coding-system)
1322   (let ((encodables (find-coding-systems-string string))
1332     ;; (setq string (subst-char-in-string ?\\ ?\x80 string))
1333     (setq string (subst-char-in-string ?\(J\(B ?\x5c string)))
1334   (encode-coding-string string coding-system))
1336 (defun mac-furl-to-string (data)
1343 (defun mac-TIFF-to-string (data &optional text)
1367 ;;; Make TEXT, a string, the primary X selection.
1397 	     (setq data (mac-utxt-to-string data coding)))
1399 	     (setq data (mac-TEXT-to-string data coding)))
1401 	     (setq data (mac-furl-to-string data))))
1423       (setq text (mac-TIFF-to-string tiff-image text)))
1436       (if (string= clip-text "") (setq clip-text nil))
1443 	     ((or (not clip-text) (string= clip-text ""))
1446 	     ((string= clip-text x-last-selected-text-clipboard)
1447 	      ;; Record the newer string,
1461 	   ((or (not primary-text) (string= primary-text ""))
1464 	   ((string= primary-text x-last-selected-text-primary)
1465 	    ;; Record the newer string,
1492 (defun mac-select-convert-to-string (selection type value)
1493   (let ((str (cdr (xselect-convert-to-string selection nil value)))
1504 	    (setq str (mac-string-to-utxt str coding)))
1506 	    (setq str (mac-string-to-TEXT str coding)))
1518 	(setq filename (encode-coding-string filename coding)))
1521 		 (mapconcat 'url-hexify-string
1522 			    (split-string filename "/") "/")))))
1526        '((public.utf16-plain-text . mac-select-convert-to-string)
1527 	 (com.apple.traditional-mac-plain-text . mac-select-convert-to-string)
1597 	(let ((num (string-to-number str)))
1641 	 (decode-coding-string utf8-text 'utf-8))))
1655 	  (if (string= (frame-parameter (car rest) 'window-id) window-id)
1730 		   (mapconcat 'url-hexify-string
1731 			      (split-string file-name "/") "/")) nil)))
1745 	      (mapconcat 'regexp-quote (split-string search-text) "\\|")
1764     (if (string= (url-type parsed-url) "mailto")
1863 (setq mac-ts-active-input-overlay (make-overlay 0 0))
1992 (defun mac-split-string-by-property-change (string)
1993   (let ((tail (length string))
1996       (while (setq head (previous-property-change tail string)
1997 		   result (cons (substring string (or head 0) tail) result)
2001 (defun mac-replace-untranslated-utf-8-chars (string &optional to-string)
2002   (or to-string (setq to-string "$,3u=(B"))
2005      (if (get-text-property 0 'untranslated-utf-8 str) to-string str))
2006    (mac-split-string-by-property-change string)
2018 (defun mac-unread-string (string)
2023 		 (mac-replace-untranslated-utf-8-chars string))))
2035 			 'mac-TEXT-to-string 'mac-utxt-to-string))
2065 	  active-input-string caret-seen)
2068       (setq active-input-string
2082 	     (mac-split-string-by-property-change mac-ts-active-input-buf)
2084       (put-text-property 0 (length active-input-string)
2085 			 'mac-ts-active-input-string t active-input-string)
2091 		     ;; `active-input-string'.
2092 		     (null (get-text-property 0 'mac-ts-active-input-string
2095 				      (concat msg active-input-string)))
2096 	      (setq msg active-input-string))
2098 	    (overlay-put mac-ts-active-input-overlay 'before-string nil))
2099 	(move-overlay mac-ts-active-input-overlay
2101 	(overlay-put mac-ts-active-input-overlay 'before-string
2102 		     active-input-string))
2103       (mac-unread-string (funcall decode-fun confirmed coding)))
2117 	(mac-unread-string (mac-utxt-to-string text coding)))))
2186 	    (intern (decode-coding-string service-message 'utf-8)))
2199 				     (cons "TEXT" (error-message-string err)))
2234   (dnd-handle-one-url window action (mac-furl-to-string data)))
2246 		      (mapconcat 'url-hexify-string
2247 				 (split-string file-name "/") "/"))))
2251   (dnd-insert-text window action (mac-utxt-to-string data)))
2254   (dnd-insert-text window action (mac-TEXT-to-string data)))
2257   (dnd-insert-text window action (mac-TIFF-to-string data)))
2307       (while (setq i (string-match "[.*]" x-resource-name))
2458 also nil.  If BASE-FAMILY is a string, `%s' in FAMILY-FORMAT is
2459 replaced with the string.  Otherwise, `%s' in FAMILY-FORMAT is
2490 Optional 2nd arg FONTSET-NAME is a string to be used in
2507 		   (if (string-match "\\`-adobe-courier-\\([^-]*\\)-\\(.\\)-\\(.*\\)-iso8859-1\\'" font)
2509 			(if (string= (match-string 2 font) "o")
2561       (if (string= "fontset" (aref xlfd-fields xlfd-regexp-registry-subnum))
2565 	(if (and (string= "mac" (aref xlfd-fields xlfd-regexp-registry-subnum))
2566 		 (string= "roman" (aref xlfd-fields xlfd-regexp-encoding-subnum)))
2602 	     (string-match "^\\(true\\|yes\\|on\\)$" rv))
2720     (set v (decode-coding-string (symbol-value v) mac-system-coding-system))))
2724 ;; (if (string= default-directory "/")