X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=.emacs;h=7aa6fca7f4da564d86560c643a233ef305bf8755;hb=98f61d1faf7e86c1bf0fa692543b0a38e019ba73;hp=6c1fc0e2f078f3d6c1fffef52722260be394c27b;hpb=5c589e32bbc9b1c0d77dabf7dc195eda7cb7f1e1;p=emacs.git diff --git a/.emacs b/.emacs index 6c1fc0e..7aa6fca 100644 --- a/.emacs +++ b/.emacs @@ -1,21 +1,30 @@ (custom-set-variables - ;; custom-set-variables was added by Custom -- don't edit or cut/paste it! - ;; Your init file should contain only one such instance. + ;; custom-set-variables was added by Custom. + ;; If you edit it by hand, you could mess it up, so be careful. + ;; Your init file should contain only one such instance. + ;; If there is more than one, they won't work right. '(bibtex-user-optional-fields (quote (("annote" "Personal annotation (ignored)") ("abstract" "") ("pmid" "") ("doi" "")))) - '(calendar-latitude [33 57 north] t) - '(calendar-longitude [117 24 west] t) + '(calendar-latitude [33 57 north]) + '(calendar-longitude [117 24 west]) '(case-fold-search t) '(confirm-kill-emacs (quote y-or-n-p)) '(cperl-lazy-help-time nil) - '(debian-changelog-mailing-address "don@debian.org") + '(debian-changelog-mailing-address "don@debian.org" t) '(display-time t) '(display-time-24hr-format t) '(display-time-day-and-date t) - '(display-time-mode t nil (time)) - '(global-auto-revert-mode t nil (autorevert)) + '(display-time-mode t) + '(font-latex-fontify-script nil) + '(font-latex-fontify-sectioning (quote color)) + '(font-latex-script-display (quote (nil))) + '(global-auto-revert-mode t) '(global-font-lock-mode t nil (font-lock)) - '(iswitchb-prompt-newbuffer nil) + '(global-set-key "\347" t) + '(icomplete-mode t) + '(log-edit-keep-buffer t) '(mail-user-agent (quote sendmail-user-agent)) + '(markdown-enable-math t) + '(markdown-follow-wiki-link-on-enter nil) '(mutt-alias-file-list (quote ("~/.mutt/aliases" "~/.mail_aliases"))) '(post-email-address "don@donarmstrong.com") '(post-kill-quoted-sig nil) @@ -28,45 +37,110 @@ '(ps-print-footer t) '(ps-print-footer-frame nil) '(ps-print-only-one-header t) + '(safe-local-variable-values (quote ((auto-save-default) (make-backup-files)))) '(sentence-end "[.?!][]\"')]*\\($\\| \\| \\)[ ]*") '(sentence-end-double-space nil) - '(show-paren-mode t nil (paren)) + '(show-paren-mode t) '(tool-bar-mode nil nil (tool-bar)) - '(user-mail-address "don@donarmstrong.com")) + '(user-mail-address "don@donarmstrong.com") + '(vc-delete-logbuf-window nil) + '(vc-follow-symlinks t)) + +;; use git before SVN; use CVS earlier, because I have CVS +;; repositories inside of git directories +(setq vc-handled-backends (quote (CVS Git RCS SVN SCCS Bzr Hg Mtn Arch))) + +;; switch back to the old primary selection method +(setq x-select-enable-clipboard nil) +(setq x-select-enable-primary t) +; (setq mouse-drag-copy-region t) + (fset 'perl-mode 'cperl-mode) ;;(load-file "cperl-mode.el") -(add-to-list 'load-path '"~/lib/emacs_el/") +(add-to-list 'load-path '"~/lib/emacs_el/configuration/") +(require 'don-configuration) + +(require 'vcl-mode) (require 'tex-site) -(require 'psvn) -(require 'cperl-mode) +;;(require 'psvn) ;;(require 'ecasound) ;;(require 'emacs-wiki) (require 'bibtex) (require 'post) +;;(require 'fixme) +; (require 'google-weather) +; (require 'org-google-weather) +; (setq-default org-google-weather-format "%i %c, [%l,%h] %s %C") +; http://julien.danjou.info/projects/emacs-packages#rainbow-mode +; this colorizes color strings +(require 'rainbow-mode) +; add ess to the x major mode +(add-to-list 'rainbow-x-colors-major-mode-list 'ESS[S]) +(add-to-list 'rainbow-x-colors-major-mode-list 'ESS[R]) -(global-set-key "\C-xp" 'gnuserv-edit) +(global-set-key "\C-xp" 'server-edit) -(setq auto-mode-alist (cons '("\.wml$" . +(setq-default auto-mode-alist (cons '("\.wml$" . (lambda () (html-mode) (auto-fill-mode))) auto-mode-alist)) -;; Use c-mode for perl .xs files -(add-to-list 'auto-mode-alist '("\\.xs\\'" . c-mode)) -(add-to-list 'auto-mode-alist '("\\.\\([pP][Llm]\\|al\\)\\'" . cperl-mode)) -(add-to-list 'interpreter-mode-alist '("perl" . cperl-mode)) -(add-to-list 'interpreter-mode-alist '("perl5" . cperl-mode)) -(add-to-list 'interpreter-mode-alist '("miniperl" . cperl-mode)) -(add-to-list 'auto-mode-alist '("muttng-[a-z0-9]+-[0-9]+-" . post-mode)) +; use markdown mode for mdwn files +(add-to-list 'auto-mode-alist '("\\.mdwn$" . markdown-mode)) + + + + +; mail configuration +(add-to-list 'auto-mode-alist '("muttng-[a-z0-9]+-[0-9]+-" . message-mode)) (add-to-list 'auto-mode-alist '("muttngrc" . muttrc-mode)) +(add-to-list 'auto-mode-alist '("mutt-[a-z0-9]+-[0-9]+-" . message-mode)) +(add-to-list 'auto-mode-alist '("muttrc" . muttrc-mode)) +(defun my-message-mode-settings () + (font-lock-add-keywords nil + '(("^[ \t]*>[ \t]*>[ \t]*>.*$" + (0 'message-multiply-quoted-text-face)) + ("^[ \t]*>[ \t]*>.*$" + (0 'message-double-quoted-text-face)))) + (local-set-key (kbd "C-c C-a") 'my-post-attach-file) + ) +(add-hook 'message-mode-hook 'my-message-mode-settings) + +(defun my-post-attach-file () + "Prompt for an attachment." + (interactive) + (let ((file (read-file-name "Attach file: " nil nil t nil)) + (description (string-read "Description: "))) + (my-header-attach-file file description))) + +(symbol-function 'my-post-attach-file) + +(defun my-header-attach-file (file description) + "Attach a FILE to the current message (works with Mutt). +Argument DESCRIPTION MIME description." + (interactive "fAttach file: \nsDescription: ") + (when (> (length file) 0) + (save-excursion + (save-match-data + (save-restriction + (widen) + (goto-char (point-min)) + (search-forward-regexp "^$") + (insert (concat "Attach: " (replace-regexp-in-string "\\([[:space:]\\]\\)" "\\\\\\1" (file-truename file)) " " + description "\n")) + (message (concat "Attached '" file "'.")) + (setq post-has-attachment t)))))) -;;(autoload 'perl-mode "cperl-mode" -;; "alternate mode for editing Perl programs" t) + +(setq mail-yank-prefix "> ") + +(global-unset-key "\M-g") +(global-set-key "\M-g" 'goto-line) ;; self-insert-command hack. ;; Without this, "if" expands to @@ -75,30 +149,20 @@ ;; which really should be, ;; if (-!-) { ;; } -(setq cperl-hairy t - cperl-indent-level 4 -;; cperl-auto-newline t -;; cperl-auto-newline-after-colon t - cperl-continued-statement-offset 4 - cperl-brace-offset -4 - cperl-label-offset -4 - cperl-highlight-variables-indiscriminately t - cperl-electric-lbrace-space nil - ) -(add-hook 'cperl-mode-hook (lambda () (cperl-set-style "K&R"))) -(load-library "php-mode") +;(load-library "php-mode") -(setq c-indent-level 8) -(setq c-brace-imaginary-offset 0) -(setq c-brace-offset -8) -(setq c-argdecl-indent 8) -(setq c-label-offset -8) -(setq c-continued-statement-offset 8) -(setq indent-tabs-mode nil) -(setq tab-width 8) +(setq-default c-indent-level 4) +(setq-default c-brace-imaginary-offset 0) +(setq-default c-brace-offset -4) +(setq-default c-argdecl-indent 4) +(setq-default c-label-offset -4) +(setq-default c-continued-statement-offset 4) +; tabs are annoying +(setq-default indent-tabs-mode nil) +(setq-default tab-width 4) ;; (autoload 'php-mode "php-mode" "PHP editing mode" t) @@ -107,12 +171,6 @@ ;; (add-to-list 'auto-mode-alist '("\\.php?\\'" . php-mode)) ;; (add-to-list 'auto-mode-alist '("\\.php4?\\'" . php-mode)) -(custom-set-faces - ;; custom-set-faces was added by Custom -- don't edit or cut/paste it! - ;; Your init file should contain only one such instance. - ) - - ;; REFTEX (much enhanced management of cross-ref, labels, etc) ;; http://www.strw.leidenuniv.nl/~dominik/Tools/reftex/ (autoload 'reftex-mode "reftex" "RefTeX Minor Mode" t) @@ -124,7 +182,63 @@ (add-hook 'LaTeX-mode-hook 'outline-minor-mode) ; with AUCTeX LaTeX mode (add-hook 'latex-mode-hook 'outline-minor-mode) ; with Emacs latex mode - +; use smart quotes by default instead of `` and '' +; taken from http://kieranhealy.org/esk/kjhealy.html +(setq TeX-open-quote "“") +(setq TeX-close-quote "”") + +;; (TeX-add-style-hook +;; "latex" +;; (lambda () +;; (TeX-add-symbols +;; '("DLA" 1)))) +;; (custom-set-variables +;; '(font-latex-user-keyword-classes +;; '(("fixme" +;; ("DLA" "RZ") +;; font-lock-function-name-face 2 (command 1 t)))) +;; ) + +(require 'font-latex) +(setq font-latex-match-reference-keywords + '( + ("fref" "{") + ("Fref" "{") + ("citep" "{") + ("citet" "{") + ("acs" "{") + ("acsp" "{") + ("ac" "{") + ("acp" "{") + ("acl" "{") + ("aclp" "{") + ("acsu" "{") + ("aclu" "{") + ("acused" "{") +; )) +; (setq font-latex-match-warning-keywords +; '( + ("DLA" "{") + ("RZ" "{") + ("OM" "{") + ("DL" "{") + ("fixme" "{"))) + +(setq-default TeX-parse-self t) +(setq-default TeX-auto-save t) +(setq-default TeX-master nil) + +;; this doesn't seem to work; not currently sure why +; (setq font-latex-user-keyword-classes +; '(("my-warning-commands" +; (("DLA" "{") +; ("RZ" "{") +; ("OM" "{") +; ("DL" "{") +; ("fixme" "{") +; ) +; (:foreground "red" :weight bold :underline (:color foreground-color :style line))) +; )) (defun insert-date () @@ -133,15 +247,23 @@ (insert (format-time-string "%A, %B %e, %Y %k:%M:%S %Z"))) (global-set-key "\C-[d" 'insert-date) -;(iswitchb-default-keybindings) +(defun unfill-paragraph (arg) + "Pull this whole paragraph up onto one line." + (interactive "*p") + (let ((fill-column 10000)) + (fill-paragraph arg)) + ) (column-number-mode t) -(setq reftex-plug-into-AUCTeX t) +(setq-default reftex-plug-into-AUCTeX t) -(gnuserv-start) +(server-start) (require 'mode-compile) +(setq-default reftex-default-bibliography + '("~/projects/research/references.bib")) + (defadvice server-process-filter (after post-mode-message first activate) "If the buffer is in post mode, overwrite the server-edit message with a post-save-current-buffer-and-exit message." @@ -151,21 +273,35 @@ ; This is also needed to see the magic message. Set to a higher ; number if you have a faster computer or read slower than me. '(font-lock-verbose 1000) -;(setq server-temp-file-regexp "mutt\(-\|ng-\)") -(add-hook 'server-switch-hook - (function (lambda() - (cond ((string-match "Post" mode-name) - (post-goto-body))) - set-buffer-file-coding-system 'utf-8 - ))) - +;(setq-default server-temp-file-regexp "mutt\(-\|ng-\)") +; (add-hook 'server-switch-hook +; (function (lambda() +; (cond ((string-match "Post" mode-name) +; (post-goto-body))) +; set-buffer-file-coding-system 'utf-8 +; ))) +; (add-hook 'post-mode-hook (auto-fill-mode nil) ) +; abbrev mode settings +; load abbreviations from +(setq abbrev-file-name + "~/.emacs_abbrev_def") + +; read the abbrev file if it exists +(if (file-exists-p abbrev-file-name) + (quietly-read-abbrev-file)) -(fset 'insert-function-documentation - [?\C-x ?i home ?\C-k ?/ ?h ?o ?m ?e ?/ ?d ?o ?n ?/ ?l ?i ?b ?/ ?t ?e ?m ?p ?l ?a ?t ?e ?s ?/ ?p ?e ?r ?l ?_ ?f ?u ?n ?c ?t ?i ?o ?n ?_ ?d ?o ?c ?u ?m ?e ?n ?t ?a ?t ?i ?o ?n return]) +; for now, use abbrev mode everywhere +(setq default-abbrev-mode t) + + +(defun insert-function-documentation () + "Insert function documentation" + (interactive) + (insert-file-contents "/home/don/lib/templates/perl_function_documentation" nil)) (global-set-key "\M-f" 'insert-function-documentation) (eval-after-load "lilypond-mode" @@ -173,5 +309,242 @@ (load-library "lyqi-mode") (define-key LilyPond-mode-map "\C-cq" 'lyqi-mode))) +(autoload 'spamassassin-mode "spamassassin-mode" nil t) + (desktop-load-default) (desktop-read) +'(icomplete-mode on) +(custom-set-faces + ;; custom-set-faces was added by Custom. + ;; If you edit it by hand, you could mess it up, so be careful. + ;; Your init file should contain only one such instance. + ;; If there is more than one, they won't work right. + '(menu ((((type x-toolkit)) (:background "black" :foreground "grey90"))))) + + +(put 'upcase-region 'disabled nil) +(put 'downcase-region 'disabled nil) +(put 'narrow-to-region 'disabled nil) + + +(autoload 'flyspell-mode "flyspell" "On-the-fly spelling checker." t) +(add-hook 'message-mode-hook 'turn-on-flyspell) +(add-hook 'text-mode-hook 'turn-on-flyspell) +(add-hook 'c-mode-common-hook 'flyspell-prog-mode) +(add-hook 'cperl-mode-hook 'flyspell-prog-mode) +(add-hook 'tcl-mode-hook 'flyspell-prog-mode) +(defun turn-on-flyspell () + "Force flyspell-mode on using a positive arg. For use in hooks." + (interactive) + (flyspell-mode 1)) + + + ; Outline-minor-mode key map + (define-prefix-command 'cm-map nil "Outline-") + ; HIDE + (define-key cm-map "q" 'hide-sublevels) ; Hide everything but the top-level headings + (define-key cm-map "t" 'hide-body) ; Hide everything but headings (all body lines) + (define-key cm-map "o" 'hide-other) ; Hide other branches + (define-key cm-map "c" 'hide-entry) ; Hide this entry's body + (define-key cm-map "l" 'hide-leaves) ; Hide body lines in this entry and sub-entries + (define-key cm-map "d" 'hide-subtree) ; Hide everything in this entry and sub-entries + ; SHOW + (define-key cm-map "a" 'show-all) ; Show (expand) everything + (define-key cm-map "e" 'show-entry) ; Show this heading's body + (define-key cm-map "i" 'show-children) ; Show this heading's immediate child sub-headings + (define-key cm-map "k" 'show-branches) ; Show all sub-headings under this heading + (define-key cm-map "s" 'show-subtree) ; Show (expand) everything in this heading & below + ; MOVE + (define-key cm-map "u" 'outline-up-heading) ; Up + (define-key cm-map "n" 'outline-next-visible-heading) ; Next + (define-key cm-map "p" 'outline-previous-visible-heading) ; Previous + (define-key cm-map "f" 'outline-forward-same-level) ; Forward - same level + (define-key cm-map "b" 'outline-backward-same-level) ; Backward - same level + (global-set-key "\M-o" cm-map) + + +; debian stuff +(setq-default debian-changelog-mailing-address "don@debian.org") +(setq-default debian-changelog-full-name "Don Armstrong") + +; ediff configuration +; don't use the multi-window configuration +(setq ediff-window-setup-function 'ediff-setup-windows-plain) + +; use iedit +(require 'iedit) +(define-key global-map (kbd "C-;") 'iedit-mode) +(global-set-key (kbd "C-;") 'iedit-mode) + +; fix up css mode to not be silly +; from http://www.stokebloke.com/wordpress/2008/03/21/css-mode-indent-buffer-fix/ +(setq cssm-indent-level 4) +(setq cssm-newline-before-closing-bracket t) +(setq cssm-indent-function #'cssm-c-style-indenter) +(setq cssm-mirror-mode nil) + +(require 'multi-web-mode) +(setq mweb-default-major-mode 'html-mode) +(setq mweb-tags '((php-mode "<\\?php\\|<\\? \\|<\\?=" "\\?>") + (js-mode "") + (css-mode ""))) +(setq mweb-filename-extensions '("php" "htm" "html" "ctp" "phtml" "php4" "php5")) +(multi-web-global-mode 1) + +;;; alias the new `flymake-report-status-slim' to +;;; `flymake-report-status' +(defalias 'flymake-report-status 'flymake-report-status-slim) +(defun flymake-report-status-slim (e-w &optional status) + "Show \"slim\" flymake status in mode line." + (when e-w + (setq flymake-mode-line-e-w e-w)) + (when status + (setq flymake-mode-line-status status)) + (let* ((mode-line " Φ")) + (when (> (length flymake-mode-line-e-w) 0) + (setq mode-line (concat mode-line ":" flymake-mode-line-e-w))) + (setq mode-line (concat mode-line flymake-mode-line-status)) + (setq flymake-mode-line mode-line) + (force-mode-line-update))) + +; load sql-indent when sql is loaded +(eval-after-load "sql" + '(load-library "sql-indent")) + +; fix up tmux xterm keys +; stolen from http://unix.stackexchange.com/questions/24414/shift-arrow-not-working-in-emacs-within-tmux +(if (getenv "TMUX") + (progn + (let ((x 2) (tkey "")) + (while (<= x 8) + ;; shift + (if (= x 2) + (setq tkey "S-")) + ;; alt + (if (= x 3) + (setq tkey "M-")) + ;; alt + shift + (if (= x 4) + (setq tkey "M-S-")) + ;; ctrl + (if (= x 5) + (setq tkey "C-")) + ;; ctrl + shift + (if (= x 6) + (setq tkey "C-S-")) + ;; ctrl + alt + (if (= x 7) + (setq tkey "C-M-")) + ;; ctrl + alt + shift + (if (= x 8) + (setq tkey "C-M-S-")) + + ;; arrows + (define-key key-translation-map (kbd (format "M-[ 1 ; %d A" x)) (kbd (format "%s" tkey))) + (define-key key-translation-map (kbd (format "M-[ 1 ; %d B" x)) (kbd (format "%s" tkey))) + (define-key key-translation-map (kbd (format "M-[ 1 ; %d C" x)) (kbd (format "%s" tkey))) + (define-key key-translation-map (kbd (format "M-[ 1 ; %d D" x)) (kbd (format "%s" tkey))) + ;; home + (define-key key-translation-map (kbd (format "M-[ 1 ; %d H" x)) (kbd (format "%s" tkey))) + ;; end + (define-key key-translation-map (kbd (format "M-[ 1 ; %d F" x)) (kbd (format "%s" tkey))) + ;; page up + (define-key key-translation-map (kbd (format "M-[ 5 ; %d ~" x)) (kbd (format "%s" tkey))) + ;; page down + (define-key key-translation-map (kbd (format "M-[ 6 ; %d ~" x)) (kbd (format "%s" tkey))) + ;; insert + (define-key key-translation-map (kbd (format "M-[ 2 ; %d ~" x)) (kbd (format "%s" tkey))) + ;; delete + (define-key key-translation-map (kbd (format "M-[ 3 ; %d ~" x)) (kbd (format "%s" tkey))) + ;; f1 + (define-key key-translation-map (kbd (format "M-[ 1 ; %d P" x)) (kbd (format "%s" tkey))) + ;; f2 + (define-key key-translation-map (kbd (format "M-[ 1 ; %d Q" x)) (kbd (format "%s" tkey))) + ;; f3 + (define-key key-translation-map (kbd (format "M-[ 1 ; %d R" x)) (kbd (format "%s" tkey))) + ;; f4 + (define-key key-translation-map (kbd (format "M-[ 1 ; %d S" x)) (kbd (format "%s" tkey))) + ;; f5 + (define-key key-translation-map (kbd (format "M-[ 15 ; %d ~" x)) (kbd (format "%s" tkey))) + ;; f6 + (define-key key-translation-map (kbd (format "M-[ 17 ; %d ~" x)) (kbd (format "%s" tkey))) + ;; f7 + (define-key key-translation-map (kbd (format "M-[ 18 ; %d ~" x)) (kbd (format "%s" tkey))) + ;; f8 + (define-key key-translation-map (kbd (format "M-[ 19 ; %d ~" x)) (kbd (format "%s" tkey))) + ;; f9 + (define-key key-translation-map (kbd (format "M-[ 20 ; %d ~" x)) (kbd (format "%s" tkey))) + ;; f10 + (define-key key-translation-map (kbd (format "M-[ 21 ; %d ~" x)) (kbd (format "%s" tkey))) + ;; f11 + (define-key key-translation-map (kbd (format "M-[ 23 ; %d ~" x)) (kbd (format "%s" tkey))) + ;; f12 + (define-key key-translation-map (kbd (format "M-[ 24 ; %d ~" x)) (kbd (format "%s" tkey))) + ;; f13 + (define-key key-translation-map (kbd (format "M-[ 25 ; %d ~" x)) (kbd (format "%s" tkey))) + ;; f14 + (define-key key-translation-map (kbd (format "M-[ 26 ; %d ~" x)) (kbd (format "%s" tkey))) + ;; f15 + (define-key key-translation-map (kbd (format "M-[ 28 ; %d ~" x)) (kbd (format "%s" tkey))) + ;; f16 + (define-key key-translation-map (kbd (format "M-[ 29 ; %d ~" x)) (kbd (format "%s" tkey))) + ;; f17 + (define-key key-translation-map (kbd (format "M-[ 31 ; %d ~" x)) (kbd (format "%s" tkey))) + ;; f18 + (define-key key-translation-map (kbd (format "M-[ 32 ; %d ~" x)) (kbd (format "%s" tkey))) + ;; f19 + (define-key key-translation-map (kbd (format "M-[ 33 ; %d ~" x)) (kbd (format "%s" tkey))) + ;; f20 + (define-key key-translation-map (kbd (format "M-[ 34 ; %d ~" x)) (kbd (format "%s" tkey))) + + (setq x (+ x 1)) + )) + ) + ) + +; require org mode +(load "org-mode-configuration") +; ess configuration +(load "ess_remote_eval") +(load "ess_configuration") +; procmailmode configuration +(load "procmail_mode") + +(load "mode-line-cleaner") + +(defadvice ask-user-about-supersession-threat (around ask-user-about-supersession-threat-if-necessary) + "Call ask-user-about-supersession-threat only if the buffer is actually obsolete." + (if (or (buffer-modified-p) + (verify-visited-file-modtime) + (< (* 8 1024 1024) (buffer-size)) + (/= 0 (call-process-region 1 (+ 1 (buffer-size)) "diff" nil nil nil "-q" (buffer-file-name) "-"))) + ad-do-it + (clear-visited-file-modtime) + (not-modified))) +(ad-activate 'ask-user-about-supersession-threat) + +; apparently things like to step on C-;, so we'll use a hack from +; http://stackoverflow.com/questions/683425/globally-override-key-binding-in-emacs/5340797#5340797 to fix this + +(defvar my-keys-minor-mode-map (make-keymap) "my-keys-minor-mode keymap.") + +; use iedit everywhere +(define-key my-keys-minor-mode-map (kbd "C-;") 'iedit-mode) + +(define-minor-mode my-keys-minor-mode + "A minor mode so that my key settings override annoying major modes." + t " my-keys" 'my-keys-minor-mode-map) + +(my-keys-minor-mode 1) +(defun my-minibuffer-setup-hook () + (my-keys-minor-mode 0)) + +(add-hook 'minibuffer-setup-hook 'my-minibuffer-setup-hook) +(defadvice load (after give-my-keybindings-priority) + "Try to ensure that my keybindings always have priority." + (if (not (eq (car (car minor-mode-map-alist)) 'my-keys-minor-mode)) + (let ((mykeys (assq 'my-keys-minor-mode minor-mode-map-alist))) + (assq-delete-all 'my-keys-minor-mode minor-mode-map-alist) + (add-to-list 'minor-mode-map-alist mykeys)))) +(ad-activate 'load) +(global-set-key "\M- " 'hippie-expand)