/[emacs]/emacs/lisp/term/w32-win.el
ViewVC logotype

Diff of /emacs/lisp/term/w32-win.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.59.2.2 by handa, Fri Apr 16 12:50:36 2004 UTC revision 1.59.2.3 by miles, Mon Jun 28 07:29:49 2004 UTC
# Line 1  Line 1 
1  ;;; w32-win.el --- parse switches controlling interface with W32 window system  ;;; w32-win.el --- parse switches controlling interface with W32 window system
2    
3  ;; Copyright (C) 1993, 1994, 2003 Free Software Foundation, Inc.  ;; Copyright (C) 1993, 1994, 2003, 2004 Free Software Foundation, Inc.
4    
5  ;; Author: Kevin Gallo  ;; Author: Kevin Gallo
6  ;; Keywords: terminals  ;; Keywords: terminals
# Line 76  Line 76 
76  (require 'faces)  (require 'faces)
77  (require 'select)  (require 'select)
78  (require 'menu-bar)  (require 'menu-bar)
79    (require 'x-dnd)
80    (require 'code-pages)
81    
82  ;; Conditional on new-fontset so bootstrapping works on non-GUI compiles  ;; Conditional on new-fontset so bootstrapping works on non-GUI compiles
83  (if (fboundp 'new-fontset)  (if (fboundp 'new-fontset)
84      (require 'fontset))      (require 'fontset))
# Line 105  Switch to a buffer editing the last file Line 108  Switch to a buffer editing the last file
108             (y (cdr coords)))             (y (cdr coords)))
109        (if (and (> x 0) (> y 0))        (if (and (> x 0) (> y 0))
110            (set-frame-selected-window nil window))            (set-frame-selected-window nil window))
111      (mapcar 'find-file (car (cdr (cdr event)))))        (mapcar (lambda (file-name)
112                    (x-dnd-handle-one-url window 'private
113                                          (concat "file:" file-name)))
114                    (car (cdr (cdr event)))))
115    (raise-frame)))    (raise-frame)))
116    
117  (defun w32-drag-n-drop-other-frame (event)  (defun w32-drag-n-drop-other-frame (event)
# Line 1255  font dialog to get the matching FONTS. O Line 1261  font dialog to get the matching FONTS. O
1261          (if (null font)          (if (null font)
1262              (error "Font not found")))))              (error "Font not found")))))
1263    
1264    ;;; Set default known names for image libraries
1265    (setq image-library-alist
1266          '((xpm "libXpm-nox4.dll" "libxpm.dll")
1267            (png "libpng13d.dll" "libpng13.dll" "libpng12d.dll" "libpng12.dll" "libpng.dll")
1268            (jpeg "jpeg62.dll" "libjpeg.dll" "jpeg-62.dll" "jpeg.dll")
1269            (tiff "libtiff3.dll" "libtiff.dll")
1270            (gif "libungif.dll")))
1271    
1272  ;;; arch-tag: 69fb1701-28c2-4890-b351-3d1fe4b4f166  ;;; arch-tag: 69fb1701-28c2-4890-b351-3d1fe4b4f166
1273  ;;; w32-win.el ends here  ;;; w32-win.el ends here

Legend:
Removed from v.1.59.2.2  
changed lines
  Added in v.1.59.2.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26