[Emacs-diffs] Changes to emacs/lisp/term/mac-win.el

[Steven Tamm]

Index: emacs/lisp/term/mac-win.el
diff -c emacs/lisp/term/mac-win.el:1.28 emacs/lisp/term/mac-win.el:1.29
*** emacs/lisp/term/mac-win.el:1.28     Mon Dec 27 17:23:02 2004
--- emacs/lisp/term/mac-win.el  Wed Dec 29 17:25:02 2004
***************
*** 76,82 ****
  ;;(require 'select)
  (require 'menu-bar)
  (require 'fontset)
! ;;(require 'x-dnd)
  
  (defvar x-invocation-args)
  
--- 76,82 ----
  ;;(require 'select)
  (require 'menu-bar)
  (require 'fontset)
! (require 'x-dnd)
  
  (defvar x-invocation-args)
  
***************
*** 1564,1570 ****
  (mouse-wheel-mode 1)
  
  (defun mac-drag-n-drop (event)
!   "Edit the files listed in the drag-n-drop event.\n\
  Switch to a buffer editing the last file dropped."
    (interactive "e")
    (save-excursion
--- 1564,1570 ----
  (mouse-wheel-mode 1)
  
  (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."
    (interactive "e")
    (save-excursion
***************
*** 1577,1592 ****
           (y (cdr coords)))
        (if (and (> x 0) (> y 0))
          (set-frame-selected-window nil window))
!       (mapcar
!        '(lambda (file)
!         (find-file
!          (decode-coding-string
!           file
!           (or file-name-coding-system
!               default-file-name-coding-system))))
!        (car (cdr (cdr event)))))
!   (raise-frame)
!   (recenter)))
  
  (global-set-key [drag-n-drop] 'mac-drag-n-drop)
  
--- 1577,1587 ----
           (y (cdr coords)))
        (if (and (> x 0) (> y 0))
          (set-frame-selected-window nil window))
!       (mapcar (lambda (file-name) 
!               (x-dnd-handle-one-url window 'private 
!                                     (concat "file:" file-name)))
!             (car (cdr (cdr event)))))
!     (raise-frame)))
  
  (global-set-key [drag-n-drop] 'mac-drag-n-drop)