~mdw
/
profile
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
dot/emacs: Use `sudo' for local editing.
[profile]
/
dot
/
emacs
diff --git
a/dot/emacs
b/dot/emacs
index
5aa8918
..
8832f3f
100644
(file)
--- a/
dot/emacs
+++ b/
dot/emacs
@@
-23,6
+23,7
@@
(setq load-path (nconc load-path (list "~/lib/emacs")))
(require 'dot-emacs)
(setq load-path (nconc load-path (list "~/lib/emacs")))
(require 'dot-emacs)
+(require 'cl)
;;;--------------------------------------------------------------------------
;;; Some random initialisation.
;;;--------------------------------------------------------------------------
;;; Some random initialisation.
@@
-141,6
+142,7
@@
(setq message-signature-separator "^-- \\(\\|\\[mdw\\]\\)$"
message-yank-prefix "> "
message-yank-cited-prefix "> "
(setq message-signature-separator "^-- \\(\\|\\[mdw\\]\\)$"
message-yank-prefix "> "
message-yank-cited-prefix "> "
+ message-send-mail-function 'message-send-mail-with-sendmail
message-indent-citation-function '(message-indent-citation
mdw-trim-spaces-after-citing))
message-indent-citation-function '(message-indent-citation
mdw-trim-spaces-after-citing))
@@
-240,6
+242,9
@@
(setq ispell-program-name "aspell-hack"
ispell-local-dictionary "en_GB-ize-w_accents"
flyspell-default-dictionary "en_GB-ize-w_accents"
(setq ispell-program-name "aspell-hack"
ispell-local-dictionary "en_GB-ize-w_accents"
flyspell-default-dictionary "en_GB-ize-w_accents"
+ ispell-local-dictionary-alist
+ '(("en_GB-ize-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t
+ ("-d" "en_GB-ize-w_accents") nil utf-8))
ispell-silently-savep t)
(trap
(require 'uniquify)
ispell-silently-savep t)
(trap
(require 'uniquify)
@@
-597,8
+602,9
@@
(setq tramp-default-method "ssh")
(setq tramp-default-method-alist
`(("\\`\\(localhost\\|\\)\\'" ""
(setq tramp-default-method "ssh")
(setq tramp-default-method-alist
`(("\\`\\(localhost\\|\\)\\'" ""
- ,(cond ((executable-find "become") "become")
- ((executable-find "really") "really")
+ ,(cond ((executable-find "really") "really")
+ ((executable-find "become") "become")
+ ((executable-find "sudo") "sudo")
(t "su")))))))
;;;--------------------------------------------------------------------------
(t "su")))))))
;;;--------------------------------------------------------------------------