'((pm (font . "-os2-System VIO-medium-r-normal--*-40-*-*-m-*-cp850")
(menu-font . "8.Helv")
(background-color . "lightgrey"))
+ (w32 (font . "fixed 10")
+ (background-color . "black")
+ (foreground-color . "white"))
(nil (menu-bar-lines . 0))))
;; Other frame fiddling.
;; Recognising types of files.
(setq auto-mode-alist
- (append `(("\\.p[lm]$" . perl-mode)
+ (append `(("\\.p[lm]$" . cperl-mode)
("\\.m$" . objc-mode)
("\\.mxd$" . c-mode)
("\\.cs$" . csharp-mode)
(append `(("runlisp" . lisp-mode)
("@BASH@" . sh-mode)
("@PYTHON@" . python-mode)
- ("@PERL@" . perl-mode)
+ ("@PERL@" . cperl-mode)
+ ("/perl" . cperl-mode)
("@TCLSH@" . tcl-mode)
("@WISH@" . tcl-mode)
("/tclsh" . tcl-mode)
arm-assembler-mode-hook))
(global-font-lock-mode t)
-(defalias 'perl-mode 'cperl-mode)
;;;--------------------------------------------------------------------------
;;; Rootly editingness.