comparison lisp/term/w32-win.el @ 104987:3727134fef6c

* term/x-win.el (x-initialize-window-system): * term/w32-win.el (w32-initialize-window-system): * term/ns-win.el (ns-initialize-window-system): Don't call mouse-wheel-mode since it's enabled globally by default already.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sat, 12 Sep 2009 19:04:24 +0000
parents 9b74238fc6c2
children 4c610ec5ed40
comparison
equal deleted inserted replaced
104986:00c7c0e3f902 104987:3727134fef6c
303 303
304 ;; Turn off window-splitting optimization; w32 is usually fast enough 304 ;; Turn off window-splitting optimization; w32 is usually fast enough
305 ;; that this is only annoying. 305 ;; that this is only annoying.
306 (setq split-window-keep-point t) 306 (setq split-window-keep-point t)
307 307
308 ;; Turn on support for mouse wheels
309 (mouse-wheel-mode 1)
310
311 ;; W32 expects the menu bar cut and paste commands to use the clipboard. 308 ;; W32 expects the menu bar cut and paste commands to use the clipboard.
312 (menu-bar-enable-clipboard) 309 (menu-bar-enable-clipboard)
313 310
314 ;; Don't show the frame name; that's redundant. 311 ;; Don't show the frame name; that's redundant.
315 (setq-default mode-line-frame-identification " ") 312 (setq-default mode-line-frame-identification " ")