/[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.48 by jasonr, Thu Jan 17 19:33:03 2002 UTC revision 1.49 by jasonr, Sun Jan 20 15:34:00 2002 UTC
# Line 83  Line 83 
83  ;; The following definition is used for debugging scroll bar events.  ;; The following definition is used for debugging scroll bar events.
84  ;(defun w32-handle-scroll-bar-event (event) (interactive "e") (princ event))  ;(defun w32-handle-scroll-bar-event (event) (interactive "e") (princ event))
85    
 (defvar mouse-wheel-scroll-amount 4  
   "*Number of lines to scroll per click of the mouse wheel.")  
   
86  (defun mouse-wheel-scroll-line (event)  (defun mouse-wheel-scroll-line (event)
87    "Scroll the window in which EVENT occurred by `mouse-wheel-scroll-amount'."    "Scroll the window in which EVENT occurred by `mouse-wheel-scroll-amount'."
88    (interactive "e")    (interactive "e")
# Line 1298  See the documentation of `create-fontset Line 1295  See the documentation of `create-fontset
1295                                nil nil default))))                                nil nil default))))
1296      (list face (if (equal value "") nil value))))      (list face (if (equal value "") nil value))))
1297    
 ;; Redefine the font selection to use the standard W32 dialog  
 (defvar w32-use-w32-font-dialog t  
   "*Use the standard font dialog if 't'.  
 Otherwise pop up a menu of some standard fonts like X does - including  
 fontsets.")  
   
 (defvar w32-fixed-font-alist  
   '("Font menu"  
     ("Misc"  
      ;; For these, we specify the pixel height and width.  
      ("fixed" "Fixedsys")  
      ("")  
      ("Terminal 5x4"  
       "-*-Terminal-normal-r-*-*-*-45-*-*-c-40-*-oem")  
      ("Terminal 6x8"  
       "-*-Terminal-normal-r-*-*-*-60-*-*-c-80-*-oem")  
      ("Terminal 9x5"  
       "-*-Terminal-normal-r-*-*-*-90-*-*-c-50-*-oem")  
      ("Terminal 9x7"  
       "-*-Terminal-normal-r-*-*-*-90-*-*-c-70-*-oem")  
      ("Terminal 9x8"  
       "-*-Terminal-normal-r-*-*-*-90-*-*-c-80-*-oem")  
      ("Terminal 12x12"  
       "-*-Terminal-normal-r-*-*-*-120-*-*-c-120-*-oem")  
      ("Terminal 14x10"  
       "-*-Terminal-normal-r-*-*-*-135-*-*-c-100-*-oem")  
      ("Terminal 6x6 Bold"  
       "-*-Terminal-bold-r-*-*-*-60-*-*-c-60-*-oem")  
      ("")  
      ("Lucida Sans Typewriter.8"  
       "-*-Lucida Sans Typewriter-normal-r-*-*-11-*-*-*-c-*-iso8859-1")  
      ("Lucida Sans Typewriter.9"  
       "-*-Lucida Sans Typewriter-normal-r-*-*-12-*-*-*-c-*-iso8859-1")  
      ("Lucida Sans Typewriter.10"  
       "-*-Lucida Sans Typewriter-normal-r-*-*-13-*-*-*-c-*-iso8859-1")  
      ("Lucida Sans Typewriter.11"  
       "-*-Lucida Sans Typewriter-normal-r-*-*-15-*-*-*-c-*-iso8859-1")  
      ("Lucida Sans Typewriter.12"  
       "-*-Lucida Sans Typewriter-normal-r-*-*-16-*-*-*-c-*-iso8859-1")  
      ("Lucida Sans Typewriter.8 Bold"  
       "-*-Lucida Sans Typewriter-semibold-r-*-*-11-*-*-*-c-*-iso8859-1")  
      ("Lucida Sans Typewriter.9 Bold"  
       "-*-Lucida Sans Typewriter-semibold-r-*-*-12-*-*-*-c-*-iso8859-1")  
      ("Lucida Sans Typewriter.10 Bold"  
       "-*-Lucida Sans Typewriter-semibold-r-*-*-13-*-*-*-c-*-iso8859-1")  
      ("Lucida Sans Typewriter.11 Bold"  
       "-*-Lucida Sans Typewriter-semibold-r-*-*-15-*-*-*-c-*-iso8859-1")  
      ("Lucida Sans Typewriter.12 Bold"  
       "-*-Lucida Sans Typewriter-semibold-r-*-*-16-*-*-*-c-*-iso8859-1"))  
     ("Courier"  
      ("Courier 10x8"  
       "-*-Courier-*normal-r-*-*-*-97-*-*-c-80-iso8859-1")  
      ("Courier 12x9"  
       "-*-Courier-*normal-r-*-*-*-120-*-*-c-90-iso8859-1")  
      ("Courier 15x12"  
       "-*-Courier-*normal-r-*-*-*-150-*-*-c-120-iso8859-1")  
      ;; For these, we specify the point height.  
      ("")  
      ("8" "-*-Courier New-normal-r-*-*-11-*-*-*-c-*-iso8859-1")  
      ("9" "-*-Courier New-normal-r-*-*-12-*-*-*-c-*-iso8859-1")  
      ("10" "-*-Courier New-normal-r-*-*-13-*-*-*-c-*-iso8859-1")  
      ("11" "-*-Courier New-normal-r-*-*-15-*-*-*-c-*-iso8859-1")  
      ("12" "-*-Courier New-normal-r-*-*-16-*-*-*-c-*-iso8859-1")  
      ("8 bold" "-*-Courier New-bold-r-*-*-11-*-*-*-c-*-iso8859-1")  
      ("9 bold" "-*-Courier New-bold-r-*-*-12-*-*-*-c-*-iso8859-1")  
      ("10 bold" "-*-Courier New-bold-r-*-*-13-*-*-*-c-*-iso8859-1")  
      ("11 bold" "-*-Courier New-bold-r-*-*-15-*-*-*-c-*-iso8859-1")  
      ("12 bold" "-*-Courier New-bold-r-*-*-16-*-*-*-c-*-iso8859-1")  
      ("8 italic" "-*-Courier New-normal-i-*-*-11-*-*-*-c-*-iso8859-1")  
      ("9 italic" "-*-Courier New-normal-i-*-*-12-*-*-*-c-*-iso8859-1")  
      ("10 italic" "-*-Courier New-normal-i-*-*-13-*-*-*-c-*-iso8859-1")  
      ("11 italic" "-*-Courier New-normal-i-*-*-15-*-*-*-c-*-iso8859-1")  
      ("12 italic" "-*-Courier New-normal-i-*-*-16-*-*-*-c-*-iso8859-1")  
      ("8 bold italic" "-*-Courier New-bold-i-*-*-11-*-*-*-c-*-iso8859-1")  
      ("9 bold italic" "-*-Courier New-bold-i-*-*-12-*-*-*-c-*-iso8859-1")  
      ("10 bold italic" "-*-Courier New-bold-i-*-*-13-*-*-*-c-*-iso8859-1")  
      ("11 bold italic" "-*-Courier New-bold-i-*-*-15-*-*-*-c-*-iso8859-1")  
      ("12 bold italic" "-*-Courier New-bold-i-*-*-16-*-*-*-c-*-iso8859-1")  
      ))  
     "Fonts suitable for use in Emacs.  
 Initially this is a list of some fixed width fonts that most people  
 will have like Terminal and Courier. These fonts are used in the font  
 menu if the variable `w32-use-w32-font-dialog' is nil.")  
   
1298  ;;; Enable Japanese fonts on Windows to be used by default.  ;;; Enable Japanese fonts on Windows to be used by default.
1299  (set-fontset-font t (make-char 'katakana-jisx0201) '("*" . "JISX0208-SJIS"))  (set-fontset-font t (make-char 'katakana-jisx0201) '("*" . "JISX0208-SJIS"))
1300  (set-fontset-font t (make-char 'latin-jisx0201) '("*" . "JISX0208-SJIS"))  (set-fontset-font t (make-char 'latin-jisx0201) '("*" . "JISX0208-SJIS"))
# Line 1396  font dialog to get the matching FONTS. O Line 1309  font dialog to get the matching FONTS. O
1309  `w32-fixed-font-alist'."  `w32-fixed-font-alist'."
1310    (interactive    (interactive
1311     (if w32-use-w32-font-dialog     (if w32-use-w32-font-dialog
1312         (let ((chosen-font (w32-select-font)))         (let ((chosen-font (w32-select-font (selected-frame)
1313                                               w32-list-proportional-fonts)))
1314           (and chosen-font (list chosen-font)))           (and chosen-font (list chosen-font)))
1315       (x-popup-menu       (x-popup-menu
1316        last-nonmenu-event        last-nonmenu-event

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

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