[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/term/mac-win.el
From: |
YAMAMOTO Mitsuharu |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/term/mac-win.el |
Date: |
Thu, 30 Mar 2006 02:23:09 +0000 |
Index: emacs/lisp/term/mac-win.el
diff -u emacs/lisp/term/mac-win.el:1.64 emacs/lisp/term/mac-win.el:1.65
--- emacs/lisp/term/mac-win.el:1.64 Sat Mar 25 07:40:32 2006
+++ emacs/lisp/term/mac-win.el Thu Mar 30 02:23:08 2006
@@ -1103,15 +1103,6 @@
)
"Alist of Mac script codes vs Emacs coding systems.")
-(defconst mac-system-coding-system
- (let ((base (or (cdr (assq mac-system-script-code
- mac-script-code-coding-systems))
- 'mac-roman)))
- (if (eq system-type 'darwin)
- base
- (coding-system-change-eol-conversion base 'mac)))
- "Coding system derived from the system script code.")
-
(defun mac-add-charset-info (xlfd-charset mac-text-encoding)
"Add a character set to display with Mac fonts.
Create an entry in `mac-charset-info-alist'.
@@ -1153,9 +1144,6 @@
;;;; Selections
-;; Setup to use the Mac clipboard.
-(set-selection-coding-system mac-system-coding-system)
-
;;; We keep track of the last text selected here, so we can check the
;;; current selection against it, and avoid passing back our own text
;;; from x-get-selection-value.
@@ -2024,6 +2012,17 @@
;; Enable CLIPBOARD copy/paste through menu bar commands.
(menu-bar-enable-clipboard)
+(defconst mac-system-coding-system
+ (let ((base (or (cdr (assq mac-system-script-code
+ mac-script-code-coding-systems))
+ 'mac-roman)))
+ (if (eq system-type 'darwin)
+ base
+ (coding-system-change-eol-conversion base 'mac)))
+ "Coding system derived from the system script code.")
+
+(set-selection-coding-system mac-system-coding-system)
+
(defun mac-drag-n-drop (event)
"Edit the files listed in the drag-n-drop EVENT.
Switch to a buffer editing the last file dropped."