(require 'cl) (defvar *emacs-load-start* (current-time))
(defun byte-compile-user-init-file ()
(let ((byte-compile-warnings '(unresolved)))
(when (file-exists-p (concat user-init-file ".elc"))
(delete-file (concat user-init-file ".elc")))
(byte-compile-file user-init-file)
(message "%s compiled" user-init-file)
))
(defun my-emacs-lisp-mode-hook ()
(when (equal buffer-file-name user-init-file)
(add-hook 'after-save-hook 'byte-compile-user-init-file t t)))
(add-hook 'emacs-lisp-mode-hook 'my-emacs-lisp-mode-hook)
(defvar missing-packages-list nil
"List of packages that `try-require' can't find.")
(defun try-require (feature)
"Attempt to load a library or module. Return true if the
library given as argument is successfully loaded. If not, instead
of an error, just add the package to a list of missing packages."
(condition-case err
(progn
(message "Checking for library `%s'..." feature)
(if (stringp feature)
(load-library feature)
(require feature))
(message "Checking for library `%s'... Found" feature))
(file-error (progn
(message "Checking for library `%s'... Missing" feature)
(add-to-list 'missing-packages-list feature))
nil)))
(custom-set-variables
'(LaTeX-command "latex -shell-escape")
'(LaTeX-indent-environment-list (quote (("verbatim" current-indentation) ("verbatim*" current-indentation) ("array") ("displaymath") ("eqnarray") ("eqnarray*") ("equation") ("equation*") ("picture") ("tabbing") ("table") ("table*") ("tabular" ignore) ("tabular*"))))
'(TeX-PDF-mode t)
'(TeX-output-view-style (quote (("^dvi$" ("^landscape$" "^pstricks$\\|^pst-\\|^psfrag$") "%(o?)dvips -t landscape %d -o && gv %f") ("^dvi$" "^pstricks$\\|^pst-\\|^psfrag$" "%(o?)dvips %d -o && gv %f") ("^dvi$" ("^a4\\(?:dutch\\|paper\\|wide\\)\\|sem-a4$" "^landscape$") "%(o?)xdvi %dS -paper a4r -s 0 %d") ("^dvi$" "^a4\\(?:dutch\\|paper\\|wide\\)\\|sem-a4$" "%(o?)xdvi %dS -paper a4 %d") ("^dvi$" ("^a5\\(?:comb\\|paper\\)$" "^landscape$") "%(o?)xdvi %dS -paper a5r -s 0 %d") ("^dvi$" "^a5\\(?:comb\\|paper\\)$" "%(o?)xdvi %dS -paper a5 %d") ("^dvi$" "^b5paper$" "%(o?)xdvi %dS -paper b5 %d") ("^dvi$" "^letterpaper$" "%(o?)xdvi %dS -paper us %d") ("^dvi$" "^legalpaper$" "%(o?)xdvi %dS -paper legal %d") ("^dvi$" "^executivepaper$" "%(o?)xdvi %dS -paper 7.25x10.5in %d") ("^dvi$" "." "%(o?)xdvi %dS %d") ("^pdf$" "." "okular %o") ("^html?$" "." "netscape %o"))))
'(TeX-view-program-list (quote (("okular" "okular %o"))))
'(TeX-view-program-selection (quote (((output-dvi style-pstricks) "dvips and gv") (output-dvi "xdvi") (output-pdf "okular") (output-html "xdg-open"))))
'(blink-cursor-mode nil)
'(browse-url-browser-function (quote browse-url-default-browser))
'(c-default-style (quote ((c-mode . "K&R") (java-mode . "java") (other . "gnu"))))
'(case-fold-search t)
'(case-replace t)
'(column-number-mode t)
'(compilation-scroll-output t)
'(diff-default-read-only t)
'(ecb-options-version "2.32")
'(ediff-window-setup-function (quote ediff-setup-windows-plain))
'(ess-execute-in-process-buffer t)
'(ess-language "R")
'(font-latex-fontify-script nil)
'(font-latex-fontify-sectioning (quote color))
'(font-latex-title-fontify (quote color) t)
'(frame-title-format "Emacs: %b %+%+ %f" t)
'(gc-cons-threshold 1600000)
'(highlight-nonselected-windows t)
'(icon-title-format "Emacs - %b" t)
'(inhibit-startup-screen t)
'(initial-frame-alist (quote ((top . 1) (height . 100))))
'(line-number-mode 1)
'(mouse-wheel-mode t nil (mwheel))
'(pc-select-meta-moves-sexps t)
'(pc-select-selection-keys-only t)
'(pc-selection-mode t nil (pc-select))
'(reftex-extra-bindings t)
'(ring-bell-function (quote ignore) t)
'(safe-local-variable-values (quote ((ispell-dictionary . "british") (auto-fill-mode) (TeX-master . race-test) (ess-indent-level . 2) (ess-continued-statement-offset . 2) (ess-brace-offset . 0) (ess-expression-offset . 4) (ess-else-offset . 0) (ess-brace-imaginary-offset . 0) (ess-continued-brace-offset . 0) (ess-arg-function-offset . 2) (ess-close-brace-offset . 0) (ispell-current-dictionary . british) (LocalWords . parallelized) (TeX-master . automoaco\.tex) (TeX-master . beamaco-csa) (ess-style . DEFAULT) (ess-fancy-comments) (ispell-local-dictionary . british) (Local . british) (bibtex-sort-ignore-string-entries))))
'(scroll-step 1)
'(search-whitespace-regexp "[
]+")
'(show-paren-mode t)
'(smerge-command-prefix "ñ")
'(speedbar-frame-parameters (quote ((minibuffer) (width . 20) (border-width . 0) (menu-bar-lines . 0) (tool-bar-lines . 0) (unsplittable . t) (set-background-color "black"))))
'(suggest-key-bindings 10)
'(tool-bar-mode nil)
'(track-eol t)
'(transient-mark-mode t)
'(undo-limit 200000)
'(undo-strong-limit 300000)
'(vc-follow-symlinks nil)
'(whitespace-modes (quote (ada-mode asm-mode autoconf-mode awk-mode c-mode c++-mode cc-mode change-log-mode cperl-mode electric-nroff-mode emacs-lisp-mode f90-mode fortran-mode html-mode html3-mode java-mode jde-mode ksh-mode latex-mode LaTeX-mode lisp-mode m4-mode makefile-mode modula-2-mode nroff-mode objc-mode pascal-mode perl-mode prolog-mode python-mode scheme-mode sgml-mode sh-mode shell-script-mode simula-mode tcl-mode tex-mode texinfo-mode vrml-mode xml-mode bibtex-mode))))
(custom-set-faces
'(diff-added ((t (:foreground "#44DD11"))))
'(diff-context ((t nil)))
'(diff-file-header ((((class color) (min-colors 88) (background dark)) (:foreground "gray"))))
'(diff-function ((t (:foreground "gray"))))
'(diff-header ((((class color) (min-colors 88) (background dark)) (:foreground "gray"))))
'(diff-hunk-header ((t (:foreground "gray"))))
'(diff-nonexistent ((t (:inherit diff-file-header :strike-through nil))))
'(diff-refine-change ((((class color) (min-colors 88) (background dark)) (:background "#182042"))))
'(diff-removed ((t (:foreground "#FF3300")))))
(if (not (fboundp 'Xlaunch))
(defmacro Xlaunch (&rest x)
(list 'if (eq window-system 'x)(cons 'progn x)))
(message ".emacs: Xlaunch already defined!"))
(Xlaunch
(setq default-frame-alist
'(
(icon-type . t)
(font . "-xos4-terminus-medium-r-normal--16-160-72-72-c-80-iso10646-1")
(cursor-color . "Orchid")
(mouse-color . "Orchid")
(foreground-color . "Wheat")
(background-color . "DarkSlateGray")
))
)
(set-face-foreground 'modeline "black")
(set-face-background 'modeline "gray")
(if (not window-system) (menu-bar-mode nil))
(if (not window-system)
(progn
(require 'color-theme)
(color-theme-initialize)
(color-theme-dark-laptop)))
(which-function-mode t) (setq which-func-maxout 0) (fset 'yes-or-no-p 'y-or-n-p)
(when (fboundp 'windmove-default-keybindings)
(windmove-default-keybindings 'control))
(require 'font-lock)
(if (fboundp 'global-font-lock-mode)
(global-font-lock-mode t)) (setq font-lock-mode-maximum-decoration t)
(prefer-coding-system 'utf-8)
(Xlaunch (define-key global-map [(delete)] "\C-d"))
(when (member (getenv "TERM") '("linux" "xterm"))
(dolist (prefix '("\eO" "\eO1;" "\e[1;"))
(dolist (m '(("2" . "S-") ("3" . "M-") ("4" . "S-M-") ("5" . "C-")
("6" . "S-C-") ("7" . "C-M-") ("8" . "S-C-M-")))
(dolist (k '(("A" . "<up>") ("B" . "<down>") ("C" . "<right>")
("D" . "<left>") ("H" . "<home>") ("F" . "<end>")))
(define-key function-key-map
(concat prefix (car m) (car k))
(read-kbd-macro (concat (cdr m) (cdr k))))))))
(if (not (fboundp 'x-own-selection))
(defun x-own-selection (s) (x-set-selection `PRIMARY s))
(message ".emacs: x-own-selection already defined!"))
(global-set-key [(shift insert)] '(lambda () (interactive)
(insert (x-get-selection))))
(global-set-key [(control insert)] '(lambda () (interactive)
(x-own-selection (buffer-substring (point) (mark)))))
(global-set-key [(control tab)] `other-window)
(global-set-key [(meta g)] `goto-line)
(defun switch-to-other-buffer ()
(interactive) (switch-to-buffer (other-buffer) 1))
(global-set-key [(meta control ?l)] `switch-to-other-buffer)
(global-set-key [(meta O) ?H] 'beginning-of-line)
(global-set-key [(meta O) ?F] 'end-of-line)
(define-key global-map [f5] 'font-lock-fontify-buffer)
(define-key global-map [f6] 'isearch-repeat-forward)
(define-key global-map [f10] 'wrap-up)
(global-set-key [home] 'beginning-of-line)
(global-set-key [end] 'end-of-line)
(global-set-key [(control home)] 'beginning-of-buffer)
(global-set-key [(control end)] 'end-of-buffer)
(global-set-key [(control next)] 'scroll-other-window)
(global-set-key [(control prior)] 'scroll-other-window-down)
(global-set-key [(control shift z)] 'redo)
(global-unset-key "\C-x\C-z")
(global-set-key "\C-x\C-b" 'electric-buffer-list)
(defun swap-compile-comment-keys ()
"Swap compile and commen-region keybindings"
(local-unset-key "\C-c\C-c")
(local-unset-key "\C-cc")
(local-set-key "\C-c\C-c" 'compile)
(local-set-key "\C-cc" 'comment-region)
)
(add-hook 'makefile-mode-hook 'swap-compile-comment-keys)
(global-set-key "\C-cg" 'goto-line)
(global-set-key "\C-x\C-r" 'revert-buffer)
(global-unset-key (read-kbd-macro "C-M-SPC"))
(defun shuffle-lines (beg end)
"Scramble all the lines in region defined by BEG END
If region contains less than 2 lines, lines are left untouched."
(interactive "*r")
(catch 'cancel
(save-restriction
(narrow-to-region beg end)
(if (< (- (point-max) (point-min)) 3)
(throw 'cancel t))
(goto-char (point-min))
(while (not (eobp))
(insert (int-to-string (random 32000)) " ")
(forward-line 1))
(sort-numeric-fields 1 (point-min) (point-max))
(goto-char (point-min)) (while (not (eobp))
(delete-region (point) (progn (forward-word 1) (+ (point) 1)))
(forward-line 1))
)))
(global-set-key [(control s)] 'isearch-forward-regexp)
(global-set-key [(control r)] 'isearch-backward-regexp)
(global-set-key [(control c)(meta %)] 'query-replace-regexp)
(defalias 'cr 'comment-region)
(defalias 'ucr 'uncomment-region)
(defalias 'rr 'replace-rectangle)
(defun move-line (&optional n)
"Move current line N (1) lines up/down leaving point in place."
(interactive "p")
(when (null n)
(setq n 1))
(let ((col (current-column)))
(beginning-of-line)
(forward-line)
(transpose-lines n)
(forward-line -1)
(forward-char col))
(indent-according-to-mode))
(defun move-line-up (n)
"Moves current line N (1) lines up leaving point in place."
(interactive "p")
(move-line (if (null n) -1 (- n))))
(defun move-line-down (n)
"Moves current line N (1) lines down leaving point in place."
(interactive "p")
(move-line (if (null n) 1 n)))
(defun move-region (start end n)
"Move the current region up or down by N lines."
(interactive "r\np")
(let ((line-text (delete-and-extract-region start end)))
(forward-line n)
(let ((start (point)))
(insert line-text)
(setq deactivate-mark nil)
(set-mark start))))
(defun move-region-up (start end n)
"Move the current region up by N lines."
(interactive "r\np")
(move-region start end (if (null n) -1 (- n))))
(defun move-region-down (start end n)
"Move the current region down by N lines."
(interactive "r\np")
(move-region start end (if (null n) 1 n)))
(defun move-line-region-up (start end n)
(interactive "r\np")
(if (region-active-p) (move-region-up start end n) (move-line-up n)))
(defun move-line-region-down (start end n)
(interactive "r\np")
(if (region-active-p) (move-region-down start end n) (move-line-down n)))
(global-set-key [(meta up)] 'move-line-region-up)
(global-set-key [(meta down)] 'move-line-region-down)
(when (try-require 'rect)
(defun copy-rectangle-as-kill (start end)
"Copy rectangle with corners at point and mark; save as last
killed one. Calling from program, supply two args START and END,
buffer positions. But in programs you might prefer to use
`extract-rectangle'."
(interactive "r")
(setq killed-rectangle (extract-rectangle start end))
(message "Rectangle saved."))
(global-set-key "\C-xrw" 'copy-rectangle-as-kill)
)
(defun insert-date-string ()
"Insert a nicely formated date string."
(interactive)
(insert (format-time-string "%Y-%m-%d")))
(defun delete-horizontal-space-forward ()
"*Delete all spaces and tabs after point."
(interactive "*")
(delete-region (point) (progn (skip-chars-forward " \t") (point))))
(global-set-key "\M- " 'delete-horizontal-space-forward)
(setq default-major-mode (lambda () (text-mode) (font-lock-mode t)))
(add-hook 'text-mode-hook 'turn-on-auto-fill)
(add-hook 'text-mode-hook 'turn-on-flyspell)
(setq next-line-add-newlines nil)
(setq-default indent-tabs-mode nil)
(setq revert-without-query (cons "TAGS" revert-without-query))
(auto-compression-mode t)
(put 'downcase-region 'disabled nil)
(setq load-path
(cons (concat (getenv "HOME") "/.emacs.d/")
(cons "/usr/local/share/emacs/site-lisp/" load-path)))
(when (try-require 'ess-site)
(setq ess-fancy-comments nil)
(setq ess-eval-visibly-p nil)
(when (try-require 'ess-tracebug)
(add-hook 'ess-post-run-hook 'ess-tracebug t)
)
)
(defadvice find-tag (around refresh-etags activate)
"Rerun etags and reload tags if tag not found and redo find-tag.
If buffer is modified, ask about save before running etags."
(let ((extension (file-name-extension (buffer-file-name))))
(condition-case err
ad-do-it
(error (and (buffer-modified-p)
(not (ding))
(y-or-n-p "Buffer is modified, save it? ")
(save-buffer))
(refresh-etags extension)
ad-do-it))))
(defun refresh-etags (&optional extension)
"Run etags on all peer files in current dir and reload them silently."
(interactive)
(shell-command (format "etags *.%s" (or extension "el")))
(let ((tags-revert-without-query t)) (visit-tags-table default-directory nil)))
(setq-default ispell-program-name "aspell")
(when (try-require 'uniquify)
(setq uniquify-buffer-name-style 'post-forward)
(setq uniquify-after-kill-buffer-p t)
)
(iswitchb-mode t)
(setq iswitchb-buffer-ignore '("^ " "*Buffer"))
(add-hook
'iswitchb-define-mode-map-hook
'(lambda ()
(define-key iswitchb-mode-map [up] 'iswitchb-next-match)
(define-key iswitchb-mode-map [down] 'iswitchb-prev-match)
(define-key iswitchb-mode-map [right] 'iswitchb-next-match)
(define-key iswitchb-mode-map [left] 'iswitchb-prev-match)))
(defadvice iswitchb-kill-buffer (after rescan-after-kill activate)
"*Regenerate the list of matching buffer names after a kill.
Necessary if using `uniquify' with `uniquify-after-kill-buffer-p'
set to non-nil."
(setq iswitchb-buflist iswitchb-matches)
(iswitchb-rescan))
(defun iswitchb-rescan ()
"*Regenerate the list of matching buffer names."
(interactive)
(iswitchb-make-buflist iswitchb-default)
(setq iswitchb-rescan t))
(when (try-require 'ffap) (ffap-bindings)
(setq ffap-url-fetcher 'w3m-browse-url)
)
(when (fboundp 'savehist-mode)
(savehist-mode 1))
(autoload 'tidy-buffer "tidy" "Run Tidy HTML parser on current buffer" t)
(autoload 'tidy-parse-config-file "tidy" "Parse the `tidy-config-file'" t)
(autoload 'tidy-save-settings "tidy" "Save settings to `tidy-config-file'" t)
(autoload 'tidy-build-menu "tidy" "Install an options menu for HTML Tidy." t)
(defun my-html-helper-mode-hook () "Customize my html-helper-mode."
(tidy-build-menu html-helper-mode-map)
(local-set-key [(control c) (control c)] 'tidy-buffer)
(setq sgml-validate-command "tidy")
(tidy-build-menu))
(add-hook 'html-helper-mode-hook 'my-html-helper-mode-hook)
(add-hook 'html-mode-hook 'my-html-helper-mode-hook)
(defun html-helper-custom-insert-timestamp ()
"Custom timestamp insertion function."
(insert "Last modified: ")
(insert (format-time-string "%e %B %Y")))
(setq html-helper-timestamp-hook 'html-helper-custom-insert-timestamp)
(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)
(setq
auto-save-interval 300 auto-save-timeout nil
)
(when (try-require 'saveplace)
(setq-default save-place t)
(add-hook 'server-visit-hook 'save-place-find-file-hook t)
)
(when (try-require 'tex-site)
(setq TeX-auto-save t)
(setq TeX-parse-self t)
(setq-default TeX-master nil) (setq LaTeX-default-options "a4paper")
(setq font-latex-title-fontify 'color)
(defun LaTeX-insert-footnote ()
"Insert a \\footnote{} macro in a LaTeX-document."
(interactive)
(TeX-insert-macro "footnote"))
(defun LaTeX-insert-note ()
"Insert a \\note{} macro in a LaTeX-document."
(interactive)
(TeX-insert-macro "note"))
(defun LaTeX-insert-index ()
"Insert a \\index{} macro in a LaTeX-document."
(interactive)
(TeX-insert-macro "index"))
(defun my-auctex-settings ()
"Some local modifications to AucTeX variables."
(setq TeX-master nil) )
(defvar LaTeX-mode-setup-hook nil
"Hook for things to do before LaTeX-mode is defined.")
(defadvice latex-mode (before latex-mode-setup-advice)
(run-hooks 'LaTeX-mode-setup-hook))
(add-hook 'LaTeX-mode-setup-hook 'my-auctex-settings t)
(defun my-auctex-keys ()
"Some local modifications to AucTeX keybindings."
(local-set-key "\C-cf" 'LaTeX-insert-footnote)
(local-set-key "\C-cn" 'LaTeX-insert-note)
(setq search-whitespace-regexp "[ \t\r\n]+")
(local-set-key [(control s)] 'isearch-forward-regexp)
(local-set-key [(control meta s)] 'isearch-forward)
(local-set-key [(control r)] 'isearch-backward-regexp)
(local-set-key [(control meta r)] 'isearch-backward)
(define-key LaTeX-mode-map "\C-ci" 'latex-help)
)
(defun my-latex-add-ons ()
"Anything you ever wanted in LaTeX-mode."
(try-require 'bib-cite)
(try-require 'font-latex)
(my-auctex-keys)
(local-set-key [mouse-3] 'reftex-mode-menu)
(setq
reftex-enable-partial-scans t reftex-save-parse-info t reftex-use-multiple-selection-buffers t reftex-plug-into-AUCTeX t reftex-extra-bindings t )
(turn-on-reftex)
(turn-off-auto-fill)
(defvar LaTeX-align-current-environments
(mapcar 'car LaTeX-indent-environment-list)
"List of LaTeX environments to do align.")
(defun LaTeX-align-or-fill-function (&optional justify)
"Variant of 'fill-paragraph-function' based on current
environment. In tabular-like environments, align
columns. Otherwise, fill as normal."
(interactive "P")
(if (member (LaTeX-current-environment)
LaTeX-align-current-environments)
(save-excursion
(LaTeX-mark-environment)
(align-current) t)
(LaTeX-fill-paragraph)))
(setq fill-paragraph-function 'LaTeX-align-or-fill-function)
(message "Making private modifications ..."))
(add-hook 'LaTeX-mode-hook 'my-latex-add-ons)
(add-hook 'TeX-mode-hook 'turn-off-auto-fill)
)
(add-to-list 'auto-mode-alist '("\\.js\\'" . javascript-mode))
(autoload 'javascript-mode "javascript" nil t)
(setq javascript-indent-level 8)
(c-add-style
"my-c-common-style"
'("k&r"
(c-basic-offset . 4)
))
(defun my-c-mode-common-hook ()
"C/C++ mode with adjusted defaults."
(c-set-style "my-c-common-style")
(setq c++-tab-always-indent t)
(setq c-backslash-column 79)
(setq c-backslash-max-column 79)
(c-set-offset 'inextern-lang '0) (message "Loading my-c-common-mode-hook...")
(swap-compile-comment-keys)
)
(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)
(defun linux-c-mode ()
"C mode with adjusted defaults for use with the Linux kernel."
(interactive)
(c-mode)
(c-set-style "k&r")
(setq c-basic-offset 3)
(swap-compile-comment-keys)
(message "Loading linux-c-mode...")
)
(defun gcc-c-mode-hook ()
"C mode for GCC development."
(which-function-mode t) (setq which-func-maxout 0) (c-set-style "gnu")
(c-set-offset 'inline-open 0)
(swap-compile-comment-keys)
(message "Loading gcc-c-mode...")
)
(defun gcc-c-mode ()
"C mode for GCC development."
(interactive)
(remove-hook 'c-mode-common-hook 'my-c-mode-common-hook)
(add-hook 'c-mode-common-hook 'gcc-c-mode-hook)
(text-mode)
(c-mode)
)
(eval-after-load "gnuplot"
(add-hook 'gnuplot-mode-hook
'(lambda ()
(define-key gnuplot-mode-map "\C-c\C-c" 'gnuplot-send-buffer-to-gnuplot)))
)
(eval-after-load "flyspell"
'(local-set-key [(control ?\;)] 'flyspell-auto-correct-word)
)
(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))
(defun n-cperl-mode-hook ()
"cPerl mode with adjusted defaults."
(setq cperl-indent-level 4)
(setq cperl-continued-statement-offset 0)
(setq cperl-extra-newline-before-brace t)
(set-face-background 'cperl-array-face "dark slate gray")
(set-face-background 'cperl-hash-face "dark slate gray")
)
(add-hook 'cperl-mode-hook 'n-cperl-mode-hook t)
(setq cperl-invalid-face (quote off))
(defun find-non-ascii ()
"Find any non-ascii characters in the current buffer."
(interactive)
(occur "[^[:ascii:]]"))
(defun count-words-region (beginning end)
"Print number of words in the region."
(interactive "r")
(message "Counting words in region ... ")
(save-excursion
(let ((count 0))
(goto-char beginning)
(while (and (< (point) end)
(re-search-forward "\\w+\\W*" end t))
(setq count (1+ count)))
(cond ((zerop count)
(message
"The region does NOT have any words."))
((= 1 count)
(message
"The region has 1 word."))
(t
(message
"The region has %d words." count)))))
)
(fset 'pump_replace
[?\C- C-right C-right C-right C-right C-right C-right C-right C-right C-right C-right C-right C-right C-right C-right C-right C-right C-right C-right C-right C-right C-right C-right C-right C-right ?\C-w down C-right ? ?\C-y ?\C-k ?\C- home ?\C-w delete up return up ?\C-y home down])
(if missing-packages-list
(progn (message "Packages not found: %S"
(nreverse missing-packages-list))))
(message "My .emacs loaded in %ds" (destructuring-bind (hi lo ms) (current-time)
(- (+ hi lo) (+ (first *emacs-load-start*) (second
*emacs-load-start*)))))