~mdw
/
profile
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
dot/emacs: Don't display the diary when starting up or every morning.
[profile]
/
dot
/
emacs
diff --git
a/dot/emacs
b/dot/emacs
index
293a9c9
..
3988df7
100644
(file)
--- a/
dot/emacs
+++ b/
dot/emacs
@@
-133,7
+133,9
@@
(progn (setq server-temp-file-regexp (concat "^" tmpdir "\\|/draft$")
edit-server-new-frame nil
gnuserv-frame t)
(progn (setq server-temp-file-regexp (concat "^" tmpdir "\\|/draft$")
edit-server-new-frame nil
gnuserv-frame t)
- (trap (server-start))
+ (trap (let ((warning-suppress-types
+ (cons '(server) warning-suppress-types)))
+ (server-start)))
(trap (progn
(require 'edit-server)
(edit-server-start)
(trap (progn
(require 'edit-server)
(edit-server-start)
@@
-370,6
+372,7
@@
(setq bookmark-save-flag 0) ;Save bookmarks automatically
(setq vc-follow-symlinks t)
(setq x-gtk-file-dialog-help-text nil)
(setq bookmark-save-flag 0) ;Save bookmarks automatically
(setq vc-follow-symlinks t)
(setq x-gtk-file-dialog-help-text nil)
+(setq use-dialog-box nil)
(setq Info-fontify-maximum-menu-size 100000)
(setq set-mark-command-repeat-pop t)
(setq password-cache-expiry nil)
(setq Info-fontify-maximum-menu-size 100000)
(setq set-mark-command-repeat-pop t)
(setq password-cache-expiry nil)
@@
-430,7
+433,7
@@
(setq url-cookie-untrusted-urls '("."))
(setq browse-url-browser-function (mdw-good-url-browser)
(setq url-cookie-untrusted-urls '("."))
(setq browse-url-browser-function (mdw-good-url-browser)
- browse-url-generic-program "
chromium
"
+ browse-url-generic-program "
mdw-chrome
"
browse-url-mozilla-program "mdw-iceweasel")
(setq w3m-default-display-inline-images t
browse-url-mozilla-program "mdw-iceweasel")
(setq w3m-default-display-inline-images t
@@
-505,9
+508,10
@@
;; Appointment management.
(add-hook 'diary-hook 'appt-make-list)
;; Appointment management.
(add-hook 'diary-hook 'appt-make-list)
-(setq appt-issue-message t)
-(setq appt-display-interval 3)
-(setq appt-message-warning-time 10)
+(setq appt-issue-message t
+ appt-display-interval 3
+ appt-message-warning-time 10
+ appt-display-diary nil)
(and (not mdw-fast-startup)
(trap (require 'org)
(require 'bbdb)
(and (not mdw-fast-startup)
(trap (require 'org)
(require 'bbdb)
@@
-740,6
+744,7
@@
(setq auto-mode-alist
(append `(("\\.p[lm]$" . cperl-mode)
(setq auto-mode-alist
(append `(("\\.p[lm]$" . cperl-mode)
+ ("\\.sage$" . python-mode)
("\\.m$" . objc-mode)
("\\.mxd$" . c-mode)
("\\.cs$" . csharp-mode)
("\\.m$" . objc-mode)
("\\.mxd$" . c-mode)
("\\.cs$" . csharp-mode)
@@
-780,6
+785,7
@@
(append `(("runlisp" . lisp-mode)
("@BASH@" . sh-mode)
("@PYTHON@" . python-mode)
(append `(("runlisp" . lisp-mode)
("@BASH@" . sh-mode)
("@PYTHON@" . python-mode)
+ ("sage" . python-mode)
("@PERL@" . cperl-mode)
("perl" . cperl-mode)
("@TCLSH@" . tcl-mode)
("@PERL@" . cperl-mode)
("perl" . cperl-mode)
("@TCLSH@" . tcl-mode)