comparison lisp/term/mac-win.el @ 32786:3d21222bc794

Andrew Choi <[e-mail]> * international/mule-conf.el (mac-roman-lower, mac-roman-upper): New charsets. * term/mac-win.el: Remove definitions of mac-roman-lower and mac-roman-upper, require dired, and define instead of set mac-ready-for-drag-n-drop to avoid compilation error. * src/macterm.c (XTread_socket): check whether Lisp variable mac-ready-for-drag-n-drop is bound rather than non-nil value.

32785:fc837c2f746a

(fset 'x-get-resource 'ignore)

;; Use Lisp verison of ls instead of calling subprocess on ls (faster,
;; don't need to write ls).
(load "ls-lisp")
;; This variable specifies the Unix program to call (as a process) to
;; deteremine the amount of free space on a file system (defaults to
;; df).  If it is not set to nil, ls-lisp will not work correctly
;; unless an external application df is implemented on the Mac.
(setq dired-free-space-program nil)

;; X Window emulation in macterm.c is not complete enough to start a
;; frame without a minibuffer properly.  Call this to tell ediff
;; library to use a single frame.
(ediff-toggle-multiframe)

;; Emacs must be told we're using an 8-bit code for file names.
;; Otherwise file names won't be displayed properly in dired mode,
;; etc.
(setq file-name-coding-system 'latin-1)

;; Setup to use the Mac clipboard.  The functions mac-cut-function and
;; mac-paste-function are defined in mac.c.
(set-selection-coding-system 'compound-text-mac)

  (raise-frame)
  (recenter)))

(global-set-key [drag-n-drop] 'mac-drag-n-drop)

; Tell event loop in macterm.c we are ready.
(setq mac-ready-for-drag-n-drop t)

; Define constant values to be set to mac-keyboard-text-encoding
(defconst kTextEncodingMacRoman 0)
(defconst kTextEncodingISOLatin1 513 "0x201")
(defconst kTextEncodingISOLatin2 514 "0x202")

;; The Mac Roman encoding uses all 128 code points in the range 128 to
;; 255 for actual characters.  Since Emacs cannot handle this many
;; code points as one character set, we divide it into two:
;; mac-roman-lower for code points 128 to 159 and mac-roman-upper for
;; code points 160 to 255.

(defvar mac-roman-lower-final-char
  (get-unused-iso-final-char 1 96))

(defvar mac-roman-upper-final-char
  (1+ mac-roman-lower-final-char))

(define-charset nil 'mac-roman-lower
  (vector 1 96 1 0 mac-roman-lower-final-char 1
     "Mac Roman lower" "Mac Roman lower" "Mac Roman lower"))

(define-charset nil 'mac-roman-upper
  (vector 1 96 1 0 mac-roman-upper-final-char 1
     "Mac Roman upper" "Mac Roman upper" "Mac Roman upper"))

;; Since Mac Roman does not follow the ISO 2022 standard and uses code
;; points in the range 128-159, it is necessary to define it as a
;; type-4 charset, with CCL programs and all.

32786:3d21222bc794

(fset 'x-get-resource 'ignore)

;; Use Lisp verison of ls instead of calling subprocess on ls (faster,
;; don't need to write ls).
(load "ls-lisp")

(require 'dired)

;; This variable specifies the Unix program to call (as a process) to
;; deteremine the amount of free space on a file system (defaults to
;; df).  If it is not set to nil, ls-lisp will not work correctly
;; unless an external application df is implemented on the Mac.
(setq dired-free-space-program nil)

;; X Window emulation in macterm.c is not complete enough to start a
;; frame without a minibuffer properly.  Call this to tell ediff
;; library to use a single frame.
(ediff-toggle-multiframe)

;; Setup to use the Mac clipboard.  The functions mac-cut-function and
;; mac-paste-function are defined in mac.c.
(set-selection-coding-system 'compound-text-mac)

  (raise-frame)
  (recenter)))

(global-set-key [drag-n-drop] 'mac-drag-n-drop)

;; By checking whether the variable mac-ready-for-drag-n-drop has been
;; defined, the event loop in macterm.c can be informed that it can
;; now receive Finder drag and drop events.  Files dropped onto the
;; Emacs application icon can only be processed when the initial frame
;; has been created: this is where the files should be opened.
(add-hook 'after-init-hook
	  '(lambda ()
	     (defvar mac-ready-for-drag-n-drop t)))

; Define constant values to be set to mac-keyboard-text-encoding
(defconst kTextEncodingMacRoman 0)
(defconst kTextEncodingISOLatin1 513 "0x201")
(defconst kTextEncodingISOLatin2 514 "0x202")

;; The Mac Roman encoding uses all 128 code points in the range 128 to
;; 255 for actual characters.  Since Emacs cannot handle this many
;; code points as one character set, we divide it into two:
;; mac-roman-lower for code points 128 to 159 and mac-roman-upper for
;; code points 160 to 255.

;; Since Mac Roman does not follow the ISO 2022 standard and uses code
;; points in the range 128-159, it is necessary to define it as a
;; type-4 charset, with CCL programs and all.