~mdw
/
profile
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
dot/emacs, el/dot-emacs.el: Experimental full-screen toggle.
[profile]
/
dot
/
emacs
diff --git
a/dot/emacs
b/dot/emacs
index
583cb96
..
2128756
100644
(file)
--- a/
dot/emacs
+++ b/
dot/emacs
@@
-125,7
+125,8
@@
(setq mdw-backup-disable-regexps
'("/\\.git/COMMIT_EDITMSG$"
(setq mdw-backup-disable-regexps
'("/\\.git/COMMIT_EDITMSG$"
- "/\\.stgit\\(-edit\\.txt\\|msg\\.txt\\|\\.msg\\)$"))
+ "/\\.stgit\\(-edit\\.txt\\|msg\\.txt\\|\\.msg\\)$"
+ "^/tmp/" "^/var/tmp/"))
;; Safe variables.
;; Safe variables.
@@
-443,6
+444,9
@@
'((pm (font . "-os2-System VIO-medium-r-normal--*-40-*-*-m-*-cp850")
(menu-font . "8.Helv")
(background-color . "lightgrey"))
'((pm (font . "-os2-System VIO-medium-r-normal--*-40-*-*-m-*-cp850")
(menu-font . "8.Helv")
(background-color . "lightgrey"))
+ (w32 (font . "fixed613 10")
+ (background-color . "black")
+ (foreground-color . "white"))
(nil (menu-bar-lines . 0))))
;; Other frame fiddling.
(nil (menu-bar-lines . 0))))
;; Other frame fiddling.
@@
-494,6
+498,9
@@
#'(lambda () (interactive)))
(global-set-key [M-S-mouse-3] 'imenu)
(global-set-key [XF86WakeUp] "")
#'(lambda () (interactive)))
(global-set-key [M-S-mouse-3] 'imenu)
(global-set-key [XF86WakeUp] "")
+ (global-set-key [?\C-c ?d ?w] 'devhelp-word-at-point)
+ (global-set-key [?\C-c ?d ?a] 'devhelp-assistant-word-at-point)
+ (global-set-key [f11] 'mdw-toggle-full-screen)
(and (not mdw-fast-startup) (fboundp 'hippie-expand)
(global-set-key [?\M-/] 'hippie-expand)))
(and (not mdw-fast-startup) (fboundp 'hippie-expand)
(global-set-key [?\M-/] 'hippie-expand)))
@@
-530,7
+537,7
@@
;; Recognising types of files.
(setq auto-mode-alist
;; Recognising types of files.
(setq auto-mode-alist
- (append `(("\\.p[lm]$" . perl-mode)
+ (append `(("\\.p[lm]$" .
c
perl-mode)
("\\.m$" . objc-mode)
("\\.mxd$" . c-mode)
("\\.cs$" . csharp-mode)
("\\.m$" . objc-mode)
("\\.mxd$" . c-mode)
("\\.cs$" . csharp-mode)
@@
-572,7
+579,8
@@
(append `(("runlisp" . lisp-mode)
("@BASH@" . sh-mode)
("@PYTHON@" . python-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)
("@TCLSH@" . tcl-mode)
("@WISH@" . tcl-mode)
("/tclsh" . tcl-mode)
@@
-610,7
+618,6
@@
arm-assembler-mode-hook))
(global-font-lock-mode t)
arm-assembler-mode-hook))
(global-font-lock-mode t)
-(defalias 'perl-mode 'cperl-mode)
;;;--------------------------------------------------------------------------
;;; Rootly editingness.
;;;--------------------------------------------------------------------------
;;; Rootly editingness.