mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

(mac-handle-language-change)

Browse source 
(mac-ae-open-documents, mac-ae-get-url, mac-services-open-file)
(mac-services-open-selection, mac-services-mail-selection)
(mac-services-mail-to, mac-services-insert-text)
(mac-dispatch-apple-event): Add docstrings.
(x-get-selection, mac-select-convert-to-string): Select coding
system from `utf-16be' and `utf-16le' using `byteorder'.
This commit is contained in:
YAMAMOTO Mitsuharu 2005-12-19 08:29:06 +00:00
parent 814b36fe09
commit 62ffc23213
1 changed files with 29 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

63
lisp/term/mac-win.el
View file

@ -1140,6 +1140,7 @@ correspoinding TextEncodingBase value."
;;;; Keyboard layout/language change events
(defun mac-handle-language-change (event)
"Set keyboard coding system to what is specified in EVENT."
(interactive "e")
(let ((coding-system
(cdr (assq (car (cadr event)) mac-script-code-coding-systems))))
@ -1201,21 +1202,14 @@ in `selection-converter-alist', which see."
(when (and (stringp data)
(setq data-type (get-text-property 0 'foreign-selection data)))
(cond ((eq data-type 'public.utf16-plain-text)
(if (fboundp 'mac-code-convert-string)
(let ((s (mac-code-convert-string data nil coding)))
(if s
(setq data (decode-coding-string s coding))
(setq data
;; (decode-coding-string data 'utf-16) is
;; not correct because
;; public.utf16-plain-text is defined as
;; native byte order, no BOM.
(decode-coding-string
(mac-code-convert-string data nil 'utf-8)
'utf-8))))
;; No `mac-code-convert-string' means non-Carbon, which
;; implies big endian.
(setq data (decode-coding-string data 'utf-16be))))
(let ((encoded (and (fboundp 'mac-code-convert-string)
(mac-code-convert-string data nil coding))))
(if encoded
(setq data (decode-coding-string encoded coding))
(setq data
(decode-coding-string data
(if (eq (byteorder) ?B)
'utf-16be 'utf-16le))))))
((eq data-type 'com.apple.traditional-mac-plain-text)
(setq data (decode-coding-string data coding)))
((eq data-type 'public.file-url)
@ -1332,25 +1326,17 @@ in `selection-converter-alist', which see."
(remove-text-properties 0 (length str) '(composition nil) str)
(cond
((eq type 'public.utf16-plain-text)
(if (fboundp 'mac-code-convert-string)
(let (s)
(when (memq coding (find-coding-systems-string str))
(setq coding
(coding-system-change-eol-conversion coding 'mac))
(setq s (mac-code-convert-string
(encode-coding-string str coding)
coding nil)))
(setq str (or s
;; (encode-coding-string str
;; 'utf-16-mac) is not correct because
;; public.utf16-plain-text is defined
;; as native byte order, no BOM.
(mac-code-convert-string
(encode-coding-string str 'utf-8-mac)
'utf-8 nil))))
;; No `mac-code-convert-string' means non-Carbon, which
;; implies big endian.
(setq str (encode-coding-string str 'utf-16be-mac))))
(let (s)
(when (and (fboundp 'mac-code-convert-string)
(memq coding (find-coding-systems-string str)))
(setq coding (coding-system-change-eol-conversion coding 'mac))
(setq s (mac-code-convert-string
(encode-coding-string str coding)
coding nil)))
(setq str (or s
(encode-coding-string str
(if (eq (byteorder) ?B)
'utf-16be 'utf-16le))))))
((eq type 'com.apple.traditional-mac-plain-text)
(let ((encodables (find-coding-systems-string str))
(rest mac-script-code-coding-systems))
@ -1484,6 +1470,7 @@ in `selection-converter-alist', which see."
(decode-coding-string utf8-text 'utf-8))))
(defun mac-ae-open-documents (event)
"Open the documents specified by the Apple event EVENT."
(interactive "e")
(let ((ae (mac-event-ae event)))
(dolist (file-name (mac-ae-list ae nil 'undecoded-file-name))
@ -1511,6 +1498,8 @@ in `selection-converter-alist', which see."
(error "No text in Apple event.")))
(defun mac-ae-get-url (event)
"Open the URL specified by the Apple event EVENT.
Currently the `mailto' scheme is supported."
(interactive "e")
(let* ((ae (mac-event-ae event))
(parsed-url (url-generic-parse-url (mac-ae-text ae))))
@ -1541,10 +1530,12 @@ in `selection-converter-alist', which see."
(define-key mac-apple-event-map [hicommand about] 'display-splash-screen)
(defun mac-services-open-file ()
"Open the file specified by the selection value for Services."
(interactive)
(find-file-existing (x-selection-value mac-services-selection)))
(defun mac-services-open-selection ()
"Create a new buffer containing the selection value for Services."
(interactive)
(switch-to-buffer (generate-new-buffer "*untitled*"))
(insert (x-selection-value mac-services-selection))
@ -1553,6 +1544,7 @@ in `selection-converter-alist', which see."
)
(defun mac-services-mail-selection ()
"Prepare a mail buffer containing the selection value for Services."
(interactive)
(compose-mail)
(rfc822-goto-eoh)
@ -1560,10 +1552,12 @@ in `selection-converter-alist', which see."
(insert (x-selection-value mac-services-selection) "\n"))
(defun mac-services-mail-to ()
"Prepare a mail buffer to be sent to the selection value for Services."
(interactive)
(compose-mail (x-selection-value mac-services-selection)))
(defun mac-services-insert-text ()
"Insert the selection value for Services."
(interactive)
(let ((text (x-selection-value mac-services-selection)))
(if (not buffer-read-only)
@ -1584,6 +1578,7 @@ in `selection-converter-alist', which see."
'mac-services-mail-to)
(defun mac-dispatch-apple-event (event)
"Dispatch EVENT according to the keymap `mac-apple-event-map'."
(interactive "e")
(let* ((binding (lookup-key mac-apple-event-map (mac-event-spec event)))
(service-message